Make Forms Stay on Top

Make Forms Stay on Top

To set a form to be always on top, use the subroutine listed here.Pass it the hWnd property of the form you want to float. The OnTop parameteris used to toggle the attribute. If True, floating is turned on; if False,the form will not float.

 Declare Sub SetWindowPos Lib "User" _ (ByVal hWnd As Integer, _ ByVal hWndInsertAfter As Integer, _ ByVal X As Integer, ByVal Y As Integer, _ ByVal cx As Integer, ByVal cy As Integer, _ ByVal wFlags As Integer) Global Const SWP_NOSIZE = &H1 Global Const SWP_NOMOVE = &H2 Global Const HWND_TOPMOST = -1 Global Const HWND_NOTOPMOST = -2 Sub FormOnTop (hWnd%, OnTop%) If OnTop Then Call SetWindowPos(hWnd, HWND_TOPMOST, 0, _ 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE) Else Call SetWindowPos(hWnd, HWND_NOTOPMOST, 0, _ 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE) End If End Sub 


Share the Post: