Me.TreeView1.BeginUpdate()
        Me.TreeView1.Nodes.Clear()
        ObjSchedinaPS.AnnoGestionale = AnnoGestione
        ObjSchedinaPS.NumeroSchedina = NSchedina
        SchedinePSColl = Read_record.CaricaSchedinaPS(ObjSchedinaPS)
        For i As Integer = 0 To SchedinePSColl.Count - 1
            Try
                If SchedinePSColl.Item(i).IdComponente = 1 Then
                    Me.Treeview.ImageIndex = 0
                    Me.TreeView1.Nodes.AddString.Format("{0:D3}", SchedinePSColl.Item(i).IdComponente) & " - " & SchedinePSColl.Item(i).CognomeAlloggiato & " " & SchedinePSColl.Item(i).NomeAlloggiato)
                Else
                    Me.TreeView1.Nodes(0).ImageIndex = 1
                    Me.TreeView1.Nodes(0).Nodes.Add(String.Format("{0:D3}", SchedinePSColl.Item(i).IdComponente) & " - " & SchedinePSColl.Item(i).CognomeAlloggiato & " " & SchedinePSColl.Item(i).NomeAlloggiato)
                End If
            Catch ex As Exception
                MessageBox.Show("Errore nel caricamento dell'elenco clienti" & Chr(10) & ex.Message, "Send.Net", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            End Try
        Next i
        Me.TreeView1.ExpandAll()
        Me.TreeView1.EndUpdate()