【正文】
? Unload Me ? End Sub ? Private Sub Form_DblClick() ? Cls ? End Sub ? Private Sub Form_Load() ? DrawWidth = 4 ? ForeColor = RGB(255, 0, 0) ? End Sub ? Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ? paintnow = True ? End Sub ? Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ? If paintnow Then ? PSet (X, Y) ? End If ? End Sub ? Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) ? paintnow = False ? End Sub ? Dim trace As Boolean ? Private Sub