Developing.ru

Всем очень здрасьте!
Вычитал у Уокенбаха "Перемещение опции в списке элемента управления ListBox". Все вроде сделал, как у него, а не получается. В чем дело?
"В данном разделе вы узнаете, как можно перемещать опции вверх и вниз в списке элемента
управления ListBox. В VBA подобный метод применяется для предоставления пользователю
возможности указать порядок просмотра элементов управления в диалоговом окне UserForm.
На рис. 14.13 показано диалоговое окно, которое содержит элемент управления L i s t B o x
и два элемента управления CommandButton. Щелчок на кнопке Вверх приведет к переме-
щению выделенной опции вверх по списку элемента управления ListBox. Щелчок на кноп-
ке Вниз приведет к перемещению выделенной опции вниз по списку."(Профессиональное программирование на VBA в Excel 2002, стр.379)
И еще. Как сделать, чтобы вместе с перемещением элементов в ListBox перемещались данные и в таблице?
Заранее благодарен.
пример

Т.к. перемещать требуется и в ListBox и в таблице рабочего листа, то лучше поступить так (см. вложение).

Использование Find выглядит как-то некошерно...
А если в списке есть одинаковые элементы?
А еще одно если: Если надо перемещать целую строку исходного набора данных?
Вобщем, переделал.

PS
Кроме того, при движении вниз у Вас получается глючок... Выделенный элемент в списке не перемещается.

Naeel Maqsudov, SAS888
Большое СПАСИБО

Надо еще добавить сюда Drag&Drop

Посему, как найти индекс элемента по координатам?