二次补充：这种问题的确奇怪，没有源代码的确是不好判断了，呵呵。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝答案补充：请楼主详细说明一下遇到的问题，因为一般来说这样写是可以的，你的“不对”是指什么，“出错”具体是什么，请明示。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 加一句： Private Sub Combo1_Click() Text1.SetFocus End Sub 即可。
Text1.SetFocus
