Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( _
  ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
 
Private Sub Command1_Click()
    Dim Name As String * 101
    GetWindowText Command1.hwnd, Name, 100
    Name = Trim(Name)
    MsgBox Name
End Sub