Use a 'RaiseEvent' statement to raise an event

CS TO VB Convet problem. when i convert to vb small errrors 'Public Event messEvent As messDelegate' is an event, and caot be called directly. Use a 'RaiseEvent' statement to raise an event. Delegate 'messDelegate' requires an 'AddressOf' expression or lambda expression as the only argument to its constructor.

Imports RemoteObject
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Chaels
Imports System.Runtime.Remoting.Chaels.Tcp

Public Class ClientForm
    Private mess As messObject
    Private remo As remotObject
    Private alert As alertObject
    Private draw As drawObject

    Private Sub ClientForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnBaglan_Click(sender As Object, e As EventArgs) Handles btnBaglan.Click
        Dim cli As New BinaryClientFormatterSinkProvider()
        Dim slv As New BinaryServerFormatterSinkProvider()
        slv.TypeFilterLevel = System.Runtime.Serialization.Formatters.TypeFilterLevel.Full
        Dim ht As New Hashtable()
        ht("port") = 0
        Dim c As New TcpChael(ht, cli, slv)
        ChaelServices.RegisterChael(c, False)
        RemotingConfiguration.RegisterWellKnownClientType(GetType(remotObject), "tcp://" + txtSunucu.Text.Trim() + ":1797/chatUri")

        mess = New messObject()
        remo = New remotObject()
        alert = New alertObject()
        draw = New drawObject()


        **remo.messEvent += New messDelegate(mess.SendMessage)
        remo.alertEvent += New alertDelegate(alert.alert)
        remo.drawEvent += New drawDelegate(draw.draw)
        mess.messEvent += Mess_messEvent
        alert.alertEvent += Alert_alertEvent
        draw.drawEvent += Draw_drawEvent
        Me.Text = remo.getMachineName()
        remo.alert(txtNickName.Text)**

    End Sub

    Private Sub txtMesaj_KeyDown(sender As Object, e As KeyEventArgs) Handles txtMesaj.KeyDown

    End Sub


End Class