Dim bEnabled As Boolean
 
Private Sub cmdCheck_Click()
Static bProcess As Boolean
 
If bProcess Then Exit Sub
bProcess = True
 
bEnabled = Not bEnabled
 
cmdCheck.ForeColor = IIf(bEnabled, vbBlack, vbGrayText)
cmdCheck.Value = vbUnchecked
bProcess = False
 
If bEnabled Then Exit Sub
 
Debug.Print "Click"
End Sub
 
Private Sub Form_Load()
bEnabled = True
End Sub