RaiseEvent med Cancel option

Jeg er ved at lave et lille sync værktøj. Der ville jeg gerne hvis man kunne annullere en sletning før den noget bliver slettet.

Har har forstillet mig at bruge en RaiseEvent lige inden jeg slette noget, men hvordan kan jeg sende svar tilbage til min klasse fra en event?

Det ville jo være dejligt hvis man kunne lave noget i stil med

RaiseEvent(pbolCancel as boolen)

som så kunne sendes tilbage via eventen, som man kunne detecte direkte på. Er det muligt? Jeg har kikket rundt, men syntes ikke lige at kunne finde noget.

Feks. i Outlook kan man annullere en sletning, før den sker med:

Dim WithEvents oItem As Outlook.AppointmentItem

Private Sub oItem_BeforeDelete(ByVal Item As Object, Cancel As Boolean)

End Sub

Hvordan virker kan jeg lave noget ligende i min kode? Jeg kan jo ikke bare lave en cancel boolean i min klasse, for jeg sender jo cancel til min form og ikke den anden vej.

Her er et anden eksempel fra min doku:

Private Sub DataGrid1_BeforeDelete (Cancel As Integer)
  Dim mResult As Integer
  mResult = MsgBox("Are you sure that you want to delete " & DataGrid1.SeletedRows &  " record?", _
    vbYesNo And vbQuestion, "Delete Confirmation")
  If mResult = vbNo Then Cancel = True
End Sub

Jeg syntes bare ikke lige at kunne forstå hvordan det kommer tilbage til klassen...

Men det kan I vel hjælpe mig med :-)

--
Esben