Public Class DoSomethingAndShowProgress
 
    Private _pb As System.Windows.Forms.ProgressBar
 
    Public Sub New(ByVal pb As System.Windows.Forms.ProgressBar)
        _pb = pb
    End Sub
 
    Public Sub DoSomeThing()
        ' ...
        _pb.Value += 1
        ' ...
    End Sub
 
End Class

Dim dsasp As New DoSomethingAndShowProgress(Me.ProgressBar1)
 
dsasp.DoSomeThing()