Контрольная работа: Адресная книга на языка Visual Basic

SetWindowPos hWnd, -1, 0, 0, 0, 0, 1 Or 2 Or 16

Case False

SetWindowPos hWnd, -2, 0, 0, 0, 0, 1 Or 2 Or 16

End Select

End Sub

Public Function Path() As String

If Right(App.Path, 1) = "\" Then Path = App.Path Else Path = App.Path & "\"

End Function

Public Function Exist(strFileName As String) As Boolean

If Dir(strFileName) = vbNullString Then Exist = False Else Exist = True

End Function

Использованные источники и литература

1. Программа помощи VB

2. Материалы сайта http://azbukavb.narod.ru/

3. Материалы сайта http://void.ru

4. Материалы сайта www.FileArea.co.il