CodeItBetter Programming Another VB Programming Blog

'System & API - How to get the handle of the active window
Option Explicit
 
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
 
Public Function GetActiveWindow(ByVal ReturnParent As Boolean) As Long
    Dim I As Long, J As Long
    I = GetForegroundWindow
    If ReturnParent Then
        Do While I <> 0
            J = I
            I = GetParent(I)
        Loop
        I = J
    End If
    GetActiveWindow = I
End Function