thanxs to "Albetski, Allan" 

I took your StayOnTop routine and simplfied it for VB4. Takes Two
agruments. The form itself (as your original) and a boolean value. True
to stay 
on
 top, false to not.

'add to a 
module
 form
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

Public 
sub
 StayOnTop(frmForm 
as
 Form, fOnTop 
as
 Boolean)
  
  Const HWND_TOPMOST = -1
  Const HWND_NOTOPMOST = -2
  
  
dim
 lState 
as
 Long
  
dim
 iLeft 
as
 Integer, iTop 
as
 Integer, iWidth 
as
 Integer, iHeight 
as
 Integer
    
  With frmForm
    iLeft = .Left / Screen.TwipsPerPixelX
    iTop = .Top / Screen.TwipsPerPixelY
    iWidth = .Width / Screen.TwipsPerPixelX
    iHeight = .Height / Screen.TwipsPerPixelY
  
end
 With
  
  If fOnTop Then
    lState = HWND_TOPMOST
  Else
    lState = HWND_NOTOPMOST
  
end
 If
  Call SetWindowPos(frmForm.hWnd, lState, iLeft, iTop, iWidth, iHeight,0)

End Sub