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 examineLine As New examine
            g.SmoothingMode = SmoothingMode.HighQuality
            g.DrawLine(m_drawPen, m_prevPoint, currentPoint)
            g.Dispose()
 
            m_drawLine.AddLine(m_prevPoint, currentPoint)
            m_prevPoint = currentPoint
 
 
        End If
    End Sub