El uso del control combox en vb

'Agrega el formulario Form1, los botones Command1, Command2, Command3, el cuadro combinado Combo1 y luego agrega el siguiente código:

Private?Sub?Form_Load()

Combo1.AddItem?"1"

Combo1.AddItem?"2"

Combo1.AddItem?"3"

Comando1.Visible?=?False

Comando2.Visible?=?False

Comando3.Visible?=?False

Fin?Sub

Privado?Sub?Combo1_Click ( )

Comando1.Visible?=?False

Comando2.Visible?=?False

Comando3.Visible?=?False

If?Combo1.Text?=?"1"?Then

Llamar?setButton(Command1)

ElseIf?Combo1.Text?=?"2"?Then

¿Llamar?setButton(Command2)

Si no

¿Llamar?setButton(Command3)

¿Finalizar?Si

¿Finalizar? Sub

¿Privado?Sub?setButton(cmd1?As?CommandButton)

cmd1.Visible?=?True

cmd1.Enabled?=?True

¿Fin?Sub