|
Hola
Lo primero es que el textbox2.text debes asignarle el valro de 80 en el LOAD de la forma, asi la priemra vez empeiza con 80
El codigo quedari asi:
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a = Text1.Text
b = text2.text - a
Text2.Text = b
End Sub
Saludos,
|