Dim ii As Int32
        For ii = 0 To ListView1.Items.Count - 1
            Dim mystring As String = Nothing
            For i As Integer = 0 To ListView1.SelectedItems(i).SubItems.Count - _
              1
                mystring += ListView1.SelectedItems(0).SubItems(i).Text & ";"
                MessageBox.Show(mystring)
            Next
        Next