FormOnTop (4)

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
Const HWND_TOPMOST = -1
Const HWND_NOTTOPMOST = -2
Const SWP_NOSIZE = 1
Const SWP_NOMOVE = 2
Private flags As Integer
Private lResult As Long
Private Sub Form_Load()
flags = SWP_NOSIZE Or SWP_NOMOVE
lResult = SetWindowPos(form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, flags)
End Sub