MainClass.DeleteObjects(Me, AddressOf MessageDialog)

   Private Function MessageDialog(ByVal fso As Core.FileSystemObject) As _
     Windows.Forms.DialogResult
      Dim fMessage As New frmMessage(fso.FullName)
      Dim result As System.Windows.Forms.DialogResult
 
      result = fMessage.ShowDialog
 
      Return result
   End Function

Public Delegate Function DeleteMessageDelegate(ByVal fso As FileSystemObject) _
  As System.Windows.Forms.DialogResult

pCallerForm.Invoke(New DeleteMessageDelegate(AddressOf pMessageMethod) {fso})