很急的一个小问题，请各位大侠指教！！！

Question

程序运行时，先将焦点移到text1,
form_load()
text1.setfocus

Answer 1

用sendkey代替setfocus比较方便，而且可以与各文本框的tab index相一致。
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii Then SendKeys "{TAB}"
End Sub
这样采用文本框数组时也比较方便：

Answer 2

看看你的TEXT4中得到焦点事件中是否又回到了TEXT1。
SUB TEXT4_GOTFOCUS
    TEXT1.SETFOCUS
END SUB

Answer 3

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  Text2.SetFocus
End If
End Sub
完全可以，你肯定漏了end if!

Answer 4

对!!是你漏掉了END IF!!
'''运行过程分析如下:'捕获TEXT1的按键事件,进入子程序开始运行
'--------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
'判断按键代码是13, 处理then后面的语句 :
If KeyAscii = 13 Then  '因为then后面为空,所以程序什么也不做
'接下来处理后面的语句
  Text4.SetFocus  '将焦点放在TEXT1控件上,只要是要TEXT1按键事件的发生'''分析结束
End Sub'--------------------你这下该明白了吧???
如何??
分析的对吧??给分吧???  : )