If e.KeyCode = Keys.Insert Then
            Dim indexes As ListView.SelectedIndexCollection = _
        Me.lwCheckProgrammAudit.SelectedIndices
            Dim index As Integer
            
            value = lwCheckProgrammAudit.FocusedItem 'index
          
            For Each index In indexes
                ar(r) = lwCheckProgrammAudit.Items(index).SubItems(2).Text
                r = r + 1
                If r > 99 Then
                    MsgBox("Привышен предел массива Справочника планов работ", vbOKOnly, "Error")
                End If
            Next
            WriteListView()
          
            lwCheckProgrammAudit.Items(index + 1).Selected = True

   lwCheckProgrammAudit.EnsureVisible(index + 1)