[VB 6] ListBox con checkbox

[tas]

Usa un flag:

'nelle dichiarazioni del form
Private flag As Boolean

'codice
flag = True
ListBox.Selected(i) = True
flag = False

'evento
Private Sub ListBox_ItemCheck(Item As Integer)
   If flag Then Exit Sub

   ...
End sub