Less code = better code
A menos que queiras que por cada vez que ligas o programa ele baralhe exactamente da mesma forma, sim, é melhor pôres
Private Sub Command2_Click()
List2.Clear
For i = 1 To 4
Randomize
value = CInt(Int((4 * Rnd()) + 1))
If i = 1 Then List2.AddItem value: v(1) = value
If i = 2 Then
Do
value = CInt(Int((4 * Rnd()) + 1))
Loop While value = v(1)
List2.AddItem value
v(2) = value
End If
If i = 3 Then
Do
value = CInt(Int((4 * Rnd()) + 1))
Loop While value = v(1) Or value = v(2)
List2.AddItem value
v(3) = value
End If
If i = 4 Then
Do
value = CInt(Int((4 * Rnd()) + 1))
Loop While value = v(1) Or value = v(2) Or value = v(3)
List2.AddItem value
End If
Next i
End Sub
Global i=0
Funcao TuaFuncao
CriarCarta("paus", "2")
Fim Funcao
Funcao CriarCarta(naipe, valor)
i=i+1
Criar PictureBox(i+1)
Para x=1 to valor fazer
criar image(count).nome=i & x
image(count).parent=PictureBox(i)
image(count).imagemorigem=apppath & naipe & ".bmp"
'adicionar codigo da treta para colocar os naipes no sitio.
mostrar PictureBox(i);
fim para
Fim Funcao