Public Class Form1
    Dim WithEvents Pb As New PictureBox With {.Dock = DockStyle.Fill, _
      .BackColor = Color.Black, .Parent = Me}
    Dim Fo As New Font("Arial", 40)
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Width = 700
    End Sub
 
    Private Sub Pb_Paint(sender As Object, e As PaintEventArgs) Handles Pb.Paint
        Dim s As String = "Alle meine Entchen"
        Dim gr As Graphics = e.Graphics
 
        Dim si As Size = TextRenderer.MeasureText(s, Fo, New Size, _
          TextFormatFlags.NoPadding)
        TextRenderer.DrawText(gr, s, Fo, New Point(0, 0), Color.Black, _
        Color.White, TextFormatFlags.NoPadding)
        gr.DrawRectangle(Pens.Red, New Rectangle(0, 0, si.Width, si.Height))
 
        si = TextRenderer.MeasureText(gr, s, Fo, New Size, _
          TextFormatFlags.NoPadding)
        TextRenderer.DrawText(gr, s, Fo, New Point(0, 100), Color.Yellow, _
        Color.Blue, TextFormatFlags.NoPadding)
        gr.DrawRectangle(Pens.White, New Rectangle(0, 100, si.Width, si.Height))
    End Sub
End Class