Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim myFont As Font = New Font("Courier New", 12, FontStyle.Bold)
        Label1.AutoSize = False
        Label1.Font = myFont
        Label1.Text = "Hannes"
        Label1.Width = 12
        Label1.Height = 120
        myFont.Dispose()
    End Sub