True Form on top with API

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Intermediate

Author:

MossMan

Version Compatibility: Visual Basic 5

More information:

Let your form be right on top even though form does not have the focus. Other applications will still run normally, just with your form floating on top

Just pass the form's Hwnd to the functions...

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Option Explicit Private Const HWND_BOTTOM = 1 Private Const HWND_NOTOPMOST = -2 Private Const HWND_TOP = 0 Private Const HWND_TOPMOST = -1 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1 Private Declare Function GetActiveWindow Lib "user32" () As Long Private 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

Code: