___________________
Public Class Form1
 
    Public WithEvents ProgressChanged As New Class1
 
    Private Sub Class_ProgressChanged(ByVal sender As Object, ByVal percent As _
      Integer) Handles ProgressChanged.ProgressChanged
        Me.ProgressBar1.Value = percent
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim objClass As Class1
        objClass = New Class1
        objClass.Start()
 
    End Sub
End Class
____________________
 
Public Class Class1
    Public Event ProgressChanged(ByVal sender As Object, ByVal percent As _
      Integer)
    Public Sub Start()
        For i = 1 To 100
            RaiseEvent ProgressChanged(Me, i)
            System.Threading.Thread.Sleep(100)
        Next
    End Sub
End Class

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
 
        Dim c1 As New Class1
        c1.pb = Me.ProgressBar1
        c1.Start()
 
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        With ProgressBar1
            .Value = 0
            .Maximum = 20
        End With
    End Sub
End Class

Imports System.Threading
 
Public Class Class1
 
    Private _pb As ProgressBar
 
    Public Property pb As ProgressBar
        Get
            pb = _pb
        End Get
        Set(value As ProgressBar)
            _pb = value
        End Set
    End Property
 
    Public Sub Start()
        Dim trd As Threading.Thread
        trd = New Threading.Thread(AddressOf Beginnen)
        trd.Start()
    End Sub
 
    Private Sub Beginnen()
        For i As Integer = 1 To 20
 
            pb.BeginInvoke(Sub() pb.Value = i)
            Application.DoEvents()
            System.Threading.Thread.Sleep(500)
        Next
    End Sub
 
End Class

EALA FREYA FRESENA