Джентльмены, можно ли программным способом вызвать событие? - VB

Формулировка задачи:

Разъяснение. Есть контрол типа Combobox. Событие "Change" для него почему-то не отрабатывает. Зато отрабатывает событие "Lost Focus". Однако спровоцировать последнее выбором значения из выпадающего списка контрола не удается (а хотелось бы). Привлекать другой контрол или вручную передавать на него фокус с Combobox - не логично. Что здесь можно посоветовать?

Решение задачи: «Джентльмены, можно ли программным способом вызвать событие?»

textual
                            Листинг программы 
                        

                            Public Sub cmdSort(<font color="blue">Asc</font> <font color="blue">As</font> Boolean)
<br>Dim rs <font color="blue">As</font> Recordset, sort <font color="blue">As</font> String, i <font color="blue">As</font> Integer
<br>  
<br>  <font color="blue">If</font> dgList.SelStartCol < <b><font color="darkblue">0</font></b> Then Exit Sub
<br>  <font color="blue">Set</font> rs = dgList.DataSource
<br>  <font color="blue">If</font> rs <font color="blue">Is</font> Nothing Then Exit Sub
<br>    
<br>  sort = <b><font color="green">"" ' построить список полей для сортировки
<br>  <font color="blue">For</font> i = dgList.SelStartCol To dgList.SelEndCol
<br>    <font color="blue">If</font> sort <> "</font></b><b><font color="green">" Then sort = sort & "</font></b>, <b><font color="green">"
<br>    sort = sort & "</font></b>[<b><font color="green">" & dgList.Columns(i).DataField & "</font></b>]<b><font color="green">"
<br>    <font color="blue">If</font> <font color="blue">Asc</font> Then sort = sort & "</font></b> <font color="blue">ASC</font><b><font color="green">" <font color="blue">Else</font> sort = sort & "</font></b> <font color="blue">DESC</font>"
<br>  <font color="blue">Next</font> i
<br>  rs.sort = sort
<br>  <font color="blue">Set</font> rs = Nothing
<br><font color="blue">End</font> Sub
                        