اضافه کردن progressbar به listview

[xxnagin]

سلام
من یه cd rip میخوام مثل این عکس بسازم ولی تو add کردن فایهاش مشکل دارم
ستون اول که checkbox هستش
ستون دوم تعداد فایلها یا همون listview1.Items.Count
ستون سوم هم نام فایل
ستون چهارم زمان کل
ستون پنجم هم progressbar هستش
چطوری میشه progressbar را کرد
نه به صورت تکی بصورت کلی


71160
توسط کد زیر و GlacialList میشه بصورت تکی هر کنترلی add میشه کرد
من همینو به صورت کلی میخوام به صورت تکی طول می کشه و خیلی کد میخواد


Dim ProgressBar1 As New ProgressBar
ProgressBar.Value = 0
ProgressBar.Maximum = 100
GlacialList1.Items(0).SubItems(2).Control =ProgressBar





Private Sub LoadCDDrives()

Dim DL As Char
Dim DESCR As String
ComboBox1.Items.Clear()
Dim drives As BASS_CD_INFO() = BassCd.BASS_CD_GetInfos()
Dim info As BASS_CD_INFO
For Each info In drives
DL = info.DriveLetter
DESCR = info.ToString()
ComboBox1.Items.Add(DL + " " + DESCR)
Next info
If ComboBox1.Items.Count > 0 Then ComboBox1.SelectedIndex = 0

End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If Not BassCd.BASS_CD_IsReady(ComboBox1.SelectedIndex) Then
ListBox1.Items.Clear()
Exit Sub
End If
Dim nTracks As Integer = BassCd.BASS_CD_GetTracks(ComboBox1.SelectedIndex)
GetDriveInfo()
If nTracks = -1 Then
ListBox1.Items.Clear()
Exit Sub
End If
ListBox1.Items.Clear()
For A As Integer = 0 To nTracks - 1
If A <= 8 Then
ListBox1.Items.Add("Track 0" + (A + 1).ToString)
Else
ListBox1.Items.Add("Track " + (A + 1).ToString)
End If
Next
End Sub

Private Sub frmCD_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
' Closes our bass object

LoadCDDrives()
End Sub



و اینم کل سورس