Private Sub Timer1_Timer()
  Dim Result&, Handle&, Parent, Buffer$, Class$
  Dim child As Long
 
  Parent = FindWindow(vbNullString, "Timer")
  Do
    Handle = FindWindowEx(Parent, child, "ThunderRT6TextBox", vbNullString)
    If Handle = 0 Then Exit Do
 
    child = Handle 
    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)
    Debug.Print Left$(Buffer, Result)
  Loop
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de