Untitled

Private Sub btn_euromilhoes_gerar1_Click()
Dim vec1(5) As Boolean
Dim vec2(2) As Byte

Dim i As Integer
Dim j As Integer

Cls 'limpa o form

For i = 0 to 5
  vec2(i) = false
Loop

For i = 0 to 2
    do While vec1(vec2(i) - 1) = true
      vec2(i) = Int(49 * Rnd) + 1
    vec1(vec2(i) - 1) = true;
Loop

End sub