Public Delegate Sub SetProgressBarDelegate(ByVal value As Integer, ByVal max As _
  Integer)
 
Private Sub SetProgressBar(ByVal value As Integer, ByVal max As Integer)
   ProgressBar1.MaxValue = max
   ProgressBar1.Value = value
End Sub

Me.Invoke(New SetProgressBarDelegate(AddressOf SetProgressBar), New Object() _
  {value,max})