Ficha 2

Private Sub cmdsair_Click()
End
End Sub

Private Sub cmdsinal1_Click()
Resultado2.Caption = Val(oper1.Text) + Val(oper2.Text)
End Sub

Private Sub cmdsinal2_Click()
Resultado2.Caption = Val(oper1.Text) - Val(oper2.Text)
End Sub

Private Sub cmdsinal3_Click()
Resultado2.Caption = Val(oper1.Text) * Val(oper2.Text)
End Sub

Private Sub cmdsinal4_Click()
Resultado2.Caption = Val(oper1.Text) / Val(oper2.Text)
End Sub