VB各位大侠，为什么关闭按钮需要点两次啊

Form1控件的代码如下：
Private Sub Text1_GotFocus()
Load Form2
Form2.Show
End Sub
Form2控件的代码如下：
Private Sub Command1_Click()
Form1.Text2.SetFocus
Unload Form2
'Unload Form2
End Sub

我想点击Form1.Text1时候弹出Form2对话框，然后关闭Form2对话框同时Form1中的焦点移动到
Form.Text2上,但是为什么每次需要点击两次Command1命令按钮才能关闭对话框啊？？
--------------------编程问答-------------------- Form1控件的代码如下：

Private Sub Text1_Click()

    Load Form2

    Form2.Show

End Sub

--------------------编程问答--------------------

'form1

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then

        Form2.Show

    End If

End Sub



'form2

Private Sub Command1_Click()

    Form1.Text2.SetFocus

    Unload Form2

End Sub

--------------------编程问答-------------------- 我的意图没讲清楚，不好意思，我想用tab键获取焦点后直接弹出对话框，而不是click,现在使用Getfocus就会出现点两次才会关闭的情况，这该怎么处理啊，而且你给我的代码我也试过，好像没反应呀，亲。 --------------------编程问答-------------------- 这是自己的代码问题啊。

你只要在 Form1.Text2.SetFocus 之后加一句：DoEvents 就好了。
--------------------编程问答-------------------- 多谢啦 ，哈哈，，成功啦，感激啊 --------------------编程问答-------------------- 问题给你解决了，你就溜之大吉啊。

补充：VB ,  控件