Public Class Form1
 
    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
 
    Declare Function SendMessageByString Lib "user32" _
                    Alias "SendMessageA" ( _
                    ByVal hWnd As Integer, _
                    ByVal wMsg As Integer, _
                    ByVal wParam As Integer, _
                    ByRef lparam As String) As String
 
    Private Const WM_GETTEXT As Integer = &HD
    Private Const WM_GETTEXTLENGTH As Integer = &HE
 
 
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
 
        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
 
        Dim text4 As New String(ChrW(0), text3)
        SendMessageByString(text2, WM_GETTEXT, (text3 + 1), text4)
        Label4.Text = ("Code: " & text4)
 
    End Sub
 
 
End Class