Declare Function SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_JUSTZ = SWP_NOSIZE + SWP_NOMOVE + SWP_NOACTIVATE



Sub Option1_Click ()
    wp = SetWindowPos(form1.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_JUSTZ)
End Sub

Sub Option2_Click ()
    wp = SetWindowPos(form1.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_JUSTZ)
End Sub