******************************Simplest Cal eke Codes************************


' By Dilshan Abeygunawardan
' downloaded from www.vb6sinhalen.tk [ www.vb6-in-sinhala.blogspot.com ]
' any problem , contact me 'dilshanzmail@gmail.com
' admin@besttechideas.com 94 771 3737 66
' thanx


Private Sub add_Click()

answer.Text = Val(input1.Text) + Val(input2.Text)

End Sub




Private Sub divide_Click()

answer.Text = Val(input1.Text) \ Val(input2.Text)

End Sub




Private Sub mutiply_Click()

answer.Text = Val(input1.Text) * Val(input2.Text)

End Sub




Private Sub sub_Click()

answer.Text = Val(input1.Text) - Val(input2.Text)

End Sub

*******************************************************************************