Event fired in loop only getting handled once

[DotNetter]

I am firing an event from within a loop:

	Private Sub btnCompleted_impl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCompleted_impl.Click

		btnCompleted_impl.Enabled = False
		Cursor = Cursors.WaitCursor

		Dim lvi As ListViewItem
		For Each lvi In lvwRequests_impl.CheckedItems
			Dim oTagObject As SelectAccountRequestTagObject = lvi.Tag
			[b]RaiseEvent ImplementationCompleted(oTagObject.ClassID, oTagObject.ClassName, oTagObject.ClassInstanceID, oTagObject.UserClassInstanceID, oTagObject.NewStatusID)[/b]
		Next

	End Sub

I see execution hitting the "RaiseEvent" multiple times, but the code in the form (below) only actually executes once...

In my form:

	Private Sub HandlesImplementationCompleted(ByVal ClassID As Integer, ByVal ClassName As String, ByVal ClassInstanceID As Integer, ByVal UserClassInstanceID As Integer, ByVal NewStatusID As Integer) [b]Handles oSelectAccountRequestControl.ImplementationCompleted[/b]

		Dim AccountThatWasImplemented As New UserAccountManagerDLL.Account(ClassID, ClassName, ClassInstanceID, CallingApplicationID, Username, hstSecurityLevels(ClassID.ToString))

		AccountThatWasImplemented.ImplementationCompleted(NewStatusID)

		MsgBox("The implementation of the " & ClassName & " account has been marked complete", MsgBoxStyle.OKOnly, "User Account Manager Application")

		Cursor = Cursors.WaitCursor

		'refresh the ListViews
		dsAdministratorPersonalQueue = GetAdministratorPersonalQueue()
		DisplaySelectAccountRequestControl()

		Cursor = Cursors.Default

	End Sub

Why is the event getting fired mulitple times but only getting handled once???

Thanks!
Dot

 

[DotNetter]

I don't really understand this, but when I made two events - only one called within the loop, it works...

	Private Sub btnCompleted_impl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCompleted_impl.Click

		btnCompleted_impl.Enabled = False
		Cursor = Cursors.WaitCursor

		Dim lvi As ListViewItem
		For Each lvi In lvwRequests_impl.CheckedItems
			Dim oTagObject As SelectAccountRequestTagObject = lvi.Tag
			RaiseEvent ImplementationCompleted(oTagObject.ClassID, oTagObject.ClassName, oTagObject.ClassInstanceID, oTagObject.UserClassInstanceID, oTagObject.NewStatusID)
		Next

		'now that the looping of raising events is complete, refresh the ListViews
		RaiseEvent RefreshAllListViews()

	End Sub

and in the form:

	Private Sub HandlesImplementationCompleted(ByVal ClassID As Integer, ByVal ClassName As String, ByVal ClassInstanceID As Integer, ByVal UserClassInstanceID As Integer, ByVal NewStatusID As Integer) Handles oSelectAccountRequestControl.ImplementationCompleted

		Dim AccountThatWasImplemented As New UserAccountManagerDLL.Account(ClassID, ClassName, ClassInstanceID, CallingApplicationID, Username, hstSecurityLevels(ClassID.ToString))

		AccountThatWasImplemented.ImplementationCompleted(NewStatusID)

		MsgBox("The implementation of the " & ClassName & " account has been marked complete", MsgBoxStyle.OKOnly, "User Account Manager Application")

		Cursor = Cursors.Default

	End Sub


	Private Sub HandlesRefreshAllListViews() Handles oSelectAccountRequestControl.RefreshAllListViews
		dsAdministratorPersonalQueue = GetAdministratorPersonalQueue()
		DisplaySelectAccountRequestControl()
	End Sub

Anyone understand why this should have fixed my issue???

Thanks,
Dot