Mah ... comunque prova così (cambiando il nome della lista)

codice:
Private Sub List1_Click()
    Static updateActive As Boolean
    
    If Not updateActive Then
        Dim i As Integer
        
        If List1.ListIndex <> -1 Then
            updateActive = True
            
            Dim oldsel As Integer
            oldsel = List1.ListIndex
            
            For i = 0 To List1.ListCount - 1
                List1.Selected(i) = False
            Next
            
            List1.Selected(oldsel) = True
            updateActive = False
        End If
    End If
End Sub
EDIT: più o meno come ha detto Giorgio ...