ProgresBar

Public Class Form1

    Public Sub RunProgressbar(ByVal minimo As Integer) 'Handles Me.MiEvento
        Me.ProgressBar1.Value = minimo
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.ProgressBar1.Minimum = 0
        Me.ProgressBar1.Maximum = 2000
    End Sub

    Public Class Class1
        ' Declare an event.
        Public Event MiEvento(ByVal num As Integer)
        Sub Run()
            For i = 0 To 2000
                ' Raise an event.
                RaiseEvent MiEvento(i)
            Next
        End Sub
    End Class

    Private Obj As New Class1

    Private Sub AddToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AddToolStripMenuItem.Click

        ' Associate an event handler with an event.
        AddHandler Obj.MiEvento, AddressOf RunProgressbar
        ' Call the method to raise the event.
    End Sub

    Private Sub RemoveToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RemoveToolStripMenuItem.Click

        ' Stop handling events.
        RemoveHandler Obj.MiEvento, AddressOf RunProgressbar
        ' This event will not be handled.
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Obj.Run()
    End Sub
End Class