Tutorial | Como crear un Paint

Referencia:https://www.youtube.com/watch?v=oxy5WxsFEd4

Declaraciones globales:
    Dim down = False
    Dim ColorPEN = Brushes.Black

PictureBox1, Evento MouseMove:
    If down = True Then
        PictureBox1.CreateGraphics.FillEllipse(ColorPEN, e.X, e.Y, 15, 15)
    End If

PictureBox1, Evento MouseUp:
    down = False

Botón abrir imagen:
    OpenFileDialog1.ShowDialog()
    PictureBox1.ImageLocation = (OpenFileDialog1.FileName)