Multithreading

Private Sub GetNonPlaylistTracks()
        'Declare variables & create temporary table
        Dim objMainPlaylists As IITPlaylistCollection = objITunes.LibrarySource.Playlists
        Dim tblPlaylistTracks As DataTable = New DataTable("tblPlaylistTracks")
        Dim intTeller As Integer = 1
        Dim strPlaylists As String = ""
 
        'Call procedure to set items on the main form
        SetMenuItems("GetNonPlaylistTracks Start")
 
        'Clear the datatable
        dsiTunes.Tables("tblOrphins").Clear()
 
        'Create a column in the temporary table
        Dim colTrackID As DataColumn
        colTrackID = New DataColumn
        With colTrackID
            .DataType = System.Type.GetType("System.Int32")
            .ColumnName = "TrackID"
        End With
        tblPlaylistTracks.Columns.Add(colTrackID)
        'Loop through the entire playlists object
        Do Until intTeller = objMainPlaylists.Count
            'Update statuslabel on main form
            lblStatus.Text = "Enumerating playlists... " & intTeller & "/" & objMainPlaylists.Count
            Dim objCurPlaylist As IITPlaylist = objMainPlaylists.Item(intTeller)
            'Find playlists in the playlists object that are only user and not smart playlists
            If objCurPlaylist.Kind = ITPlaylistKind.ITPlaylistKindUser Then
                Dim objUserPlaylist As IITUserPlaylist = objCurPlaylist
                If objUserPlaylist.Smart = False And objUserPlaylist.SpecialKind = ITUserPlaylistSpecialKind.ITUserPlaylistSpecialKindNone Then
                    Dim objPlaylistTracks As IITTrackCollection = objCurPlaylist.Tracks
                    For Each objCurTrack As IITTrack In objPlaylistTracks
                        'Store each track inside this playlist in the temporary table
                        Dim rowPlaylistTrack As DataRow = tblPlaylistTracks.NewRow
                        rowPlaylistTrack("TrackID") = objCurTrack.TrackDatabaseID
                        tblPlaylistTracks.Rows.Add(rowPlaylistTrack)
                    Next
                End If
            End If
            'Increment counter
            intTeller = intTeller + 1
            'Update progressbar on main form
            pgbTotal.Value = (intTeller / objMainPlaylists.Count) * 50
            Application.DoEvents()
        Loop
        'Reset counter
        intTeller = 0
        'Create new dataview of temporary table & sort
        Dim view As DataView = New DataView(tblPlaylistTracks)
        view.Sort = "TrackID"
        'Loop trough the track collection
        For Each objTrack As IITTrack In objTracks
            'Update statuslabel on main form
            lblStatus.Text = "Checking Track No: " & intTeller & "/" & objTracks.Count
            'If the current track is found inside the temporary table, add it to the table inside the dataset on the main form
            If view.Find(objTrack.TrackDatabaseID) = -1 Then
                Dim rowNonPlaylistTrack As DataRow = dsiTunes.Tables("tblOrphins").NewRow
                rowNonPlaylistTrack("ID") = objTrack.TrackDatabaseID
                rowNonPlaylistTrack("Name") = objTrack.Name
                rowNonPlaylistTrack("Album") = objTrack.Album
                rowNonPlaylistTrack("Artist") = objTrack.Artist
                rowNonPlaylistTrack("Size") = Math.Round((objTrack.Size / 1024)) & " KB"
                rowNonPlaylistTrack("Location") = objTrack.Location
                dsiTunes.Tables("tblOrphins").Rows.Add(rowNonPlaylistTrack)
            End If
            'Increment counter
            intTeller = intTeller + 1
            'Update progressbar on main form
            pgbTotal.Value = 50 + ((intTeller / objTracks.Count) * 50)
            Application.DoEvents()
        Next
        'Clear out temporary table
        tblPlaylistTracks.Clear()
        'Call procedure to set items on the main form
        SetMenuItems("GetNonPlaylistTracks Complete")
    End Sub