Private Sub myEvent(ByVal sender As Object, ByVal e As MyEventArgs)
        Me.ProgressBar1.Value = e.CurrentPosition
        Me.ProgressBar1.Refresh()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        Dim t As New test
        AddHandler t.myEvent, AddressOf Me.myEvent
        Me.ProgressBar1.Maximum = t.MaxValue
        t.DoSomething()
    End Sub
 
    Public Class test
        Public Event myEvent(ByVal sender As Object, ByVal e As MyEventArgs)
        Public MaxValue As Integer = 100
        Public Sub DoSomething()
            For a As Integer = 0 To MaxValue
                Debug.WriteLine(a)
                System.Threading.Thread.Sleep(10)
                RaiseEvent myEvent(Me, New MyEventArgs(a))
            Next
        End Sub
    End Class
 
    Public Class MyEventArgs
        Public CurrentPosition As Integer
        Public Sub New(ByVal CurrentPosition As Integer)
            MyBase.New()
            Me.CurrentPosition = CurrentPosition
        End Sub
    End Class