PROGRAMA CON LISTBOX Y COMBOBOX   PRACTICA 20 AGRAGEREMOS LO SIGUIENTE:
1 LABEL
2 COMBOBOX EN LAS PROPIEDADES NAME PONEMOS LO SIGUIENTE: PARA EL COMBOBOX1cboSEXO, PARA EL COMBOBOX2 cboSEXO1
1 TEXBOX PARA EL TEXBOX EN LAS PROPIEDADES DE NAME EL SIGUIENTE: txtresultado
1 LISTBOX
5 COMMANBUTTON



Private Sub cboSEXO1_CLICK()
If cboSEXO1.Text = "A" Then
txtresultado.Text = "ALBERTO"
Else
End If
 
If cboSEXO1.Text = "B" Then
txtresultado.Text = "BENITO"
Else
End If
If cboSEXO1.Text = "C" Then
txtresultado.Text = "CARLOS"
Else
End If
If cboSEXO1.Text = "D" Then
txtresultado.Text = "DANIEL"
Else
End If
End Sub
 
 
Private Sub Command1_Click()
Dim a() As String
Dim i As Integer
a = Split(txtresultado, vbCrLf)
For i = 0 To UBound(a)
List1.AddItem a(i)
Next
End Sub
 
Private Sub Command2_Click()
End
End Sub
 
Private Sub Command3_Click()
List1.Clear
End Sub
 
Private Sub Command4_Click()
 
MsgBox ("SU SIGNIFICADO ES")
End Sub
 
Private Sub Command5_Click()
Clipboard.Clear
Clipboard.SetText txtresultado
With txtresultado
 .SelStart = 0
 .SelLength = Len(.Text)
 .SetFocus
End With
End Sub
 
'MUJER
Private Sub Form_Load()
cboSEXO.Clear
cboSEXO.AddItem "A"
cboSEXO.AddItem "B"
cboSEXO.AddItem "C"
cboSEXO.AddItem "D"
'HOMBRE
cboSEXO1.Clear
cboSEXO1.AddItem "A"
cboSEXO1.AddItem "B"
cboSEXO1.AddItem "C"
cboSEXO1.AddItem "D"
 
End Sub
'En el combo1:
Private Sub cboSEXO_Click()
If cboSEXO.Text = "A" Then
txtresultado.Text = "ALICIA"
Else
End If
 
If cboSEXO.Text = "B" Then
txtresultado.Text = "BEATRIZ"
Else
End If
If cboSEXO.Text = "C" Then
txtresultado.Text = "CARLA"
Else
End If
If cboSEXO.Text = "D" Then
txtresultado.Text = "DANIELA"
Else
End If
End Sub
  BOTONES CON LINEA Y MENSAJE DE TEXTO PRACTICA 21 AGRAGEREMOS LO SIGUIENTE:
2 COMMANBUTTON

CODIGO
Private Sub cmdAceptar_Click()
MsgBox ("Bienvenido")
End Sub
 
Private Sub cmdSalir_Click()
End
End Sub

PARA EL BOTON 1 CAMBIAR LAS PROPIEDADES DEL NAME POR:cmdAceptar
PARA EL BOTON 2 CAMBIAR LAS PROPIEDADES DEL NAME POR: cmdSalir
PARA PONER UNA LINEA EN LA PRIMERA LETRA DEL TEXTO EN EL BOTON SERIA ASI:
&SALIR EN LA OPCION CAPTION


  MENU EN EL FORMULARIO PRACTICA 22



CLICK DERECHO SOBRE EL FORMULARIO
MENU EDITOR
Y APARECERA EL MENU EDITOR
EN LA PROPIEDAD CAPTION PONEMOS EL NOMBRE DEL BOTON EJEMPLO: SIGUIENTE
EN LA PROPIEDAD NAME: EL NOMBRE DEL BOTON EJEMPLO BOTON1 
DESPUES SELECCIONAMOS SIGUIENTE PARA AGREGAR UN BOTON MAS CON LOS MISMO PASOS