Option Explicit
 
Private Declare Function SendMessage Lib "user32" Alias _
        "SendMessageA" (ByVal hwnd As Long, ByVal wMsg _
        As Long, ByVal wParam As Long, ByVal lParam As _
        Any) As Long
 
Private Declare Function GetClassName Lib "user32" Alias _
        "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName _
        As String, ByVal nMaxCount As Long) As Long
 
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
    lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal _
    hWnd1 As Long, ByVal hwnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As _
        String) As Long
 
        Const WM_SETTEXT = &HC
Const WM_GETTEXT = &HD
 
 
Private Sub Form_Load()
Me.WindowState = 2
End Sub
 
 
Private Sub Timer1_Timer()
Dim Result&, Handle&, Parent, Buffer$, Class$
 
  Parent = FindWindow(vbNullString, "Timer")
  Handle = FindWindowEx(Parent, 0&, "ThunderRT6TextBox", vbNullString)
 
    Class = Space$(128)
    Result = GetClassName(Handle, Class, 128)
    Class = LCase(Left$(Class, Result))
 
 
        Buffer = Space$(32767)
        Result = SendMessage(Handle, WM_GETTEXT, Len(Buffer), _
                             ByVal Buffer)
        Label1(0).Caption = Left$(Buffer, Result)
 
End Sub