Помогите с делегатами

Public Sub add_log(ByVal a) Handles b.SendEvent
       FileMonitor
    End Sub


Public Class FileMonitor 'Класс обёртка
    Public WithEvents bk As backup = New backup 'Объявили экземпляр класса.

      Public Event SendEvent(ByVal s As String) 'Передача события в главную форму.

 Public Sub MonitorEvent(ByVal s As String) Handles bk.cEvent_backup
        RaiseEvent SendEvent(s)
    End Sub
End Class


Public Class backup
    Public Event cEvent_backup(ByVal drive As String) 'Объявляем событие
    Public Sub Monitor_Event(ByVal mon As FileSystemWatcher, ByVal e As System.IO.FileSystemEventArgs)
        'Вызываем событие и передаём параметры(Событие + имя диска) классу FileMonitor.
        RaiseEvent cEvent_backup(e.ChangeType.ToString + " " + e.Name)
    End Sub
End Class