Stopping the Double Clickers

Try this:

Dim dclicked As Integer

Private Sub Form_Load()
dclicked = 0
End Sub

Private Sub Command1_Click()
dclicked = dclicked + 1
If dclicked = 2 Then
Msgbox "You clicked already! NO MORE!", vbCritical
End If
End Sub