Note:
1.Create a menu with addition,subtraction,multiplication,division,clear,exit
2.To create menu use tools menu->select menu editor to create menus in the form
Option Explicit
Private Sub mnuaddition_Click()
txtresult.Text = Val(txtfirst.Text) + Val(txtsecond.Text)
End Sub
Private Sub mnuclear_Click()
txtfirst.Text = ""
txtsecond.Text = ""
txtresult.Text = ""
End Sub
Private Sub mnudivision_Click()
txtresult.Text = Val(txtfirst.Text) / Val(txtsecond.Text)
End Sub
Private Sub mnuexit_Click()
Unload Me
End Sub
Private Sub mnumultiplication_Click()
txtresult.Text = Val(txtfirst.Text) * Val(txtsecond.Text)
End Sub
Private Sub mnusubtraction_Click()
txtresult.Text = Val(txtfirst.Text) - Val(txtsecond.Text)
End Sub