Public Class Form1 Private WithEvents testInsWE As New Events Private Sub btnTest_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnTest.Click testInsWE.RaiseFirstEvent("Hello evnet.") End Sub Private Sub testInsWE_FirstEvent(ByVal arg As String) Handles testInsWE.FirstEvent MessageBox.Show(arg) End Sub End Class Public Class Events Public Event FirstEvent(ByVal arg As String) Public Sub RaiseFirstEvent(ByVal arg As String) If arg Is Nothing Then arg = "" End If RaiseEvent FirstEvent(arg) End Sub End Class