Binaryworld - Keeping a Window On Top ... [ VB -> Api ]

'Place this into your Module:

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

Global Const SWP_NOMOVE = 2
Global Const SWP_NOSIZE = 1
Global Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2

Sub OnTopYes(WinHandle As Long)
'This sub causes the window to stay OnTop
'WinHandle = the window handle
lResult = SetWindowPos(WinHandle, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
End Sub

Sub OnTopNo(WinHandle As Long)
'This sub prevents the window from staying OnTop
'WinHandle = the window handle
lResult = SetWindowPos(WinHandle, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
End Sub

'Now, when you want to make a window stay on top, just use the following code snippet:

Call OnTopYes(me.hwnd)

'This will force the calling window to stay above all other windows on your desktop!
'When you are finished with the window and don't want it above the other windows, just use 'this:

Call OnTopNo(me.hwnd)

'This will revert the window back to normal and it will act like a normal window.