Dim x As Integer
 
        For x = 0 To ListView1.Items.Count - 1
 
        Next
        Dim DetailsList As ListView = ListView1
        DetailsList.Items.Add(ComboBox2.Text)
        DetailsList.Items(+x).SubItems.Add(ComboBox1.Text)
        DetailsList.Items(+x).SubItems.Add(TextBox3.Text)
        DetailsList.Items(+x).SubItems.Add(TextBox4.Text)