窗体大打开加载慢，如何在打开前先弹出一个小图片或提示信息？

谢谢管理员。不过，试了一下进度条（用我自己程序中的，没用管理提供的，看了一下代码，应该差不多），好像是要等进度条过程全部执行完了，再来执行打开“窗体B”过程，在进度条完后，中间仍能会间隔3-5秒钟（即打开“窗体B”的时间），这样看来，增加进度条就显得多此一举了！问题没有解决。

我的代码：（"frmSdsys"即窗体B）

Option Compare Database
Option Explicit

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
    Dim intX As Integer
   
    'setFormPos Me             '将此窗体置于所有窗口最上面
    Me.TimerInterval = 10            '设置计时器间隔
    'DoCmd.RunCommand acCmdAppMinimize

End Sub

Private Sub Form_Timer()
On Error Resume Next
    Dim I As Integer                 '进度条时间变量
   
    For I = 1 To 100
        ocxProCtrl = I
        Me.Repaint
        Sleep 30
    Next
   
    DoCmd.Close acForm, Name
    DoCmd.OpenForm "frmSdsys"
   
End Sub