29-06-2009, 06:08 PM
[spoiler]Private Sub cmdAdd_Click()
Dim A As Double
Dim B As Double
Dim Result As Double
' Assign the textbox input to our variables
A = Str(txtVal1.Text)
B = Str(txtVal2.Text)
' Add our varibles together
Result = A + B
' Display the result
lblResult.Caption = Str(Result)
End Sub[/spoiler]
Dim A As Double
Dim B As Double
Dim Result As Double
' Assign the textbox input to our variables
A = Str(txtVal1.Text)
B = Str(txtVal2.Text)
' Add our varibles together
Result = A + B
' Display the result
lblResult.Caption = Str(Result)
End Sub[/spoiler]