Dudas con checked list box en visual basic 6.0

[seba123neo]

Hola, proba esto:

Código vb:

Option Explicit
 
Private Sub Form_Load()
    With List1
        .AddItem "Opcion 1"
        .AddItem "Opcion 2"
        .AddItem "Opcion 3"
    End With
End Sub
 
Private Sub List1_Click()
    Dim vPuntos As Integer
    Dim i As Integer
    
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) = True Then
            vPuntos = vPuntos + 3
        End If
    Next i
    
    MsgBox vPuntos
End Sub
 

tambien podes ponerlo en el evento ItemCheck, ¿ pregunta en que visual basic estas programando ?

saludos.