Public Class xxxx
 
    Public Event NewFrame(ByVal sender As Object, e As EventArgs)
    Public Event Alarm(ByVal sender As Object, e As EventArgs)
 
 
    Public Sub irgendwas()
        RaiseEvent NewFrame(Me, EventArgs.Empty)
    End Sub
 
End Class