[VB6] - problem z indexem kontrolki filelistbox

QQQromaneq [ Konsul ]

[VB6] - problem z indexem kontrolki filelistbox

Private Sub File1_KeyDown(KeyCode As Integer, Shift As Integer)

Label1(1).Caption = File1.ListIndex

End Sub

na formie kontrolka filelistbox pokazuje pliki w bieżącym folderze i to jest OK natomiast nie mogę dojść ładu z wartością indexu tej kontrolki - który jest różny dla tego samego pliku w zależności od tego czy przegladam listę w górę czy w dół

Przykład ( folder w którym znajduje się kontrolka zawiera 3 pliki )

1.naciśniecie klawisza w dół - kontrolka podświetla 1 plik ( setfocus nic nie zmienia ) index= -1
2.naciśniecie klawisza w dół - kontrolka podświetla 2 plik index= 0
3.naciśniecie klawisza w dół - kontrolka podświetla 3 plik index= 1

4.naciśniecie klawisza w górę - kontrolka podświetla 2 plik index= 2 ( ??? jakim cudem ??? )
5.naciśniecie klawisza w górę - kontrolka podświetla 1 plik index= 1
6.naciśniecie klawisza w górę - kontrolka podświetla 1 plik index= 0

7.naciśniecie klawisza w dół - kontrolka podświetla 2 plik index= 0

udało mi się nad tym zapanować stosując powiązania w keydown i keyup ale to potem strasznie komplikuje dalszy kod - czy jest jakiś ( możliwie najprostszy sposób na poprawne odczytywanie tego indexu - to zncazy aby dla konkretnego pliku był zawsze ten sam index