Para Fazer um ListBox com Checks eh soh deixar a propriedade Style como 1-CheckBox
Para Pegar os itens Selecionados:
For intContador = 0 To lstProduto.ListCount - 1
If lstProduto.Selected(intContador) Then
txtProduto = lstProduto.List(intContador)
End If
Next
Te +