How to delete an image file, after being referenced by imagelist

Private Sub cmdViewImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdViewImage.Click
 
		Dim v_StockID As Integer
		'Dim v_strUploadDir As String
		'Dim v_ImageLocations() As String
		Dim v_Path As String
		Dim v_ImageResizer As New clsImageResizer
		Dim v_Image As Image
		Dim v_Counter As Integer
 
		Dim v_Connection As New SqlClient.SqlConnection
		Dim v_Command As New SqlClient.SqlCommand
		Dim v_RecordSet As SqlClient.SqlDataReader
 
		Try
 
			Cursor = Cursors.WaitCursor
 
			g_ImageList.Clear()
			dilLoader.Controls.Clear()
 
			If txtImgStockID.Text <> "" Then
 
				v_Counter = 0
				v_StockID = txtImgStockID.Text
				v_Path = My.Settings.ProductImgUploadDir & v_StockID & "\"
 
				v_Connection.ConnectionString = My.Settings.ConnString
 
				v_Command.Connection = v_Connection
				v_Command.CommandType = CommandType.StoredProcedure
				v_Command.CommandText = "proc_MFM_Get_Stock_Image_Directories"
				v_Command.Parameters.Add("@StockID", SqlDbType.Int)
				v_Command.Parameters.Item("@StockID").Value = v_StockID
 
				OpenConnection(v_Connection)
 
				v_RecordSet = v_Command.ExecuteReader
 
				While v_RecordSet.Read
					If IO.File.Exists(v_Path & v_RecordSet("PictureLarge")) Then
 
						v_Image = Image.FromFile(v_Path & v_RecordSet("PictureLarge"))
						v_Image.Tag = v_Path & v_RecordSet("PictureLarge")
 
						g_ImageList.Add(v_Image.Clone)
						g_ImageList.Item(v_Counter).Tag = v_Path & v_RecordSet("PictureLarge")
						v_Image.Dispose()
						v_Counter = v_Counter + 1
 
					End If
				End While
 
				If g_ImageList.Count > 0 Then
					AddImages(g_ImageList, g_ThumbnailImgSize)
				End If
			End If
 
		Catch ex As Exception
			MsgBox(ex.Message, MsgBoxStyle.Critical, "cmdViewImage_Click")
		Finally
			v_Image = Nothing
			v_ImageResizer = Nothing
			CloseConnection(v_Connection)
			Cursor = Cursors.Default
			GC.Collect()
		End Try
	End Sub
 
 
 
' AddImages Sub
	Sub AddImages(ByRef g_ImageList As List(Of Image), ByVal v_ImageDisplaySize As Size)
 
		Dim v_PanelWidth As Double, v_SpacerWidth As Double
		Dim v_ImageCountPerLine As Integer
		Dim v_Comp As PictureBox
		Dim v_Checkbox As CheckBox
		Dim i As Integer, j As Integer
		Dim v_Xpos, v_Ypos As Integer
		Dim img As New clsImageResizer()
 
		Try
 
			i = 0
			j = 1
			v_Xpos = 0
			v_Ypos = 5
 
			dilLoader.Controls.Clear()
			If g_ImageList.Count > 0 Then
 
				' Get the full "workable" width of the component (-scrollbar width)
				v_PanelWidth = dilLoader.Width - 17
 
				v_ImageCountPerLine = Math.Floor((v_PanelWidth) / (v_ImageDisplaySize.Width))	' 3
				v_SpacerWidth = (v_PanelWidth) - (v_ImageCountPerLine * v_ImageDisplaySize.Width)	'69
				v_SpacerWidth = Math.Floor(v_SpacerWidth / (v_ImageCountPerLine + 1))
 
				While i < g_ImageList.Count
 
					img.LoadImage(g_ImageList.Item(i))
 
					v_Comp = New PictureBox
					v_Comp.Name = "pbImage"
					v_Comp.Tag = i
					v_Comp.BorderStyle = BorderStyle.FixedSingle
					v_Comp.SizeMode = PictureBoxSizeMode.CenterImage
					v_Comp.Parent = dilLoader
					v_Comp.MaximumSize = v_ImageDisplaySize	'New Size(v_ImageDisplaySize, v_ImageDisplaySize)
					v_Comp.Size = v_ImageDisplaySize 'New Size(v_ImageDisplaySize, v_ImageDisplaySize)
					v_Comp.Image = img.GetImage(v_ImageDisplaySize).Clone
 
					AddHandler v_Comp.MouseUp, AddressOf v_Comp_MouseUp
 
					v_Xpos = v_Xpos + v_SpacerWidth
					v_Comp.Location = New Drawing.Point((v_Xpos), v_Ypos)
 
					v_Checkbox = New CheckBox
					v_Checkbox.Parent = dilLoader
					v_Checkbox.Name = "cbImage"
					v_Checkbox.Tag = i
					v_Checkbox.FlatStyle = FlatStyle.Flat
					v_Checkbox.Text = ""
					v_Checkbox.Visible = True
					v_Checkbox.Size = New Size(11, 11)
					v_Checkbox.MaximumSize = New Size(11, 11)
					v_Checkbox.Location = New Drawing.Point(v_Comp.Left, v_Comp.Top)
					v_Checkbox.BringToFront()
 
					' Update the locations here:
					If j = v_ImageCountPerLine Then
						j = 0
						v_Xpos = 0
						v_Ypos = v_Ypos + v_ImageDisplaySize.Height + 25
					Else
						v_Xpos = v_Xpos + v_ImageDisplaySize.Width
					End If
 
					v_Comp = Nothing
					v_Checkbox = Nothing
					i = i + 1
					j = j + 1
 
				End While
 
			End If
 
		Catch ex As Exception
			MsgBox(ex.Message, MsgBoxStyle.Critical, "AddImages")
		End Try
	End Sub
 
 
 
 
' To move the images: 
	Private Sub MoveImageFiles(ByVal v_StockID As Integer)
 
		Dim v_tempStrDir As String
		Dim v_tempDir As DirectoryInfo
		Dim v_tempOriginalDir As DirectoryInfo
		Dim v_File As FileInfo
 
		Try
 
			' old_22_apr_2008_09_37_22
			v_tempStrDir = "old_" & Format(Now.Day, "00") & "_" & MonthName(Now.Month, True) & "_" & Now.Year & "_" & Format(Now.Hour, "00") & "_" & Format(Now.Minute, "00") & "_" & Format(Now.Second, "00")
			v_tempStrDir = My.Settings.ProductImgUploadDir & v_StockID & "\" & v_tempStrDir
 
			IO.Directory.CreateDirectory(v_tempStrDir)
 
			v_tempDir = New DirectoryInfo(v_tempStrDir)
			v_tempOriginalDir = New DirectoryInfo(My.Settings.ProductImgUploadDir & v_StockID)
			For Each v_File In (v_tempOriginalDir.GetFiles())
 
				v_File.MoveTo(Path.Combine(v_tempDir.FullName, v_File.Name))
 
			Next
 
			v_tempDir = Nothing
			v_tempOriginalDir = Nothing
			v_File = Nothing
 
		Catch ex As Exception
			MsgBox(ex.Message, MsgBoxStyle.Critical, "MoveImageFiles")
		Finally
			GC.Collect()
		End Try
	End Sub