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
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2


Sub MakeTopMost (frmForm 
as
 Form, LX%, LY%, RX%, RY%)
    
dim
 
succes
 
as
 Long

    
succes
 = SetWindowPos(frmForm.hWnd, HWND_TOPMOST, LX%, LY%, RX%, RY%, 0)

End Sub

Sub UnMakeTopMost (frmForm 
as
 Form)
    
dim
 
succes
 
as
 Long

    
succes
 = SetWindowPos(frmForm.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, 0)

End Sub