Public Class Form1
 
    Private myfont As New Font("Arial", 12, FontStyle.Regular, _
      GraphicsUnit.Pixel)
    Private strTest As String = "Das ist ein Test der 3 Punkte machen sollte!"
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim b As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height)
        Dim g As Graphics = Graphics.FromImage(b)
        g.DrawString(GetTextLength("", 0), myfont, Brushes.Black, 0, 20)
        Me.PictureBox1.Image = b
        g.Dispose()
        g = Nothing
    End Sub
 
    Private Function GetTextLength(ByVal text As String, ByVal pos As Integer) _
      As String
        Dim ext As Integer = TextRenderer.MeasureText("...", myfont).Width
        Dim temp As String = text & strTest.Substring(pos, 1)
        If TextRenderer.MeasureText(temp, myfont).Width + ext < _
          Me.PictureBox1.Width Then
            Return GetTextLength(temp, pos + 1)
        Else
            Return temp & "..."
        End If
    End Function
End Class