Как сделать форму поверх всех окон?

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_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2

Sub Form_Load()
Call SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.Left \ 15, Me.Top \ 15, Me.Width \ 15, Me.Height \ 15, Flags)
End Sub

Private Sub Command1_Click()
Call SetWindowPos(Me.hwnd, HWND_NOTOPMOST, Me.Left \ 15, Me.Top \ 15, Me.Width \ 15, Me.Height \ 15, Flags)
End Sub