Using frm As New MyDialog
            Control.CheckForIllegalCrossThreadCalls = False
            e.Result = CType(frm.Invoke(New ShowFormHandler(AddressOf _
              ShowForm), New Object() {frm}), Windows.Forms.DialogResult)
            e.RenamedFile = frm.RenamedFile
         End Using

      Private Delegate Function ShowFormHandler(ByVal frm As Form) As _
        DialogResult
 
      Private Function ShowForm(ByVal frm As Form) As DialogResult
         Return frm.ShowDialog(Me)
      End Function