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 str As String = "ABCD56789 i Q y {}³z", s = "", sz As Size
        For i = 1 To str.Length
            s = str.Substring(0, i)
            sz = TextRenderer.MeasureText(e.Graphics, s, Fo, New Size, _
              TextFormatFlags.NoPadding)
            TextRenderer.DrawText(e.Graphics, s, Fo, New Point(0, 0), _
            Color.Yellow, TextFormatFlags.NoPadding)
            e.Graphics.DrawRectangle(Pens.White, New Rectangle(New Point(0, 0), _
            sz))
        Next
    End Sub
End Class