CodeItBetter Programming Another VB Programming Blog

'System & API - How to get the title 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 GetActiveWindowTitle(ByVal ReturnParent As Boolean) As String
    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
    GetActiveWindowTitle = GetWindowTitle(I)
End Function