→→→お絵かき

Private Sub PictureBox1_MouseMove(ByVal sender As Object,
                                        ByVal e As System.Windows.Forms.MouseEventArgs)
                                               Handles PictureBox1.MouseMove
    Dim g  As Graphics = sender.CreateGraphics()
    If e.Button = MouseButtons.Left Then
          g.FillEllipse( Brushes.Red , e.X , e.Y , 10 , 10)
    ElseIf e.Button = MouseButtons.Right Then
          g.FillEllipse( Brushes.Blue , e.X , e.Y , 10 , 10)
    End If
End Sub