Zitat:

In diesem Fall musst du die ProgressBar selbst in die ListBox zeichnen. Ich kenne keine Möglichkeit das ProgressBar-Steuerelement in eine ListBox zu integrieren.

Sub fillListBox()
        Dim t As Integer = 0
        For Each lw In My.Computer.FileSystem.Drives
            ListBox1.Items.Add(lw.Name)
            Dim pb As New ProgressBar
            Dim m As Integer
            Try
                m = CInt(lw.TotalSize / 1024)
            Catch ex As Exception
                m = 100
            End Try
            pb.Maximum = m
            pb.Width = 100
            pb.Height = ListBox1.ItemHeight - 3
            pb.Top = t
            pb.Left = 50
            Dim p As Integer
            Try
                p = CInt(lw.TotalFreeSpace / 1024)
            Catch ex As Exception
                p = 0
            End Try
            pb.Value = p
            ListBox1.Controls.Add(pb)
            t += pb.Height + 3
        Next
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus