Dim asb As Assembly = Assembly.GetExecutingAssembly()
        Dim fr As Form = CType(asb.CreateInstance("APP." & ParentFormName), Form)
        Dim t As Type = fr.GetType()
        If MessageBox.Show(message, "КАТАЛОГ", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = DialogResult.OK Then
            For Each tt As MethodInfo In t.GetMethods
                If tt.Name = MethodName_ Then
                    Dim ac As Object = Activator.CreateInstance(t)
                    Dim par(2) As String
                    par(0) = Me.TextEdit1.Tag
                    par(1) = Me.TextEdit1.Text
                    par(2) = procName
                    tt.Invoke(ac, Nothing, Nothing, par, Nothing)
                End If
            Next