WAP to do arithmetic calculation

Private Sub Option1_Click()
Label3.Caption = Option1.Caption
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Option2_Click()
Label3.Caption = Option2.Caption
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Option3_Click()
Label3.Caption = Option3.Caption
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Option4_Click()
Label3.Caption = Option4.Caption
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub


Posted by: Wasim Javed