Visual Basic - ListBox con checkbox

Lo que quiero es muy simple. Tegno un listbox en donde cada item tiene un chek, necesito preguntar cual esta ectivado y cual no.

Muchas gracias

Dim i As Integer
Dim ItemMarcados As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
ItemMarcados = ItemMarcados + 1
End If
Next i
MsgBox "Estan marcados " & ItemMarcados, vbInformation
End Sub