Рисование на PictureBox мышкой

    Dim Pt As Point
    Dim P As New Collection
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Pts(P.Count - 1) As Point
        For I As Integer = 0 To Pts.Length - 1
            Pts(I) = P(I + 1)
        Next
        Dim g As Graphics = Me.CreateGraphics
        g.DrawCurve(Pens.Blue, Pts)
    End Sub
 
    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        Pt = e.Location
        P.Add(Pt)
    End Sub

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Math
 
Public Class Form1
 
    Dim line = False
    Dim colors() As String = New String() {"Черный", "Красный", "Зеленый", "Синий", "Желтый"}
    Dim figura As Object
    Dim queue_points_x As New Queue()
    Dim queue_points_y As New Queue()
        Dim Regim As Integer
 
    Private Sub Mouse_Click(ByVal sender As System.Object, ByVal e As MouseEventArgs) Handles Me.Click
 
        queue_points_x.Enqueue(e.X)
        queue_points_y.Enqueue(e.Y)
 
        If queue_points_x.Count > 1 And queue_points_y.Count > 1 Then
            Drawing()
        End If
    End Sub
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.AddRange(colors)
    End Sub
 
    Private Sub Drawing()
 
        Dim x1, x2, y1, y2, x3, x4, y3, y4 As Integer
        Dim gr As Graphics = Me.CreateGraphics()
        If Regim = 2 And queue_points_x.Count > 3 And queue_points_y.Count > 3 Then
            x1 = queue_points_x.Dequeue()
 
            y1 = queue_points_y.Dequeue()
            x2 = queue_points_x.Dequeue()
            y2 = queue_points_y.Dequeue()
            x3 = queue_points_x.Dequeue()
            y3 = queue_points_y.Dequeue()
            x4 = queue_points_x.Dequeue()
            y4 = queue_points_y.Dequeue()
 
 
            gr.DrawPolygon(Pens.Beige, New Point() {New Point(x1, y1), New Point(x2, y2), New Point(x3, y3), New Point(x4, y4)})
        ElseIf Regim = 1 Then
            x1 = queue_points_x.Dequeue()
 
            y1 = queue_points_y.Dequeue()
            x2 = queue_points_x.Dequeue()
            y2 = queue_points_y.Dequeue()
 
            gr.DrawLine(Pens.Beige, x1, y1, x2, y2)
        End If
        
    End Sub
 
 
  
    Private Sub ПрямоугольникToolStripMenuItem1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПрямоугольникToolStripMenuItem1.Click
        Regim = 2
    End Sub
 
    Private Sub ЛинияToolStripMenuItem1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЛинияToolStripMenuItem1.Click
        Regim = 1
    End Sub
End Class