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

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.Text2.SetFocus 之后加一句：DoEvents 就好了。