Se nel tuo controllo si vedono 10 righe, allora scrivi

codice:
    Dim n As Long
    If Button = 2 Then
        n = Int(Y / (List1.Height / 10))
        If n < List1.ListCount Then List1.ListIndex = List1.TopIndex + n
    End If
... ovviamente cambia quel 10 con il numero di righe mostrate dal tuo controllo se queste sono in numero diverso ...