Sub ListView2_DblClick() ' должны братся данные с Listview2 и записыватся в Listview1
        Dim C
        c=ListView1.ListItems.Count
        If int(Ind) > 0 and Int(Ind) < Int(c) Then ' если выбран элемент для позиционирования
            CND=ListView2.SelectedItem.ListSubItems(6)
            Ar1(15,IND) = CND ' на это не обращать внимание
            ListView1.HideSelection=false
            self.Focus()
            msgbox ListView1.ListItems(IND).SubItems(1)  ' сдесь ошибка  - ненайден элемент
            ListView1.ListItems(IND).SubItems(6).text = CND ' сдесь cnd= 1
            ListView1.ListItems(IND).EnsureVisible        
            self.Focus()
        End if
    End Sub