Public Class Form1  
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim f As Font = New Font("Arial", 12)
        Dim hoch, breit As Int32
        hoch = e.Graphics.MeasureString("A", f).Height
        For i As Int32 = 0 To 25
            breit = e.Graphics.MeasureString(Chr(i + 65), f).Width
            e.Graphics.DrawString(Chr(i + 65) & vbTab & breit & " x " & hoch, _
              f, Brushes.Black, 10, i * 20)
        Next
    End Sub
End Class