Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Function GetStringLengthAsPixel(ByVal temp As String, ByVal _
      font2use As Font) As SizeF
        Dim b As New Bitmap(500, 50)
        Dim g As Graphics = Graphics.FromImage(b)
        Return g.MeasureString(temp, font2use)
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim s As SizeF = GetStringLengthAsPixel(Me.TextBox1.Text, _
        Me.TextBox1.Font)
        MessageBox.Show("Dieser String ist " & s.Width.ToString & " Pixel lang" & _
        "und " & s.Height.ToString & " Pixel hoch")
    End Sub
End Class