Public Class frmCalcolatrice

    Private Sub btnAddizione_Click(...)
        Dim primo_operando, secondo_operando As Double
        Dim risultato As Double

        primo_operando = Val(txtPrimo_Operando.Text)
        secondo_operando = Val(txtSecondo_Operando.Text)

        risultato = primo_operando + secondo_operando

        txtRisulatato = risultato.ToString
    End Sub

    Private Sub btnSottrazione_Click(...)
        Dim primo_operando, secondo_operando As Double
        Dim risultato As Double

        primo_operando = Val(txtPrimo_Operando.Text)
        secondo_operando = Val(txtSecondo_Operando.Text)


        If secondo_operando > primo_operando Then
            MsgBox("operando non valido")
        Else
            risultato = primo_operando - secondo_operando

        End If

        txtRisulatato = risultato.ToString
    End Sub

    Private Sub btnMoltiplicazione_Click(...)
        Dim primo_operando, secondo_operando As Double
        Dim risultato As Double

        primo_operando = Val(txtPrimo_Operando.Text)
        secondo_operando = Val(txtSecondo_Operando.Text)

        risultato = primo_operando * secondo_operando

        txtRisulatato = risultato.ToString
    End Sub

    Private Sub btnDivisione_Click(...)
        Dim primo_operando, secondo_operando As Double
        Dim risultato As Double

        primo_operando = Val(txtPrimo_Operando.Text)
        secondo_operando = Val(txtSecondo_Operando.Text)


        If secondo_operando = 0 Then
            MsgBox("operando non valido")
        Else
            risultato = primo_operando / secondo_operando

        End If

        txtRisulatato = risultato.ToString
    End Sub
End Class