• Home
 · 
• Custom Controls/Forms/Menus
 · 
• This keeps the form on top of all others except the start menu as there isnt a way to bypass that.

This keeps the form on top of all others except the start menu as there isnt a way to bypass that.

This keeps the form on top of all others except the start menu as there isnt a way to bypass that. i have submitted this as the old one was

API Declarations


Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOMOVE As Long = &H2
Const SWP_NOSIZE As Long = &H1



Rate This keeps the form on top of all others except the start menu as there isnt a way to bypass that.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Public Sub MakeAlwaysOnTop(TheForm As Form, SetOnTop As Boolean)
    Dim lflag
    If SetOnTop Then
        lflag = HWND_TOPMOST
    Else
        lflag = HWND_NOTOPMOST
    End If
    SetWindowPos TheForm.hwnd, lflag, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub



'Deano Splamoni
'Antbyte Software 2001-2004
'http://abs.watp.ircjunx.com/