menu driven program in vb

Private Sub cmdClear_Click()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text1.SetFocus
End Sub

Private Sub cmdExit_Click()
    Unload Me
End Sub

Private Sub mnuadd_Click()
    Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub mnuDiv_Click()
    Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub mnuMult_Click()
    Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub mnusub_Click()
    Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Output:-