请问怎样在点击命令按钮时使多个文本框内的事件依次发生？比如判断各文本框内的内容不能为空：
Private Sub Text1_LostFocus()
x = Text1.Text
If x = "" Then
MsgBox "用户名不能为空！请重新输入！", vbExclamation, "工程1"
End If
End Sub

Private Sub Text2_Change()

End Sub

Private Sub Command1_Click()
Call Text1_LostFocus
End
End Sub
好像上面一段代码，我只会写单个的文本框，再加一个就不会了，请各位高手帮帮我。谢谢！

用控件数组...

将两个 Text 框合并成为一个 Text 控件数组(命名为 txtTexts)。然后写以下代码:

Private Sub txtTexts_LostFocus(Index As Integer)
x = txtTexts(Index).Text
If x = "" Then
MsgBox "用户名不能为空！请重新输入！", vbExclamation, "工程1"
End If
End Sub