clsCFile

Public Event FileIsCopy()
 
Public Sub CopyFile(Byval sFileName As String, Byval sCopyAs As String)
        If sFileName = "" OR sCopyAs = "" Then Exit Sub
        If Dir(sFileName) = "" Then Exit Sub
        If Dir(sCopyAs)<>"" Then Kill sCopyAs
        Filecopy sFileName, sCopyAs
        RaiseEvent FileIsCopy()
End Sub

In der Form

Private WithEvents myClass As clsCFile
 
Private Sub Form_Load()
     Set myClass = New clsCFile
End Sub
 
Private Sub myClass_FileIsCopy()
     ' Tu was!
End Sub