Tema: Al azar
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 17/05/2011, 04:39
Avatar de culd
culd
 
Fecha de Ingreso: noviembre-2003
Mensajes: 959
Antigüedad: 20 años, 6 meses
Puntos: 19
Respuesta: Al azar
Código vb: 
Ver original
  1. Private Sub Command1_Click()
  2. List1.ListIndex = Int(List1.ListCount * Rnd + 0)
  3. End Sub

Espero que te sirva