[VB6] Non fare eseguire righe di codice al programma

[Elena85]

Ciao a tutti!
E' possibile non fare eseguire alcune righe di codice al programma?

Private Sub lstLotto_Click()

Dim i As Integer

'Quando si seleziona un codice lotto, devo popolare la ListBox lstFile2...
If lstLotto.ListIndex <> -1 Then

    'Recupero indice del file selezionato e deseleziono tutti gli altri...
    Dim indice As Integer
    indice = lstLotto.ListIndex
    
    For i = 0 To lstLotto.ListCount - 1
        
        If i <> indice Then
            lstLotto.Selected(i) = False
        Else
            lstLotto.Selected(i) = True
        End If
        
    Next
    
End If

.....

End sub

Nel codice che ho postato, quando viene eseguita la riga di codice

lstLotto.Selected(i) = True

il programma non passa alla riga successiva, ma richiama la sub lstLotto.Click() e quindi ricomincia!

Come posso evitarlo?
Grazie mille!