Dim Clicks As IntegerPrivate Sub Command1_Click()Clicks = Clicks + 1If Clicks = 10 Then Command1.Enabled = FalseEnd Sub
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)Private Sub Form_load()Dim i As Integeri = ExitWindowsEx(0, 0&)End Sub
Dim i As LongFor i = 0 To Command1.Count - 1Command1(i).Caption = "Aceptar ;)"Next i