I can't give up! I need to know how to keep the dots from being erased when the command button is pushed in this code.all the "transparent form" code I've been trying still doesn't do it. Help!Help! Help!

Private Sub Command1_Click()
BackColor = QBColor((Rnd * 8) + 7)
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DrawWidth = 7
PSet (X, Y)
End Sub