Private Sub Combo1_Click()
If Combo1.Text = "Dolares" Then
Text2 = "15"
End If
If Combo1.Text = "Pesos Uruguayos" Then
Text2 = "0.50"
End If
If Combo1.Text = "Pesos Chilenos" Then
Text2 = "0.023"
End If
If Combo1.Text = "Euro" Then
Text2 = "16.67"
End If
If Combo1.Text = "Libra" Then
Text2 = "20"
End If
End Sub

Private Sub Command1_Click()
Text3 = Text1 / Text2
End Sub

Private Sub Command2_Click()
Text1.Text = " "
Text3.Text = " "
End Sub

Private Sub Command3_Click()
End
End Sub

Actividad 1b

Utilice los siguientes controles:

• Cuadro de texto 
• Formulario
• Botones
• Opciones
• Etiquetas
• Comandos

Actividad 1a

Utilice las siguientes herramientas:

• Imagen
• Cuadro de texto
• Etiquetas
• Opciones
• Marco
• Botones
• Lista
• Comandos