Public Class Form1
    Dim cFont As String = "Microsoft Sans Serif"
    Dim fStyle As FontStyle = FontStyle.Regular
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.SetBounds(100, 100, 720, 465)
        ListBox1.SetBounds(500, 10, 200, 370)
        ListBox2.SetBounds(500, 385, 200, 50)
        PictureBox1.SetBounds(10, 10, 480, 420)
        ListBox2.Items.Add("Standard")
        ListBox2.Items.Add("Kursiv")
        ListBox2.Items.Add("Fett")
        For Each ff As FontFamily In FontFamily.Families
            ListBox1.Items.Add(ff.Name)
        Next
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        cFont = CStr(ListBox1.SelectedItem)
        PictureBox1.Refresh()
    End Sub
 
    Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
        Select Case CStr(ListBox2.SelectedItem)
            Case "Standard"
                fStyle = FontStyle.Regular
            Case "Kursiv"
                fStyle = FontStyle.Italic
            Case "Fett"
                fStyle = FontStyle.Bold
        End Select
        PictureBox1.Refresh()
    End Sub
 
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        e.Graphics.Clear(Color.Black)
        For y As Int32 = 2 To 15
            For x As Int32 = 0 To 15
                Try
                    e.Graphics.DrawString(Chr(x + y * 16), New Font(cFont, 16, _
                      fStyle), Brushes.Yellow, x * 30, -60 + y * 30)
                Catch ex As Exception
                    Exit Sub
                End Try
            Next
        Next
    End Sub
 
End Class