cara membuat checkbox pada listview vb.net dan dapat di pilih sesuai checkbox yang dipilih

selamat siang agan semua, kali ini saya akan memposting tentang bagaimana sih membuat checkbox di dalam listview vb.net tentunya agan tidak sabar untuk tahu tahap tahapannya,
untuk itu ikutilah cara saya membuatnya semoga bermanfaat dan dapat di aplikasikannya ke program yang sedang agan bikin

okey kita langsung saja bahas bagaimana konsepnya,

1. buatlah form dan letakan listview komponen pada form
2. letakan kursor pada listview dan ubahlah property checkbox menjadi true
3. buatlah button untuk memilih semua yg akan kita ceklis
4. buatlah button untuk menyimpan hasil ceklis tersebut

setelah tahu cara awal mari kita ngoding :

buatlah prosedur tampil
    Sub tampil()
        LV03.BackColor = Color.GhostWhite
        LV03.GridLines = True
        LV03.CheckBox =True
        LV03.View = View.Details
        LV03.FullRowSelect = True
                Dim Isi As ListViewItem = LV03.Items.Add("variabel1")
                Isi.SubItems.Add("variabel1")
                Isi.SubItems.Add("variabel1")
                Isi.SubItems.Add("variabel1")
    End Sub

buatlah button dengan nama pilih semua
    Private Sub pilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pilih.Click
        For i = 0 To LV03.Items.Count - 1
            LV03.Items(i).Checked = True
        Next
    End Sub

buatlah button dengan nama simpan

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        If LV03.CheckedIndices.Count > 0 Then
            For i = 0 To LV03.CheckedIndices.Count - 1
                Call switch_koneksi()
                CMD = New MySqlCommand("update tb_kapal set status_kapal=@status where kapal_id='" & LV03.Items(LV03.CheckedIndices(i)).SubItems(0).Text & "'", conn)
                CMD.Parameters.Add("@status", MySqlDbType.VarChar).Value = "Aktif"
                CMD.ExecuteNonQuery()
                conn.Close()
            Next
            MsgBox("Aktivasi Berhasil ")
            Call tampil_bbm_kapal()
        Else
            MsgBox("Checklist Data Yang Akan Di Aktifkan ")
        End If
    End Sub

catatan : untuk database sesuaikan dengan apa yang agan buat tinggal dirubah mysqlcommand menjadi command yang agan pake semua tergantung databasenya dan saya membuatnya dengan database mysql