Use of Click and DblClick

Private Sub Form_Click()

Form1.BackColor = RGB(255, 0, 0)

End Sub

Private Sub Form_DblClick()

Form1.BackColor = RGB(255, 255, 0)

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

Form1.BackColor = RGB(255, 255, 255)

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Form1.BackColor = RGB(0, 0, 0)

End Sub