• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Make your form stay on top of other forms that stay on top (the easy way)

Make your form stay on top of other forms that stay on top (the easy way)

Make your form stay on top of other forms that stay on top (the easy way)

Rate Make your form stay on top of other forms that stay on top (the easy way)

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Put this in a module......
Private Declare Sub 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)

Sub OnTOp(frm As Form)
SetWindowPos frm.hwnd, -1, 0, 0, 0, 0, 3
End Sub
'............................................................
'Put a timer on a form and call it like

Private Sub Timer1_Timer()

'Timer1.Interval = 1
OnTOp Form1

End Sub
'Now your program stays on top of all programs