Ecco come sapere se sono checkate le voci:
sicuramente si può fare di meglio.........

fate un nuovo progetto vuoto e incollate questo codice:

con un controllo list1 e command1:

1. cliccando sulla check funziona perfettamente.............
2. cliccando sulla voce, bisogna cliccare due volte.........e non sempre funziona bene, ma se cliccate con calma,.......funziona



'------------taglia da quì----------------
Dim cont(4)

Private Sub Command1_Click()
msg = ""
For i = 0 To 4
If cont(i) = 1 Then
msg = msg & List1.List(i) & vbCrLf
End If
Next i
MsgBox msg
End Sub

Private Sub Form_Load()
For i = 0 To 4
cont(i) = 0
Next i
List1.AddItem "Pippo"
List1.AddItem "Pluto"
List1.AddItem "Paperone"
List1.AddItem "minni"
List1.AddItem "Topolino"
End Sub

Private Sub List1_Click()

For i = 0 To 4
If List1.List(i) = List1.Text And List1.Selected(i) = True _
And cont(i) = 0 Then cont(i) = 1
If List1.List(i) = List1.Text And List1.Selected(i) = False _
And cont(i) = 1 Then cont(i) = 0Next i
End Sub

'----------a quì---------------------



link
homepage
http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
software
http://%77%77%77%2e%74%77%6f%72%6b%2...programmi.html
forum
http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp