Código: Seleccionar todo
Sub Suma (Evento)
Dim numero1 As Double
Dim numero2 As Double
Dim suma2 As Double
Dim oFormulario As Object
oFormulario = Evento.Source.getModel.Parent()
numero1 = oFormulario.GetByName("Texto1").CurrentValue
numero2 = oFormulario.GetByName("Texto2").CurrentValue
suma2 = numero1+numero2
oCtrl=oFormulario.GetByName("Suma")
oCtrl.text = cDbl(suma2)
End Sub