Programación de texto en Vb

Label1=inputbox("Ingrese el texto de la etiqueta")

Conector final

Subcomando 1_click (el índice es un número entero)

Si índice=0, entonces

Label1.fontname= "ì"

Otro

Label1.fontname= "bold "

Finalizar si...

Finalizar conector

Subopción 1_click (el índice es un número entero)

Si índice = 0, entonces

label1.fontsize=9

Otro

label1.fontsize=16

Terminará si...

Fin conector