I'm on top

[JohnMB]

How can a form be kept on top regaurdless of what program or form is in focus?

Thanks,
JohnMB

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 HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Private Sub Form_Load()

  OnTop Me, True

End Sub
Private Sub OnTop(frm As Form, TopMost As Boolean)
  
  Select Case TopMost
    Case True
      Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
    Case False
      Call SetWindowPos(Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
  End Select

End Sub

[JohnMB]

Thanks, just what I was looking for.

Since the constants are short and readable, you can omit them, causing your code to reduce slightly.

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 Sub Form_Load()
    SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
End Sub

thats good,
but if you forgot to add comments, a few months later when you look at your code, you may not know what you were trying to do,
thats why I always like to use constants.

I've remembered the code for this (and others) for ages and never forgot them. Using contants for values like -1, 3 etc. just doesn't suit me, however, when dealing with numbers like &H1FF01, it's a good idea to use them.

I remember the code for this(and also to drag a form without a title bar, and many other things)

but some people may not.

and I always like to add the constants, because then people will actually know which part of the code does what...

I usually use comments for that:

'Bring window to top
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3

Again, this is just in my opinion.