Public Shared Function GetTextFromWindow() As String
        Return GetTextFromWindow(GetForegroundWindow)
    End Function

Public Shared Function GetTextFromWindow(ByVal hwnd As IntPtr) As String
        '// gibt den Text des Windows zurück
        Dim strBuffer As String
        Dim intLen As Integer
        intLen = GetWindowTextLength(hwnd) + 1
        strBuffer = New String(CChar(" "), intLen)
        GetWindowText(hwnd, strBuffer, intLen)
        Return strBuffer.Replace(CChar("0"), "")
    End Function

Public Declare Function GetForegroundWindow Lib "user32" () As IntPtr
    Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( _
      ByVal hwnd As IntPtr, ByVal lpString As String, ByVal cch As Integer) As _
      Integer
    Public Declare Function GetWindowTextLength Lib "user32" Alias _
    "GetWindowTextLengthA" (ByVal hwnd As IntPtr) As Integer