CONVERTIDOR DE MONEDA

CODIGO_______________________________________________________________
Private Sub Command1_Click()
Text4.Text = Text1.Text * 3000
Text5.Text = Text2.Text * 1500
Text6.Text = Text3.Text * 2500
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub