forma1.Show 'показать форму, она всплывет (обычно только это и присваивается макросу)
---------------------------------------------------------------------------------------------------------------------
label1.caption = "Hello" 'сменит надпись в метке
---------------------------------------------------------------------------------------------------------------------
CreateObject("Scripting.Dictionary")
Me.Hide - так закрываем форму
---------------------------------------------------------------------------------------------------------------------
Свойства формы (UserForm):
BackColor - цвет фона
Height - высота самой формы (можно и вручную поправить)
Left - указываем сдвиг формы при её появлении относительно левого края монитора
Top - относительно верхнего края монитора (работает только с SturtUpPosition - 0 - Manual)
---------------------------------------------------------------------------------------------------------------------
объект ActiveX - ComboBox-Style-fmStyleDropDownList- выбирать только между указанными в списке
---------------------------------------------------------------------------------------------------------------------
'устанавливаем форму поверх других окон
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As Long
Private Const HWND_NOTOPMOST = -2
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
'добавляет на форму значки минимизировать форму и значок развернуть окно на полный экран
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
'Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Const GWL_STYLE As Long = (-16)
Const WS_SYSMENU As Long = &H80000
Const WS_MINIMIZEBOX As Long = &H20000
Const WS_MAXIMIZEBOX As Long = &H10000
Const SW_SHOWMAXIMIZED As Long = 3
Const SW_SHOWMINIMIZED As Long = 2
Const SW_SHOWNORMAL As Long = 1
Private Sub UserForm_Initialize()
'устанавливаем форму поверх других окон
Dim hwnd As Long
hwnd = FindWindow(vbNullString, Me.Caption)
Call SetWindowPos(hwnd, HWND_TOPMOST, 100, 100, 100, 100, WP_NOMOVE Or SWP_NOSIZE)
'*******Форма в нормальное положение**************
' Call SetWindowPos(hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
'**********************************************
'добавляет на форму значки минимизировать форму и значок развернуть окно на полный экран
Dim lngFrmHndl As Long
Dim lngStyle As Long
lngFrmHndl = FindWindow(vbNullString, Me.Caption)
lngStyle = GetWindowLong(lngFrmHndl, GWL_STYLE) Or WS_SYSMENU Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
SetWindowLong lngFrmHndl, GWL_STYLE, (lngStyle)
DrawMenuBar lngFrmHndl
End Sub