Dim ex As Integer
    Private Sub PictureBox1_MouseMove(sender As Object, e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        ex = e.X
        PictureBox1.Invalidate()
    End Sub
 
    Private Sub PictureBox1_Paint(sender As Object, e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim gra As Graphics = e.Graphics
        iPos = ex \ CInt(gra.MeasureString("X", oFont, Integer.MaxValue, _
          strFormat).Width)
        If iPos > sStr.Length Then iPos = sStr.Length
        Dim iCharW As Single = gra.MeasureString("X", oFont, Integer.MaxValue, _
          strFormat).Width
        Dim iMitte As Integer = sStr.Length \ 2
        Dim iCenter As Single = iCharW * iMitte
        Dim iLeft As Integer
        Dim iRight As Integer
 
        If iPos < iMitte Then
            iLeft = iPos
            iRight = iMitte
        ElseIf iPos > iMitte Then
            iLeft = iMitte
            iRight = iPos
        Else
            Exit Sub
        End If
 
        'Text markieren
        Dim iX As Single = iLeft * iCharW
        Dim iWidth As Single = (iRight - iLeft) * iCharW
 
        gra.FillRectangle(Brushes.Blue, iX, 20, iWidth, 25)
        gra.DrawString(sStr, oFont, Brushes.Black, 0, 20, strFormat)
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist