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
