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 
See also  How IoT Tech Will Transform Logistics

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist