Private Sub Slideshow()
   Dim bmp As Bitmap = Nothing
 
   For i As Integer = 0 To pl.Count - 1
 
       If Not bmp Is Nothing Then bmp.Dispose()
 
       bmp = pl.GetPic(i).Value
       pb.Image = bmp
 
       Me.Text = i.ToString & pl.GetPic(i).name
       Me.Refresh()
       Threading.Thread.Sleep(2000)
   Next i
End Sub