How do I convert a C# .NET custom event to VB .NET

//New Server Message Event
public delegate void NewMessageHandler(object sender, NewMessageEventArgs e);
public event NewMessageHandler OnNewMessageReceived;

' Setup On Message Received Event
Private Sub FtpClient_OnNewMessageReceived(ByVal myObject As Object, ByVal e As NewMessageEventArgs)
Message = New ListViewItem()
Message.Text = DateTime.Now.ToLongTimeString() + " " + DateTime.Now.ToLongDateString()
Message.SubItems.Add(e.StatusType)
Message.SubItems.Add(e.StatusMessage)
Message.SubItems.Add(e.StatusCode)
Message.SubItems.Add(txtRemoteDirectory.Text)
lstMessages.Items.Add(Message)
Me.lstMessages.EnsureVisible(Me.lstMessages.Items.Count - 1)
End Sub

Public Sub SetFtpClient(ByVal client As WinFTP.Library.FTPclient)
' Set FTP client
FtpClient = client

' Display the welcome message
Message = New ListViewItem()
Message.Text = DateTime.Now.ToLongTimeString() + " " + DateTime.Now.ToLongDateString()
Message.SubItems.Add("Welcome Message")
Message.SubItems.Add(FtpClient.WelcomeMessage)
Message.SubItems.Add("No Code")
Message.SubItems.Add("/")
lstMessages.Items.Add(Message)

' =========================== C# .NET Code ============================

' Setup on message received Event
FtpClient.OnNewMessageReceived += New FTPclient.NewMessageHandler(FtpClient_OnNewMessageReceived);

' ================================================================


' Open and display root directory and files and folders in it
For Each folder As FTPfileInfo In FtpClient.ListDirectoryDetail("/")
Dim item As New ListViewItem()
item.Text = folder.Filename

If folder.FileType = FTPfileInfo.DirectoryEntryTypes.Directory Then
item.SubItems.Add("Folder")
Else
item.SubItems.Add("File")
End If

item.SubItems.Add(folder.FullName)
item.SubItems.Add(folder.Permission)
item.SubItems.Add(folder.FileDateTime.ToShortTimeString() + _
folder.FileDateTime.ToShortDateString())
item.SubItems.Add(GetFileSize(folder.Size))
lstRemoteFiles.Items.Add(item)
Next
End Sub