Private Sub tsmAdd_Cont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbAddContact.Click
        Dim newnode As TreeNode
        Dim NC As New dlg_Kontact_my 
        If Me.tvwStructure.SelectedNode Is Nothing Then Exit Sub
        If NC.ShowDialog = Windows.Forms.DialogResult.OK Then
            If Me.tvwStructure.SelectedNode.Tag.Equals("Folder") Then
                Try
                    Me.Address_table.Rows.Add(NC.Cont_row) ' error_1: 
                    ' Длина входного массива больше числа столбцов в этой таблице.

                    newnode = Me.tvwStructure.SelectedNode.Nodes.Add(NC.Kontakt_name, NC.Kontakt_name, "Contact", "Contact open")
                    newnode.Tag = "Kontact"
                Catch ex As DataException
                    MsgBox("Не допускаются одинаковые имена контактов в одном узле!", MsgBoxStyle.Exclamation)
                End Try
            End If
        End If

    End Sub

Public Class dlg_Kontact_my
    Dim Kontact_data(11) As Object
    Dim Kontact_data_edit(11) As String

    Friend Property Cont_row() As Object()
        Get
            Cont_row = Kontact_data
        End Get
        Set(ByVal value As Object())
            Kontact_data = value
        End Set
    End Property

Private Sub dlg_Kontact_my_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.txtName.Text = Kontact_data(1)
        Me.txtFamily.Text = Kontact_data(2)
        Me.txtPsevdo.Text = Kontact_data(3)
        Me.mtxt_work.Text = Kontact_data(4)
        Me.mtxt_home.Text = Kontact_data(5)
        Me.mtxt_mobile.Text = Kontact_data(6)
        Me.mtxt_fax.Text = Kontact_data(7)
        Me.txtMails.Text = Kontact_data(8)
        Me.txtWorkAddress.Text = Kontact_data(9)
        Me.txtHomeAddress.Text = Kontact_data(10)
        Me.txtOther.Text = Kontact_data(11)
    End Sub
End Class