Public Class frmCalcolatrice
    Dim primo_operando, secondo_operando, risultato As Single
    Private Sub btnAddizione_Click(...)
        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(...)
        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(...)
        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(...)
        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