Kan ikke kjøre RaiseEvent på Shared Event

[Wubbable]

Som dere ser, kan jeg ikke kjøre RaiseEvent på en shared event.

Det merkelige er, en shared sub inni klassen som har eventen, går helt fint...

 

Noen grunn til dette?

 

Public Class Form1

Dim TC As New TestClass

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

	'Fungerer ikke:
	RaiseEvent EventClass.MyEvent

	'Fungerer:
	EventClass.FireEvent()

End Sub

End Class

Public Class EventClass

Public Shared Event MyEvent()

Public Shared Sub FireEvent()
	RaiseEvent MyEvent()
End Sub

End Class

Public Class TestClass

Dim WithEvents EC As New EventClass

Public Sub MySub() Handles EC.MyEvent
	MessageBox.Show("EVENT WAS FIRED")
End Sub

End Class