Private Sub T_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles T.Tick
        Dim hfw = GetForegroundWindow
        If hfw <> Me.Handle Then
            Dim sb As New StringBuilder(256)
            SendMessage(hfw, WM_GETTEXT, sb.Capacity, sb)
            If sb.ToString = "Info" Then
                Dim hnd() = GetChildWindows(hfw) 'Demo= 4, 2x Btn + Icon + Text 
                SendMessage(hnd(hnd.Count - 1), WM_GETTEXT, sb.Capacity, sb)
                Dim txt As String = sb.ToString.Split("("c, ")"c)(1)
                SendKeys.Send("{Enter}")
                'Me.Text = txt  'bzw My.Computer.Clipboard.SetText(txt)
                My.Computer.Clipboard.SetText(txt)
            End If
        End If
    End Sub

Dim txt As String = sb.ToString.Split("("c, ")"c)(1)