Public Class [MyClass]
    Public Event MyEvent(ByVal sender As Object, ByVal e As MyEventArgs)
    Public Sub Somthing()
        RaiseEvent MyEvent(Me, New MyEventArgs("Event wurde ausgelöst")) 
    End Sub
End Class
Public Class MyEventArgs '// Eigene EventArgumente
    Inherits EventArgs
    Public Data As String
    Public Sub New(ByVal data As String)
        MyBase.New()
        data = data
    End Sub
End Class

    Dim MyObj As New [MyClass]
    AddHandler MyObj.MyEvent, AddressOf MyObj_MyEvent '// Event mit einer 
    ' Methode binden
    Private Sub MyObj_MyEvent(ByVal sender As Object, ByVal e As MyEventArgs) _
      Handles MyObj.MyEvent '// Die Methode welche ausgelöst wird
      If e.Data = ".." Then
       ' ...
      End If
    End Sub