Private Function MeasureString(ByVal Text As String, ByVal FontName As _
      String, ByVal FontSize As Single, ByVal Breite As Double) As Double
        Dim Bitmap As Bitmap
        Dim Graphic As Graphics
        Dim Font As New Font(FontName, FontSize)
        Dim measureStringSF As SizeF
 
        Bitmap = New Bitmap(1, 1)
        Graphic = Graphics.FromImage(Bitmap)
        measureStringSF = Graphic.MeasureString(Text, Font)
        Graphic.Dispose()
        Bitmap.Dispose()
 
 
 
        If measureStringSF.Width > Breite Then
            MeasureString = (measureStringSF.Width / Breite) * _
              measureStringSF.Height
        Else
            MeasureString = measureStringSF.Height
        End If
 
        Return MeasureString
    End Function