Cita:
Iniciado por renga73 
Hola. Nesecito de su ayuda gente.
Por un lado tengo una lista de 10 nombres de varones. Guardados en un ListBox o un ComboBox, me da igual. Y un CommandButton1, al lado.
Y por otro lado una lista de 10 nombres de mujeres. Y un CommandButton2, al lado.
Lo q quiero es q al tildar el boton1, me elija aleatoriamente 1 nombre de la lista de varones y me lo muestre en un Label o un TextBox y al presionar el Boton 2, me haga lo mismo pero con los nombres de mujeres.
Muchas Gracias.
Saludos!
Utiliza Randomize para generar un número aleatorio, y seleccionas ese Ítem en el listado...
http://msdn.microsoft.com/library/sp...mRandomize.asp
Ejemplo:
Código:
Function RandomN(ByVal Max As Long)
Randomize Timer
RandomN = Fix(Rnd * (Max + 1))
End Function
Código:
Private Sub Command1_Click()
Label1.Caption = List1.List(RandomN(List1.ListCount - 1))
End Sub