Simple Function to make a form stay ontop of all other forms
Simple Function to make a form stay ontop of all other forms
Rate Simple Function to make a form stay ontop of all other forms
(1(1 Vote))
Const SWP_NOMOVE& = &H2
Const SWP_NOSIZE& = &H1
Dim lFlags As Long
Dim lStay As Long
lFlags = SWP_NOSIZE Or SWP_NOMOVE
If Ontop = True Then
SetWindowPos hwnd, -1, 0, 0, 0, 0, lFlags
Else
SetWindowPos hwnd, -2, 0, 0, 0, 0, lFlags
End If
End Function
'Example ToggleOntop (True)
'Example ToggleOntop (False)
Simple Function to make a form stay ontop of all other forms Comments
No comments yet — be the first to post one!
Post a Comment