динамически добавлять элементы в checklistbox vb.net

Question

Как я могу динамически добавлять элементы с тегом в контрольный список, с этим кодом я получаю флажок без значения.

Dim item As CheckBox
                        While data.Read
                            item = New CheckBox()
                            With item
                                .Name = data.GetString(0)
                                .Tag = data.GetInt64(2)
                                .Text = data.GetString(0)
                            End With
                            ListeBases.Items.Add(item)
                        End While