Private Sub rateautorizzate_TextChanged(sender As Object, e As EventArgs) Handles rateautorizzate.TextChanged
        If Val(rateautorizzate.Text) < 2 Or Val(rateautorizzate.Text) > 100 Then
            MsgBox("Cambiare valore rata", vbCritical)
        End If
        If Val(rateautorizzate.Text) > Val(Label5.Text) Then
            MsgBox("Diminuire numero rate autorizzate", vbCritical)
        End If
    End Sub