• Home
 · 
• VB function enhancement
 · 
• Always On Top

Always On Top

Keeps Your Form On Top
This Is Really Kewl Because You Can Just Use A false attribuite to set it as not on top instead of using 2 functions

API Declarations
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

Rate Always On Top

• 1
• 2
• 3
• 4
• 5

(13(13 Vote))

Public Sub AlwaysOnTop(myfrm As Form, SetOnTop As Boolean)
  If SetOnTop Then
   lFlag = HWND_TOPMOST
  Else
   lFlag = HWND_NOTOPMOST
  End If
  SetWindowPos myfrm.hwnd, lFlag, _
  myfrm.Left / Screen.TwipsPerPixelX, _
  myfrm.Top / Screen.TwipsPerPixelY, _
  myfrm.Width / Screen.TwipsPerPixelX, _
  myfrm.Height / Screen.TwipsPerPixelY, _
  SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Sub
'Well, if your for example in a form called 'Form1' then you'd simply type:
AlwaysOnTop Form1, True