Protected Overrides Sub OnPaint(ByVal e As _
      System.Windows.Forms.PaintEventArgs)
        Dim Number As String
        Dim piePen As Pen
 
 
        ' Nummern werden gezeichnet
        If m_Visible Then
            For Each Number In m_Numbers
                Dim pPoint As Point
                pPoint = m_arCoords.Item(Number - 1)
                m_drawNumbers.StartFigure()
                'e.Graphics.DrawPie(New Pen(Brushes.Black, 3), pPoint.X, 
                ' pPoint.Y, 30, 30, 0, 360)
                'e.Graphics.FillPie(Brushes.CadetBlue, pPoint.X, pPoint.Y, 30, 
                ' 30, 0, 360)
                e.Graphics.DrawString(Number, New Font("Arial", 10, _
                  FontStyle.Bold), Brushes.Black, pPoint.X + 7, pPoint.Y + 5)
                m_drawNumbers.CloseFigure()
            Next
        End If
 
    End Sub

#Region " Form1 Paint und Mousebewegungen - Freihandzeichnen "
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        e.Graphics.DrawPath(m_drawPen, m_drawLine)
    End Sub
 
    Protected Overrides Sub OnMouseDown(ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        If e.Button = MouseButtons.Left Then
            m_prevPoint.X = e.X
            m_prevPoint.Y = e.Y
            m_drawLine.StartFigure()
        End If
    End Sub
 
    Protected Overrides Sub OnMouseMove(ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        If e.Button = MouseButtons.Left Then
            Dim g As Graphics = Me.CreateGraphics
            Dim currentPoint As Point = New Point(e.X, e.Y)
            Dim examineNumber As New examine
            g.SmoothingMode = SmoothingMode.HighQuality
            g.DrawLine(m_drawPen, m_prevPoint, currentPoint)
            g.Dispose()
 
            m_drawLine.AddLine(m_prevPoint, currentPoint)
 
            'examineNumber.examineNumber(currentPoint, m_drawNumbers)
            m_prevPoint = currentPoint
 
        End If
    End Sub
 
    Protected Overrides Sub OnMouseUp(ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        m_drawLine.CloseFigure()
    End Sub
#End Region