Membuat No urut Pda Kolom ListView

            Dim ARR(6) As String
            ARR(0) = lvPembelian.Items.Count + 1
            ARR(1) = txtKd_barang.Text
            ARR(2) = txtNm_barang.Text
            ARR(3) = txtJumlah.Text
            ARR(4) = txtHrg_Beli_Satuan.Text
            ARR(5) = txtHrg_Jual_satauan.Text
            ARR(6) = CInt(txtJumlah.Text) * CInt(txtHrg_Beli_Satuan.Text)
            '' memyimpan data ke dalam listview
            Dim ListItem As ListViewItem
            ListItem = New ListViewItem
            ListItem = lvPembelian.Items.Add(ARR(0))
            ListItem.SubItems.Add(ARR(1))
            ListItem.SubItems.Add(ARR(2))
            ListItem.SubItems.Add(ARR(3))
            ListItem.SubItems.Add(ARR(4))
            ListItem.SubItems.Add(ARR(5))
            ListItem.SubItems.Add(ARR(6))