Const LB_SETCARETINDEX = &H19E
Сообщение LB_SETCARETINDEX фокусный прямоугольник на заданной строке в списке с множественным выделением. Если эта строка невидима, то список автоматически прокручивается до заданной строки
В случае ошибки возвращается LB_ERR
' смотри также пример listbox.zip
' Устанавливаем фокус на 6 строчке списка
SendMessage List2.hWnd, LB_SETCARETINDEX, 5, 1