Private Delegate Function ShowFormHandler() As DialogResult
      Private pShowFormHandler As New ShowFormHandler(AddressOf ShowForm)
 
      Private Function ShowForm() As DialogResult
         Return pMyForm.ShowDialog
      End Function
 
      Private Sub FileNameConflict(ByVal e As FileNameConflictEventArgs) _
        Handles pCore.FileNameConflict
         pMyForm.SourceFile = e.SourceFile
         pMyForm.TargetFile = e.TargetFile
 
         Try
            If Not pMyForm.IsHandleCreated Then pMyForm.CreateControl()
            Debug.WriteLine(pMyForm.IsHandleCreated)
 
            If pMyForm.InvokeRequired Then
               e.Result = CType(pMyForm.Invoke(pShowFormHandler, New Object() _
                 {}), DialogResult)
            Else
               Debug.WriteLine("Kein Invoke nötig")
            End If
 
         Catch ex As Exception
            Debug.WriteLine(ex.Message)
         End Try
      End Sub