Funcion Random entre 2 cosas

[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!

[David]

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