Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Label1.Text = "1234567890Guten Tag"
    End Sub
 
    Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
        For i As Int32 = 0 To Label1.Text.Length - 1
            If e.X < TextRenderer.MeasureText(Label1.Text.Substring(0, i + 1), _
              Label1.Font).Width - 2 Then
                Me.Text = i.ToString & " -> " & Label1.Text.Substring(i, 1)
                Exit For
            End If
        Next
    End Sub
End Class