mousepaintcode

Private thecolor As Color = Color.Red
    Private shouldpaint As Boolean = False
    Private blobsize As Integer = 3
    Private graphicsobj As Graphics
    Private x, y As Integer

    Private Sub pnlpaint_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlpaint.MouseDown
        shouldpaint = True
    End Sub

Private Sub pnlpaint_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlpaint.MouseUp
shouldpaint = False

End Sub

    Private Sub pnlpaint_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlpaint.MouseMove
        If shouldpaint Then
            graphicsobj.FillEllipse(New SolidBrush(thecolor), e.X, e.Y, blobsize, blobsize)
            x = e.X
            y = e.Y
        End If
    End Sub

    Private Sub rbsmall_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbsmall.CheckedChanged
        blobsize = 3
    End Sub

    Private Sub rbmedium_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbmedium.CheckedChanged
        blobsize = 8
    End Sub

    Private Sub rblarge_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rblarge.CheckedChanged
        blobsize = 10
    End Sub

    Private Sub rbblack_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbblack.CheckedChanged
        If rbblack.Checked Then
            thecolor = Color.Black
        End If
    End Sub

    Private Sub rbgreen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbgreen.CheckedChanged
        If rbgreen.Checked Then
            thecolor = Color.Green
        End If
    End Sub

    Private Sub rbblue_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbblue.CheckedChanged
        If rbblue.Checked Then
            thecolor = Color.Blue
        End If
    End Sub

    Private Sub rbred_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbred.CheckedChanged
        If rbred.Checked Then
            thecolor = Color.Red
        End If
    End Sub

    Private Sub pnlpaint_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlpaint.MouseLeave
        shouldpaint = False
    End Sub

    Private Sub pnlpaint_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles pnlpaint.Paint
        If shouldpaint Then
            graphicsobj.FillEllipse(New SolidBrush(thecolor), X, Y, blobsize, blobsize)
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        graphicsobj = pnlpaint.CreateGraphics()
    End Sub

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

End Sub
End Class