Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler ButtonSalva.Click, AddressOf Salva
        AddHandler MenuSalva.Click, AddressOf Salva
    End Sub

    Private Sub Salva(ByVal sender As Object, ByVal e As System.EventArgs)
        'Salva il record
    End Sub