::Descrição::
• esse sistema vai ter 50 número para ser sorteado, todos com a mesma chance de cair igual

::Requerimentos::
•Programação : 1/5
•Computador (obvio)

::Trabalhar::
•Client~Side

::Tutorial::
• bom pessoal primeiramente crie uma nova Form, e coloque o nome dela de frmSorteio, deixe ela do seu modo que preferir, então dentro dessa frmSorteio, coloque 2 Labeis, 1 Command Button, mudo a Name de uma label para lbl10 e deixe mais ou menos assim

Label1: lbl10
Command Button

agora mude a Name do buttao para cdmGerar dentro do cdmGerar(command Buttao) adicione esse codigo

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


Bom pessoal é isso como eu disse é um mini sistema sabes, mais funciona 100%, testado por min, ele é bom para fazer eventos do tipo rifa, etc, mais usem do modo que quiserem.
::Screen::


::Creditos::
• Gu1lh3rm3 - Por criar
• Montevechi - por postar aqui.