RaiseEvents

Hi Folks,
I converted this piece of code below from c# to vb.net but i am getting this error
Error 4 'Public Shared Event EventReceived(xml As String)' is an event, and cannot be called directly. Use a 'RaiseEvent' statement to raise an event. 
any ideas? all the bold characters are generating error.?
Public Delegate Sub EventReceivedDelegate(ByVal xml As [String])
Public Shared Event EventReceived As EventReceivedDelegate
        Friend Function DoEventReceivedRoutine(ByVal xml As [String]) As [Boolean]
            If EventReceived IsNot Nothing Then
                EventReceived(xml)
                Return True
 &n ...