MouseMove на форме - Visual Basic .NET - Ответ 4529696

Dim g As Graphics
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        g = PictureBox1.CreateGraphics
    End Sub
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If e.Button = MouseButtons.Left = True Then
            g.FillEllipse(Brushes.Black, e.X, e.Y, 5, 5)
        End If
    End Sub

Dim g As Graphics, gr As Graphics
    Dim bmp As Bitmap
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        bmp = New Bitmap(PictureBox1.Width, PictureBox1.Height)
        g = Graphics.FromImage(bmp)
        gr = PictureBox1.CreateGraphics
        PictureBox1.Image = bmp
    End Sub
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If e.Button = MouseButtons.Left = True Then
            g.FillEllipse(Brushes.Black, e.X, e.Y, 5, 5)
            gr.FillEllipse(Brushes.Black, e.X, e.Y, 5, 5)
            PictureBox1.Image = bmp
        End If
    End Sub