Ficha de trabalho numero 1

Private Sub cmdigual_Click()
resultado.Caption = Val(Oper1.Text) + (Oper2.Text)
End Sub

Private Sub cmdsair_Click()
End
End Sub