Duda - Randomize List Box ( SOLUCIONADO )

[VirucKingX]

Le explico mi duda tengo un list box con varias rutas de archivos en el, y lo que quiero hacer que me selecione una ruta del list en forma aleatoria ( con repeticion ), realmente no se como hacerlo xD haber si me pueden dar una mano.

Bye. 

[Freeze.]

Haces un numero Random y lo comparas con el Index del ListBox (Del item obvio xD)

[[{O_o}]]

Bueno esta seria una forma Usando un command espero que sea de tu ayuda!

Private Sub Command1_Click()
Dim n As Integer
    Randomize
        n = Int(Rnd * 5)  ' El numero depende de la cantidad de datos del list
        List1.ListIndex = n '
End Sub

Private Sub Form_Load()
List1.AddItem ("c:\State Of Trances"), 0
List1.AddItem ("c:\Dj Tiesto"), 1
List1.AddItem ("c:\Sven Vah"), 2
List1.AddItem ("c:\David Guetta"), 3
List1.AddItem ("c:\Roger Sanchez"), 4
End Sub

[VirucKingX]

Listo aca este el code bastante simple y tonto 

Option Explicit

Private Sub Command1_Click()
Dim n As Integer
    Randomize
        n = Int(Rnd * List1.ListCount)
                Text1.Text = List1.List(n)
       
End Sub

Private Sub Form_Load()
List1.AddItem ("c:\State Of Trances"), 0
List1.AddItem ("c:\Dj Tiesto"), 1
List1.AddItem ("c:\Sven Vah"), 2
List1.AddItem ("c:\David Guetta"), 3
List1.AddItem ("c:\Roger Sanchez"), 4
End Sub

Bye y gracias