vb selección aleatoria de dos colores
Private Sub Command1_Click()
Dim strTem como cadena
Dim intTem como entero
Dim sName() como cadena
Dim i como Entero
Dim j como entero
Dim iTemp como entero
Dim aa como entero
Dim strTem como cadena
Dim intTem como entero
Dim sName() como cadena
Dim i como Entero
Dim j como entero
Dim iTemp como entero
Dim aa como entero