The GetWindowText API should give you the title
Dim WinTitle as String
WinTitle = String(255, chr(0))
GetWindowText Me.hWnd, WinTitle, 254
WinTitle = Left(WinTitle, InStr(WinTitle, Chr(0)) - 1) Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein