在thisworkbook代码如下:
Private Sub Workbook_Open()
cxqd.Show
End Sub
在窗体cxqd中代码如下:
Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("00:00:01")
Label6.Caption = "正在读取数据文件"
Application.Wait Now + TimeValue("00:00:02")
Label6.Caption = "正在配置初始信息"
Application.Wait Now + TimeValue("00:00:02")
Label6.Caption = "启动成功!"
cxqd.Hide
End Sub
问题是:Label6标签在启动窗体时的内容并不随时间变化而显示!
请教代码有什么问题??