Calculadora

Public Class Form1

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Resultado_Click(sender As Object, e As EventArgs) Handles Resultado.Click
        Dim numero1, numero2 As Integer
        Dim r1 As Double
        numero1 = N1.Text
        numero2 = N2.Text
        If Suma.Checked Then
            MsgBox(numero1 + numero2, MsgBoxStyle.Exclamation, "resultado")
        ElseIf (Resta.Checked) Then
            MsgBox(numero1 - numero2, MsgBoxStyle.Exclamation, "resultado")
        ElseIf (Multiplicacion.Checked) Then
            MsgBox(numero1 * numero2, MsgBoxStyle.Exclamation, "resultado")
        ElseIf (Division.Checked) Then
            MsgBox(numero1 / numero2, MsgBoxStyle.Exclamation, "resultado")



        End If


    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class