Textbox1=Textbox1 (Número1)
Textbox2=Textbox2(Número2)
Textbox3=Textbox3(Resultado)
Button1=Calcular
Button2=Apagar
Button3=Sair
Código: Selecionar todos
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Calcular_Click()
Textbox3.Text = Val(Textbox1.Text) * Val(Textbox2.Text) / 12
END
PUBLIC SUB Apagar_Click()
Textbox1.Text = ""
Textbox2.Text = ""
Textbox3.Text = ""
END
PUBLIC SUB Sair_Click()
ME.Close
END