很古老的有关问题了。快来看看，你能解决么

很古老的问题了。快来看看，你能解决么
在vb2.0中：
sub   btn_click     'button的click事件
    txt1.setFocus()
    '
    '程序段1
end

sub   txt1_gotFocus   'txt1获得焦点事件
    '程序段2
end

程序段1，还是[程序段2]先之行呢，为什么呢，跟window的消息队列有关系么

本人发现是   程序段1   先执行，程序段2   后执行，为什么呢


[解决办法]
单线程，必须等一个事件完成以后再去相应另一个事件,就像你只能先买了包子才能咬一样
[解决办法]
VB·NET 是多线程了。
[解决办法]
上面写错了
sub btn_click 'button的click事件
txt1.setFocus()
DoEvents '加上这一句，就变成了先执行2后执行1 !!!!!
'程序段1
end