In der Form:
 
Private Declare Function GetActiveWindow Lib "user32"() As Long
 
Private Declare Function GetWindowText Lib "user32" _
          (Byval hWnd As Long, _
           sPtrGetString As String) As Long
 
 
Private Sub Form_Load()
      Dim s As String
      s = Space(255)
      GetWindowText GetActivewindow(),s
      Text1.Text = s
End Sub