make a form stay on top

I don't remember where I got this, But I know it works. At some point in time I neded to do the same, and this is How I got it to work !

Place in MODULE

Global Const SWP_NOMOVE = 2Global Const SWP_NOSIZE = 1
Global Const HWND_TOPMOST = -1Global Const HWND_NOTOPMOST = -2
Global Const FLOAT = 1, SINK = 0
Public Declare Sub 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)

This is a sub within the module

Sub FloatWindow(X As Integer, action As Integer)

Dim wFlags As Integer, result As Integer
wFlags = SWP_NOMOVE Or SWP_NOSIZE

If action <> 0 Then    
    ' Float
    Call SetWindowPos(X, HWND_TOPMOST, 0, 0, 0, 0, wFlags)
Else                    
    ' Sink
    Call SetWindowPos(X, HWND_NOTOPMOST, 0, 0, 0, 0, wFlags)
End If

End Sub

Code to use -->

'Float code

Dim f as integer
f = Screen.ActiveForm.hWndCall
FloatWindow(f, FLOAT)

'sink code

Dim f as integer
f = Screen.ActiveForm.hWndCall FloatWindow(f, SINK)to sink.

berator,

Have you tried this?

STAY !!!

(It works with my dog, sometimes. Haven't tried it with forms.)

'to make form stay topmost

'put this in a bas module
'
Public 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

'=============================================
'
'put this in events click or load or whatever
'or hardcopy
'To set Form1 as a TopMost form, do the following:

res& = SetWindowPos (Form1.hWnd, HWND_TOPMOST, _
0, 0, 0, 0, FLAGS)
'if res&=0, there is an error

'To turn off topmost (make the form act normal again):

res& = SetWindowPos (Form1.hWnd, HWND_NOTOPMOST, _
0, 0, 0, 0, FLAGS)

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

Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOPMOST = -1

Private Sub Form_Load()
    Call SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
End Sub

Dump this in a UserControl ....

Option Explicit

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)

Private conValue As Boolean

Private Property Get Value() As Boolean
    Value = conValue
End Property

Public Property Let Value(newValue As Boolean)
    conValue = newValue
    PropertyChanged Value
   
    Call FormStayOnTop(UserControl.Parent.hWnd, newValue)
End Property

Private Sub UserControl_Initialize()
    UserControl_Resize
End Sub

Private Sub UserControl_InitProperties()
    Value = True
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    conValue = PropBag.ReadProperty("Value", True)
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("Value", conValue, True)
End Sub

Private Sub UserControl_Resize()
    On Error Resume Next
   
    UserControl.Width = ImageInterface.Width
    UserControl.Height = ImageInterface.Height
End Sub

Private Sub FormStayOnTop(FormHandle As Long, OnOff As Boolean)
Dim wFlags As Integer

Const Swp_Nosize As Integer = &H1
Const Swp_Nomove As Integer = &H2
Const Swp_NoActivate As Integer = &H10
Const Swp_ShowWindow As Integer = &H40
Const Hwnd_TopMost As Integer = -1
Const Hwnd_NoTopMost As Integer = -2

    On Error Resume Next
   
    wFlags = Swp_Nomove Or Swp_Nosize Or Swp_ShowWindow Or Swp_NoActivate

    SetWindowPos FormHandle, IIf(OnOff, Hwnd_TopMost, Hwnd_NoTopMost), 0, 0, 0, 0, wFlags
End Sub



Next time, you just have to pick your "OnTop Control" from your toolbox. better than programming it over and over and over again.

You activate it with
Form.OpTop1.Value = True