Private Sub OnCreateRecord(ByVal AnnoGestione As Integer, ByVal nschedina As Integer, ByVal DataArrivo As DateTime)
        Me.CaricaAlberoClienti_SingSchedina(AnnoGestione, nschedina, DataArrivo)
        RemoveHandler ArcSchedinePS.CreateRecordEvent, AddressOf OnCreateRecord
    End Sub