Public Custom Event NewMessage As NewMessageEventHandler
            AddHandler(ByVal value As NewMessageEventHandler)

            End AddHandler

            RemoveHandler(ByVal value As NewMessageEventHandler)

            End RemoveHandler

            RaiseEvent(ByVal messageType As EN_MESSAGE_TYPE, ByVal source As String, ByVal message As String)

            End RaiseEvent
        End Event

        ' Methods
        Public Sub RaiseMessage(ByVal messageType As EN_MESSAGE_TYPE, ByVal source As String, ByVal message As String)
            Dim newMessageEvent As NewMessageEventHandler = Me.NewMessage
            If (Not newMessageEvent Is Nothing) Then
                newMessageEvent.Invoke(messageType, source, message)
            End If
        End Sub

错误    204    “Public Custom Event NewMessage(messageType As EN_MESSAGE_TYPE, source As String, message As String)”是事件，不能直接调用。请使用“RaiseEvent”语句引发事件。   

红颜色那块应该怎么改啊？本人是菜鸟，对事件的委托不会用，希望有前辈可以知道下。