mickael
Power Member
pessoal tenho um problema em vb... eu mostro o codigo depois explico...
queria que a segunda lista mostrasse os mesmos numeros que na 1ª mx invertidos...
Código:
Private Sub cmd_Click()
Dim I As Integer
Dim num As Integer
Lst1.Clear
Randomize
For I = 1 To 20
num = Int(50 * Rnd) + 1
Lst1.AddItem num
Next
For I = 20 To 1 Step -1
num = (50 * Rnd) + 1
Lst2.AddItem num
Next
End Sub
queria que a segunda lista mostrasse os mesmos numeros que na 1ª mx invertidos...