Window On Top

[petrus]

I want to check whether my window is on top of all the windows in Windows.
Anyone knows how?

[Ruku]

Originally posted by petrus
I want to check whether my window is on top of all the windows in Windows.
Anyone knows how?

You want to get your window always on top?
Herez coding:

Private Sub Timer1_Timer()
Form1.ZOrder 0
End Sub

Simple and fast

[petrus]

Nope, I want to CHECK if my window is on top..

[crptcblade]

Private Declare Function GetForegroundWindow Lib "user32" () As Long
 
Private Sub Command1_Click()
    MsgBox GetForegroundWindow = Me.hWnd
End Sub

[petrus]

Originally posted by crptcblade

Private Declare Function GetForegroundWindow Lib "user32" () As Long
 
Private Sub Command1_Click()
    MsgBox GetForegroundWindow = Me.hWnd
End Sub

Hehe...!