Option Explicit
 
Private Declare Function GetActiveWindow Lib "user32" () As Long
 
Private Declare Function GetWindowText Lib "user32" _
  Alias "GetWindowTextA" (ByVal hwnd As Long, _
  ByVal lpString As String, _
  ByVal cch As Long) As Long
 
Private Sub Form_Load()
  Dim s As String
  s = Space(255)
  GetWindowText GetActiveWindow(), s, Len(s)
  Text1.Text = s
End Sub