[VB6] Listview e checkbox

[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?