Private Sub FormRegistro_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            DsRegistro.Clear()
            'popolo il dataset
            DapRegistro.Fill(DsRegistro, "Registro")
            DapProvvedimenti.Fill(DsRegistro, "Provvedimenti Disciplinari")
            DapCancellazioni.Fill(DsRegistro, "Storico Cancellazioni")

            'Setto il binding 
            MBindingRegistro = Me.BindingContext(DsRegistro, "Registro")
            MBindingProvvedimenti = Me.BindingContext(DsRegistro, "Provvedimenti Disciplinari")
            MBindingCancellazioni = Me.BindingContext(DsRegistro, "Storico Cancellazioni")

            'Indico il totale degli iscritti
            Lbltotale.Text = "Totale " & DvRegistro.Count

            PanAnagrafica.Visible = False
            PanGrigliadati.Visible = True
            PanProvvedimenti.Visible = False

            'inizzializzo il checked sulla prima option 
            optnascita.Checked = True

        Catch ex As Exception
            ErrorLog(ex)
        End Try
    End Sub