Рисование мышкой. При нажатии левой кнопки мыши и ее перемещении рисуется кривая

Public Class Form1
 
    Private MouseLelfDown As Boolean = False
    Private MouseCoords As Point
 
    Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        If e.Button = MouseButtons.Left Then
            MouseLelfDown = True
            MouseCoords = e.Location
        Else
            MouseLelfDown = False
        End If
    End Sub
 
    Private Sub Form1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
        MouseLelfDown = False
    End Sub
 
    Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        If MouseLelfDown Then
            Dim g As Graphics = Graphics.FromHwnd(Me.Handle) 'или =CreateGraphics()
            g.DrawLine(New Pen(Color.Black, 1), MouseCoords, e.Location)
            MouseCoords = e.Location
        End If
    End Sub
End Class

Public Class Form1
    Dim Лист As Bitmap
    Dim Гр, Граф As Graphics                         'Объекты класса Graphics над Листом и над формой
    Dim Кисть As New SolidBrush(Color.Black)        'Цвет карандаша поначалу черный
    Dim Толщина As Integer = 3
 
    Dim Перо As New Pen(Color.Black, 3)       'Цвет карандаша поначалу черный, толщина=3
    'Координаты мыши при предыдущем (перед текущим) наступлении события MouseMove:
    Dim X_предыдущее As Long
    Dim Y_предыдущее As Long
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Лист = New Bitmap(Me.Width, Me.Height)
        Гр = Graphics.FromImage(Лист)
        Граф = Me.CreateGraphics
        Перо.StartCap = Drawing2D.LineCap.Round     'Иначе линия получается не гладкая
        Перо.EndCap = Drawing2D.LineCap.Round
    End Sub
 
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles MyBase.MouseMove
        If e.Button = MouseButtons.Left Then
            'Рисуем отрезок прямой от текущего положения мыши до предыдущего:
            Гр.DrawLine(Перо, e.X, e.Y, X_предыдущее, Y_предыдущее)
            Граф.DrawLine(Перо, e.X, e.Y, X_предыдущее, Y_предыдущее)
            'Запоминаем текущее положение мыши для будущего срабатывания MouseMove, 
            'когда оно будет уже предыдущим:
            X_предыдущее = e.X
            Y_предыдущее = e.Y
        End If
    End Sub
 
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles MyBase.MouseDown
        'В начальный момент рисования, когда мы только нажимаем кнопку мыши, 
        'предыдущее и текущее положения мыши совпадают:
        X_предыдущее = e.X
        Y_предыдущее = e.Y
    End Sub
 
  Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
        Лист = New Bitmap(Me.Width, Me.Height)
        Гр = Graphics.FromImage(Лист)
        Граф = Me.CreateGraphics
    End Sub
End Class

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If SaveFileDialog1.ShowDialog() = DialogResult.Cancel Then Exit Sub
        Dim Файл As String = SaveFileDialog1.FileName
        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
        Лист.Save(Файл)
    End Sub

Public Class Form1
    Dim points As Point()
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.DoubleBuffered = True
    End Sub
    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove
        If (e.Button = Windows.Forms.MouseButtons.Left) Then
            points(points.Length - 1) = e.Location
            Me.Refresh()
        End If
    End Sub
 
    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
        If (points Is Nothing) Then
            points = New Point(0) {}
            Return
        ElseIf (points.Length < 2) Then
            Array.Resize(Of Point)(points, points.Length + 1)
            Return
        End If
        e.Graphics.DrawCurve(Pens.Black, points)
        Array.Resize(Of Point)(points, points.Length + 1)
    End Sub
End Class