Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        For i As Integer = 0 To System.IO.DriveInfo.GetDrives.Length - 1
            ListBox1.Items.Add(System.IO.DriveInfo.GetDrives(i).Name)
 
            Dim pb As New ProgressBar
            pb.Width = 100
            pb.Height = ListBox1.ItemHeight
            pb.Top = ListBox1.Top + (ListBox1.ItemHeight * i)
            pb.Left = ListBox1.Left + ListBox1.Width + 6
 
            pb.Value = i * 10 ' Hier der entsprechende Wert
 
            Me.Controls.Add(pb)
        Next
    End Sub