Public Class Simple
 
    Public Class SimpleEventArgs
        Inherits EventArgs
 
        Public Zeitpunkt As Date
        Public Message As String = String.Empty
 
        Sub New(ByVal nZeitPunkt As Date, ByVal sMessage As String)
            Zeitpunkt = nZeitPunkt
            Message = sMessage
        End Sub
    End Class
 
    Public Event FileIsMissing(ByVal sender As Object, ByVal e As _
      SimpleEventArgs)
 
    Public Sub Start()
        Dim oSEA As New SimpleEventArgs(Now, "was immer du für eine Meldung" & _
          "willst.")
        RaiseEvent FileIsMissing(Me, oSEA)
    End Sub
 
End Class

Public Class Form1
 
    WithEvents Simple As New Simple
 
    Private Sub Simple_FileIsMissing(ByVal sender As Object, ByVal e As _
      Simple.SimpleEventArgs) Handles Simple.FileIsMissing
        MsgBox(e.Message)
        MsgBox(e.Zeitpunkt.ToString)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Simple.Start()
    End Sub
End Class