' Klasse mit Event
    Public Class testEvent
        Public Event MyEvent(ByVal sender As Object, ByVal e As EventArgs)
 
        Public Sub OnEvent()
            RaiseEvent MyEvent(Me, New EventArgs)
        End Sub
    End Class
    ' Instanz der Klasse testEvent
    Public WithEvents te As New testEvent
 
    ' Eventroutine
    Private Sub te_MyEvent(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles te.MyEvent
        MsgBox("MyEvent raised")
    End Sub
 
    ' Event auslösen    Private Sub Form1_Load(ByVal sender As System.Object, 
    ' ByVal e As System.EventArgs) Handles MyBase.Load
        te.OnEvent()
    End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Button2.Click

Public Class cWriteFile
Public Class cDateiCopy