Bom esse e um sistema de Sorteio Vamos Lah'
crie uma nova Form, e coloque o nome dela de frmSorteio, deixe ela do seu modo que prefirir, intão dentro dessa frmSorteio, coloque 2 Labeis, 1 Command Button, mudo a Name de uma label para lbl10 e deixe mais ou menos assim
agora mude a Name do buttao para cdmGerar dentro do cdmGerar Adicione:
Creditos:Guilherme- MMORPGBR
crie uma nova Form, e coloque o nome dela de frmSorteio, deixe ela do seu modo que prefirir, intão dentro dessa frmSorteio, coloque 2 Labeis, 1 Command Button, mudo a Name de uma label para lbl10 e deixe mais ou menos assim
- Código:
Label1: lbl10
Command Button
agora mude a Name do buttao para cdmGerar dentro do cdmGerar Adicione:
- Código:
Dim pessoas As New Collection
Do While pessoas.Count <> 50
n = Int(Rnd() * 50) + 1
achou = False
For Each pessoa In pessoas
If pessoa = n Then
achou = True
End If
Next pessoa
If Not achou Then
pessoas.Add n
End If
Loop
grupo = 1
For i = 1 To 50 Step 4
lbl10 = pessoas(i)
grupo = grupo + 1
Next i
Creditos:Guilherme- MMORPGBR