Private Sub dirDir_ExpTreeNodeSelected(ByVal SelPath As String, ByVal Item As _
  ExpTreeLib.CShItem) Handles dirDir.ExpTreeNodeSelected
		comboPath.Items.Add(SelPath)
		comboPath.SelectedIndex = comboPath.Items.Count - 1
 
		If Loaded Then
			If SelPath(1) = ":" Then colFiles = New Collection : ScanFiles(SelPath)
			bgwScanFiles.RunWorkerAsync(SelPath)
			Do Until bgwScanFiles.IsBusy = False : DoEvents() : Sleep(1000) : Loop
			Dim currFile As String, PicW As Integer, PicH As Integer, newPW As Single, _
  newPH As Single
			For Each currFile In colFiles : DoEvents()
				On Error Resume Next
				If colThumbs.Contains(LCase(currFile)) Then
					imglstImages.Images.Add(LCase(currFile), colThumbs(LCase(currFile)))
				End If
				On Error GoTo 0
				lstviewImages.Items.Add(LCase(currFile), StrSplitter(currFile, "\", 0), _
  LCase(currFile))
			Next
		End If
	End Sub
 
	Private Sub ScanFiles(ByVal Path As String)
		ScanFilesIntoCollection(colFiles, Path, 1)
	End Sub
 
	Private Sub bgwScanFiles_DoWork(ByVal sender As System.Object, ByVal e As _
  System.ComponentModel.DoWorkEventArgs) Handles bgwScanFiles.DoWork
		Dim SelPath As String
		SelPath = e.Argument
		Dim currFile As String, PicW As Integer, PicH As Integer, newPW As Single, _
  newPH As Single, currPic As Bitmap
		For Each currFile In colFiles : DoEvents()
			If Me.Visible = False Then Exit For
			PicW = 0 : PicH = 0	': picPreview.Image = Nothing
			On Error Resume Next
			If colThumbs.Contains(LCase(currFile)) Then
				colThumbs.Remove(LCase(currFile))
			End If
			currPic = AutoSizeImage(LoadImage(currFile), 160, 120)
			colThumbs.Add(currPic, LCase(currFile))
			On Error GoTo 0
		Next
	End Sub