Public Class Form1
    Dim iPos As Integer
    Dim sStr As String = "L E E R Z E I C H E N"
    Dim oPen As Pen = New Pen(Brushes.Black, 2)
 
    Private Sub Form1_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Click
        Dim gra As Graphics = Me.CreateGraphics
        Dim iX As Integer
 
        iPos += 1
        If iPos > sStr.Length Then iPos = 0
 
        gra.Clear(Me.BackColor)
        gra.DrawString(sStr, Me.Font, Brushes.Black, 0, 0)
        iX = CInt(gra.MeasureString(Mid$(sStr, 1, iPos), Me.Font).Width)
        Me.CreateGraphics.DrawLine(oPen, iX, 0, iX, 20)
 
        gra.DrawString("Position   = " & iPos, Me.Font, Brushes.Black, 0, 30)
        gra.DrawString("Teilstring = >" & Mid$(sStr, 1, iPos) & "<", _
          Me.Font, Brushes.Black, 0, 50)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Font = New Font("Courier New", 13)
    End Sub

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.