Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: pashulka
Private Declare Function FindWindow _ Lib "user32.dll" Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function GetWindowDC Lib "user32.dll" ( _ ByVal hWnd As Long) As Long 'Private Declare Function GetDC Lib "user32.dll" ( _ ByVal hWnd As Long) As Long Private Sub UserForm_Initialize() Dim ihDC As Long ihDC = GetWindowDC(FindWindow(vbNullString, Me.Caption)) ''' End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.