'*******************************************************
'КОД ФОРМЫ (FROM)
'*******************************************************

Private Sub Check1_Click() 
 If Check1.Value = vbChecked Then 
  SetWindowPos Me.hwnd, HWND_TOPMOST, _ 
         0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE 
 Else 
  SetWindowPos Me.hwnd, HWND_NOTOPMOST, _ 
         0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE 
 End If 
End Sub 

'*******************************************************
'КОД МОДУЛЯ
'*******************************************************

Public 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 

Public Const SWP_NOMOVE = &H2 
Public Const SWP_NOSIZE = &H1 
Public Const HWND_TOPMOST = -1 
Public Const HWND_NOTOPMOST = -2