Серьёзная ошибка ListBox в Excel

[Aent]

Убил несколько дней на локализацию серьёзной ошибки в Excel.
Предположим что есть лист в котором по двойному клику (это принципиально) по ячейке
вызывается пользовательская экранная форма UF1.
На форме расположен ListBox LT c
.ListStyle = fmStyleOption
.MultiSelect = fmMultiSelectMulti
При двойном клике в LT формируется список и форма показывается.
Так вот.
Если кликать в области листа ПОД местом где на экране появится
листбокс, то с высокой вероятностью в списке появятся отмеченные
(выбранные) элементы. Если кликать по листу вне зоны где появится
LT - никаких элементов выбрано не будет.
При этом в LT лишний клик в обработчике событий не фиксируется.
Хотя одна из выбранных лишних строк соответствует
ординате курсора мыши на листе Excel.
Более того.
Если поставить перед UF1.show точку останова (или msgbox, или
что то вроде Application.wait(now + TimeValue("00:00:02")) ,
то всё работает правильно - лишние элементы не отмечаются.
Пробовал под Excel 2003 и 2010 в Vista SP2 и Win 7 Pro SP1.
Эффект полностью воспроизводим на разных компьютерах с разными
системами и офисами.
Так как из-за глюков форума не могу прицепить пример в этом посте - добавлю его в следующем сообщении.

[Aent]

Пример файла моделирующего ситуацию

[Hugo121]

Нда...
У меня не "высокая вероятность" - у меня пока 100% вероятность...

[Казанский]

А у меня еще и первый элемент выбирается (Excel 2000, WinXP SP2).
Придумал, как ждать не более 1 секунды:

[Aent]

Отмечается не первый элемент а в зависимости от того где был .ListIndex перед .show
Добавьте перед .Show
UF1.LT.ListIndex =UF1.LT.ListCount - 1
и отмечаться будет последний .
Ждать секунду заказчик не хочет.
На вариант с запуском макроса скажем по правому клику - то же не идёт.
Пока проблема решилась эмпирически.
Установкой перед .show цикла

 For i = 1 To 8000
     DoEvents
 Next i

Всё же тормозит (у меня и клиента) меньше чем на 1 с.
Число оборотов цикла подбирал экспериментально.

[Казанский]

> Ждать секунду заказчик не хочет.

Ишь, какой торопливый
Тогда такой "костыль". Если между запуском формы и изменением листбокса проходит менее 0,1 с, то это глюк, а не пользователь, и надо очистить весь список:

[Aent]

Казанский, хорошая идея - спасибо
У меня ситуация несколько сложнее - список отметок не сбрасывается а загружается
перед показом. Но, полагаю - должно получиться и в этом варианте.

[EducatedFool]

Я бы сделал задержку таким способом:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim i As Long
    Cancel = True
    UF1.LT.Clear
    For i = 1 To 50
       UF1.LT.AddItem Replace(String(20, "*"), "*", Format$(i, "00"))
    Next i
    ЗапускМакросаСНебольшойЗадержкой
End Sub

Sub ЗапускФормыUF1()
    UF1.Show
End Sub

Sub ЗапускМакросаСНебольшойЗадержкой() ' по мотивам макроса ZVI_Timer
   ЗадержкаВСекундах = 0.2    ' в секундах
   НазваниеМакроса$ = "ЗапускФормыUF1"    ' этот макрос будет запущен через 0.3 сек.
   ЗадержкаВЧасах$ = Replace(Format(CDbl(TimeSerial(0, 0, 1)) * ЗадержкаВСекундах, "0.000000000"), ",", ".")
    macro = "ON.TIME(NOW()+" & ЗадержкаВЧасах$ & ", """ & НазваниеМакроса$ & """)" ' формируем команду запуска
   ExecuteExcel4Macro macro ' macro = ON.TIME(NOW()+0.000003472, "test")
End Sub

PS: На домашнем компе проблема не проявляется (видимо, из-за того, что я работаю на нём удалённо, через RDP, - соответственно, перерисовка окон происходит с незначительной задержкой)

[Aent]

Спасибо, Игорь.

[Казанский]

Без подбора временнЫх интервалов.
При нормальной работе событие MouseDown или KeyDown происходит перед событием Change. Если Change произошло без нажатия мыши или клавиши - это глюк.

Если значения будут меняться программно, перед изменением надо установить флаг MouseKeyDown = True.