RadListView1.Items.Clear()
        RadPanel7.Visible = True
        Dim _idreg As Integer = CInt(ListView3.SelectedItems(0).SubItems(4).Text)
        Dim dir As DirectoryInfo = New DirectoryInfo(Application.StartupPath & "\FileXML\FileXMLErrati\")
        Dim files() As FileInfo = dir.GetFiles("*.xml", SearchOption.TopDirectoryOnly)
        Dim _file As FileInfo
        Array.Sort(files, New clsCompareFileInfo) REM----mi serve per ordinare la lista dei file xml
        For Each _file In files
            Dim str_array() As String = _file.Name.Split("-")
            If str_array(0) = _idreg Then
                RadListView1.Items.Add(_file.Name)
            End If
        Next