Option Explicit
Private Sub OKButton_Click()
Dim mine As Integer
Dim j, k, i As Long
For i = 0 To 224
Form1.Command1(i).Enabled = True
Form1.Command1(i).BackColor = &H8000000F
Form1.Command1(i).Tag = ""
Form1.Command1(i).Caption = ""
Form1.Command1(i).Picture = Nothing
Next i
If Numine.Text <> "" Then
If IsNumeric(Numine.Text) Then
If Numine.Text >= 2 And Numine.Text <= 150 Then
Form1.nummine.Caption = Dialog.Numine.Text
mine = Numine.Text
For j = 1 To mine
ciclo:
Randomize Timer
k = Int(Rnd * 224)
If Form1.Command1(k).Tag = "M" Then GoTo ciclo
Form1.Command1(k).Tag = "M"
'Form1.Command1(k).Caption = "M"
Next j
Unload Me
Else: MsgBox "allora 6 proprio un idiota??????"
End If
End If
End If
End Sub
