• Home
 · 
• Miscellaneous
 · 
• Keep a window on top

Keep a window on top

Keep a window on top

Rate Keep a window on top

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'  ** Vicky Jadhav             **
'  ** By Vj Softmode In India  **
'  ** since From 1999          **




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

Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40

Private Sub Form_Load()

    Dim retValue As Long
    Load Form1
    retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, 100, 200, _
               400, 200, SWP_SHOWWINDOW)
End Sub