[VB6] Listview e checkbox

[sintax_error]

Salve amici

Una domandina semplice semplice credo:
ho una Listview con dei check box ogni riga,ora io vorrei che questi benedetti checkbox si comportassero come dei radio button
nel senso che si abilitano soltanto uno alla volta e' possibile?

Private Sub lst_ItemClick(ByVal Item As MSComctlLib.ListItem)
lst.SelectedItem.Checked = True
End Sub

questo codice mi cheka il checkbox ,ma facendo click su un'altra riga vorrei il comportamento descritto sopra cioe' deselezionare quello true e selezionare il nuovo.
Spero di essere stato chiaro
Grazie in anticipo

[raffaeu]

1-Fai un For each degli Item della List
2-Se l' item è chekkato, scekkalo ...
3-Cekka il SelectedItem, cioè quello che stai cliccando

[sintax_error]

ho fatto cosi ma non funziona:

Private Sub lst_ItemClick(ByVal Item As MSComctlLib.ListItem)

Dim check As ListView
For Each check In lst
check.SelectedItem.Checked = False
Next

lst.SelectedItem.Checked = True
End Sub

Ma non funziona.
dove e l'errore?

[raffaeu]

dim Item as Listview.Item

For each Item in Listview.items
     Itam.checked = false
Next

[sintax_error]

non va
Errore di compilazione
tipo non corrispondente.
ho anche corretto l'errore di scrittura (itam )
Grazie per l'aiuto

[sintax_error]

Niente
ancora non mi va
Help me

[L'Aquila]

Prova a salvarti l'indice del l'elemento selezionato: quando selezioni un nuovo item deselezioni quello precedentemente selezionato.

Private Sub lst_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim vecchioSelezionato As Integer
lst.ListItems.Item(vecchioSelezionato).Checked = False
lst.SelectedItem.Checked = True
vecchioSelezonato = lst.SelectedItem.Index
End Sub

[sintax_error]

non mi funziom nemmeno cosi

[L'Aquila]

Prova con questo: a funziona! Ho controllato anche l'evento ItemCheck

Dim vecchioSelezionato As Integer

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
ListView1.ListItems.Item(vecchioSelezionato).Checked = False
vecchioSelezionato = Item.Index
End Sub

Private Sub listview1_ItemClick(ByVal Item As MSComctlLib.ListItem)
ListView1.ListItems.Item(vecchioSelezionato).Checked = False
ListView1.SelectedItem.Checked = True
vecchioSelezionato = ListView1.SelectedItem.Index
End Sub