Private Declare Function SetWindowPos Lib "User" (ByVal h%, ByVal hb%, ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal f%) As Integer
Const FLAGS = 1
Const HWND_TOPMOST = -1

' Use the above Declaration and Constants along with
' the code in "Form_Load" to make a window remain On Top.

Private Sub Form_Load()
'Sets form on always on top.
Dim Success As Integer
Success% = SetWindowPos(Form1.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
                                                ' Change the "0's" above to position the window.
End Sub