如何作等待界面。。？

zwh23

我在一个窗体中的打开的事件中这样写。这个窗体是启动的那个第一个显示的窗体。
Private Sub Form_Open(Cancel As Integer)
sl = DateAdd("s", 3, Now())
While sl >= Now()
Wend
DoCmd.OpenForm "sy", , , , acFormAdd, , ""
DoCmd.Close acForm, "启动。。。"
End Sub

我这样写是在窗体显示前等待3秒，要怎么写才是显示这个窗体之后等待3秒那？

eio

设置TIME属性就OK啦