Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim x As Integer = 100
        Dim y As Integer = 40
        Dim f As Font
        If Me.CheckBox1.Checked Then
            f = New Font("Tahoma", 10, FontStyle.Bold)
        Else
            f = New Font("Arial", 36, FontStyle.Bold)
        End If
        Debug.WriteLine(f.Name)
        e.Graphics.DrawString("LabCalculator 2006", f, Brushes.Red, CInt(x * _
          0.28), CInt(y * 0.015))
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Me.Refresh() '// Nur zum testen..
    End Sub