dotNETportal.cz

Kód funguje. Napadá mě, že máte nastavenou u ListBoxu vlastnost HideSelection na True. To by zapříčinilo, že se vždycky schová označená položka. Proto ji nastavte na False.

Další příčinou může být neošetřený kód. Kompletní vypadá takto:

        Dim ind As Integer
        If L.SelectedItems.Count = 0 Then
            ind = 0 ' zadna polozka neni oznacena, zvoli se prvni
        Else
            ind = 1 + L.SelectedItems(0).Index ' nacteni indexu dalsiho zaznamu
        End If

        If ind < L.Items.Count Then ' kontrola, zda existuje dalsi zaznam
            ' zajistit odoznaceni vsech vybranych
            Do Until L.SelectedItems.Count = 0
                L.SelectedItems(0).Selected = False
            Loop
            ' zvoleni dalsiho
            L.Items(ind).Selected = True
        End If