sub ClearCanvas()
Clears the active drawing canvas