Public Class frmTextWidth
 
    Dim pb As New PictureBox With {.Parent = Me, .Dock = DockStyle.Fill}
    Dim bmp As New Bitmap(300, 300)
 
 
    Private Sub frmTextWidth_Load(sender As Object, _
        e As EventArgs) Handles MyBase.Load
 
        Dim txt As String = "Irgendein Text"
        Dim fo As New Font("Arial", 14, FontStyle.Bold)
 
        Using gr As Graphics = Graphics.FromImage(bmp),
                br As New SolidBrush(Color.Black)
            With gr
                .Clear(Color.White)
                .DrawString(txt, fo, br, New Point(20, 20))
                Dim ts As SizeF = .MeasureString(txt, fo)
                .FillRectangle(br, ts.Width + 20, 20, ts.Height, ts.Height)
            End With
        End Using
 
        pb.Image = bmp
 
    End Sub
End Class