Deklation:
 
    Declare Function FindWindow Lib "user32" _
                     Alias "FindWindowA" ( _
                     ByVal lpClassName As String, _
                     ByVal lpWindowName As String) As Integer
 
    Declare Function FindWindowEx Lib "user32" _
                 Alias "FindWindowExA" ( _
                 ByVal hwndParent As Integer, _
                 ByVal hwndChildAfter As Integer, _
                 ByVal lpszClass As String, _
                 ByVal lpszWindow As String) As Integer
 
    Declare Function SendMessage Lib "user32" _
                Alias "SendMessageA" ( _
                 ByVal hwnd As Integer, _
                 ByVal wMsg As Integer, _
                 ByVal wParam As Integer, _
                 ByVal lParam As Integer) As Integer
 
 Und mit:
        Dim text1 As Integer = FindWindow("TAboutBox", Nothing)
        Label1.Text = text1
 
        Dim text2 As Integer = FindWindowEx(text1, Nothing, "TStatusBar", _
          Nothing)
        Label2.Text = text2
 
        Dim text3 As Integer = SendMessage(text2, WM_GETTEXTLENGTH, Nothing, _
          Nothing)
        Label3.Text = text3