QuadDraw revisited - drawing program work in progress

[James D Jarvis]

This was too much fun to fiddle with. 
I added 2 button commands (with no menu support) to see how they'd work.
Changing the brush color is useful. The eraser...not so much.

Code: (Select All)

            Case "B"
'change brush color
                If blk& = _RGB(0, 0, 0) Then
                    blk& = ColorPicker&(200, 150)
                Else
                    blk& = _RGB(0, 0, 0)
                End If
            Case "E"
'turn eraser on and off
                If blk& = _RGB(0, 0, 0) Then
                    blk& = wht&
                Else
                    blk& = _RGB(0, 0, 0)
                End If