Private Sub Timer1_Timer()
 
  Static lasthwnd As Long
 
  Dim oPoint As POINTAPI
  Dim hWnd As Long, i As Long
  Dim lLength As Long
  Dim buffer() As Byte
 
  ' Mausposition ermitteln
  If GetCursorPos(oPoint) <> 0 Then
    ' Fensterhandle des Controls, auf dem sich
    ' der Mauszeiger befindet
    hWnd = WindowFromPoint(oPoint.x, oPoint.y)
 
    'Fenster gewechselt (seit letztem Timer-Event)
    If lasthwnd <> hWnd Then
       'Textlänge ermitteln
       lLength = SendMessage(hWnd, WM_GETTEXTLENGTH, 0&, 0&)
 
       Me.Caption = ""
       'Text vorhanden?
       If lLength > 0 Then
 
          'Buffer einrichten  
          ReDim buffer(lLength) As Byte
 
          'Text abfragen 
          SendMessage hWnd, WM_GETTEXT, lLength + 1, buffer(0)
 
          'Buffer-Bytefolge in String umwandeln
          Dim strg As String
          strg = Space(lLength + 1)
          For i = 0 To lLength
             If buffer(i) <> 0 Then
                Mid(strg, i + 1, 1) = Chr(buffer(i))
             End If
          Next i
 
          'Infozeile im Fensterkopf ausgeben
          Me.Caption = _
          "Handle: " & CStr(hWnd) & _
          "   x= " & cstr(oPoint.x) & " y= " & cstr(oPoint.y) & _
          "  Länge = " & CStr(lLength)
 
          'Text in Control übertragen          
          RichTextBox1.Text = strg
          RichTextBox1.SelStart = Len(RichTextBox1.Text)
 
          'Fensterhandle notieren 
          lasthwnd = hWnd
 
       End If 'lLength > 0
    End If    'LastHwnd <> hWnd
  End If      'GetCursorPos
 
End Sub