Private Sub tlsbtnNuovo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tlsbtnNuovo.Click
        mycm.AddNew()
        initcampi() ' sub che azzera i valori dei campi
        mycm.Position = mycm.Count - 1
    End Sub