Public Shared Function GetTextFromWindow(ByVal hwnd As IntPtr) As String
 
    '// gibt den Text des Windows zurück
    Dim strBuffer As String = New String(" "c, 256)
 
    Dim l As Integer = _
       GetWindowText(hwnd, strBuffer, strBuffer.Length)
 
    Return strBuffer.Substring(0, l)     
End Function