Cómo utilizar el control ComboBox en VB
Private Sub Combo1_Click()
Atenuar A como entero
Si Combo1.Text = "Grande" Entonces
A = 2
Texto1 .Text = A
ElseIf Combo1.Text = " Small" Then
A = 1
Text1.Text = A
Fin Si
Fin Sub
Atenuar A como entero
Si Combo1.Text = "Grande" Entonces
A = 2
Texto1 .Text = A
ElseIf Combo1.Text = " Small" Then
A = 1
Text1.Text = A
Fin Si
Fin Sub