Dim pb1 as New Progressbar
 
 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
 
 
Private Sub Video_Load(ByVal eventsender As Object, ByVal eventArgs As _
  System.EventArgs) Handles MyBase.Load
 
pb1=AddProgressBar(<Parameter eingeben>)
 
End Sub
 
 
 
 Private Sub btnTest_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
   Handles btnTest.Click
 
pb1.Visible= False
 
End Sub

Gruss Caddy