Public Function AddProgressBar(ByVal pListView As ListView, ByVal Value As _
   ULong, ByVal ItemIndex As Integer, ByVal ColumnIndex As Integer) As _
   ProgressBar
        Dim r As Rectangle
        Dim pb As New ProgressBar
 
        r = pListView.Items(ItemIndex).Bounds()
        r.Width = pListView.Columns(ColumnIndex).Width
 
        If ColumnIndex > 0 Then
            For i As Integer = ColumnIndex - 1 To 0 Step -1
                r.X += pListView.Columns(i).Width
            Next
        End If
 
        pb.Parent = pListView
        pb.SetBounds(r.X, r.Y, r.Width, r.Height)
        statusliste.Add(pb)
        pb.Name = ItemIndex
        pb.Maximum = lValue
        pb.Style = ProgressBarStyle.Continuous
        pb.Value = Value
        pb.Visible = True
 
        Return pb
 
    End Function

  For s As Integer = 0 To lvLokal.Items.Count - 1
            lvLokal.Items.RemoveAt(s)
        Next

MFG Gizmo