Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim mydialog As New FontDialog
        If mydialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim g As Graphics
            Dim mybitmap As New Bitmap(200, 200, _
              Drawing.Imaging.PixelFormat.Format24bppRgb)
            g = Graphics.FromImage(mybitmap)
            g.DrawString("TEST", mydialog.Font, Brushes.Red, 10, 100)
            PictureBox1.Image = mybitmap
        End If
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus