Private Sub Form1_Click(ByVal sender As Object, ByVal e As  _
      System.EventArgs) Handles Me.Click
        Dim gra As Graphics = Me.CreateGraphics()
 
        iPos += 1
        If iPos > sStr.Length Then iPos = 0
 
        gra.Clear(Me.BackColor)
        Dim strFormat As New StringFormat(StringFormat.GenericTypographic) With _
          {.FormatFlags = StringFormatFlags.MeasureTrailingSpaces}
        gra.DrawString(sStr, Me.Font, Brushes.Black, 0, 0, strFormat)
 
        Dim teilStr As String = sStr.Substring(0, iPos)
        Dim iX As Integer = CInt(gra.MeasureString(teilStr, Me.Font, _
          Integer.MaxValue, strFormat).Width)
        gra.DrawLine(oPen, iX, 0, iX, 20)
 
        gra.DrawString("Position   = " & iPos, Me.Font, Brushes.Black, 0, 30)
        gra.DrawString("Teilstring = >" & teilStr  & "<", _
          Me.Font, Brushes.Black, 0, 50)
 
        gra.Dispose()
    End Sub