Private mZaehler As Integer
    Private mNenner As Integer
 
    Public Property Zaehler() As Integer
        Get
            Return mZaehler
        End Get
        Set(ByVal value As Integer)
            mZaehler = value
        End Set
    End Property
 
    Public Property Nenner() As Integer
        Get
            Return mNenner
        End Get
        Set(ByVal value As Integer)
            mNenner = value
        End Set
    End Property
 
    Private Sub Label1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Label1.Paint
        Label1.AutoSize = False
        Dim SizeF1 As SizeF = e.Graphics.MeasureString(Zaehler, Label1.Font, _
          1000)
        Dim SizeF2 As SizeF = e.Graphics.MeasureString(Nenner, Label1.Font, _
        1000)
        e.Graphics.DrawString(Zaehler, Label1.Font, Brushes.Black, 0, 0)
        e.Graphics.DrawLine(Pens.Black, 0, SizeF1.Height, SizeF2.Width, _
          SizeF1.Height)
        e.Graphics.DrawString(Nenner, Label1.Font, Brushes.Black, 0, _
        SizeF1.Height + 2)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Zaehler = 10
        Nenner = 100
    End Sub