W.Selection.TypeText(ListView1.Items(i).SubItems.Item(0).Text & " " & ListView1.Items(i).SubItems.Item(1).Text & " " & ListView1.Items(i).SubItems.Item(2).Text & " " & ListView1.Items(i).SubItems.Item(3).Text & Chr(13) & Chr(10))

        Next i

    End Sub

    Private Sub ЭкспортExcelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ЭкспортExcelToolStripMenuItem.Click

        Dim myXL As Excel.Application, myWB As Excel.Workbook, myWS As Excel.Worksheet

        Dim i As Integer

        Dim Y As Integer

        Dim z As Integer

        myXL = New Excel.Application

        myWB = myXL.Workbooks.Add

        myWS = myWB.Worksheets(1)

        z = 2

        myXL.Visible = True

        For i = 1 To Me.ListView1.Items.Count

            For Y = 1 To 2

                myWS.Cells(1, Y) = ListView1.Columns(Y).Text

            Next Y

            myWS.Cells(z, 1) = ListView1.Items.Item(i - 1).SubItems.Item(1).Text

            myWS.Cells(z, 2) = ListView1.Items.Item(i - 1).SubItems.Item(2).Text

            z = z + 1

        Next i

        myWS.Columns(1).ColumnWidth = 50

        myWS.Columns(2).ColumnWidth = 100

        myXL = Nothing

        myWB = Nothing

        myWS = Nothing

    End Sub

    Private Sub ВыходToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ВыходToolStripMenuItem.Click

        Close()

    End Sub

    Private Sub ОбновитьToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ОбновитьToolStripMenuItem.Click

        Form6_Load(Me, New EventArgs)

    End Sub

    Private Sub ListView1_ColumnClick(sender As Object, e As ColumnClickEventArgs) Handles ListView1.ColumnClick

        If (e.Column = lvwColumnSorter.SortColumn) Then

            If (lvwColumnSorter.Order = SortOrder.Ascending) Then

                lvwColumnSorter.Order = SortOrder.Descending

            Else

                lvwColumnSorter.Order = SortOrder.Ascending

            End If

        Else