怎么实现刷屏？？

Question

  Label14.Caption = "正在创建数据库..."
  Command1.Enabled = False
  Call 建科目库.Command1_Click
然后在label14中，一直无法显示，等创建完了显示了，怎么在等待见数据库的时候，label14中显示着“正在创建数据库”？

Answer 1

在等待见数据库前，先执行下  Label14.Caption = "正在创建数据库..."
Call 建科目库.Command1_Click    “建科目库”是窗体名吗？试了下好像不通过。应该要改成
Call Command1_Click

Answer 2

是要这种效果吗？
Option Explicit
Private WithEvents Timer1 As Timer
Dim i%Private Sub Form_Load()
  Controls.Add "VB.Label", "Label14"
  Set Timer1 = Controls.Add("VB.Timer", "Timer1")
  Me!Label14.Move 0, 0, 2000, 400
  Me!Label14.Visible = True
  Me!Timer1.Interval = 200
  Me!Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
  i = i + 1
  If i > 5 Then i = 1
  Me!Label14.Caption = "正在创建数据库" & String(i, ".")
End Sub

Answer 3

\
呵呵，这个是不是有点复杂了？没有那种命令吗？就是把，建数据库很费时间，但是等建完了，label中才显示出来“正在创建”，我想要的是，只要一点按钮，就显示出来

Answer 4

Label14.Caption = "正在创建数据库..."
Label14.Refresh 
doevents  Command1.Enabled = False
  Call 建科目库.Command1_Click

Answer 5

在 需要显示的窗体上，放一个Timer1，设置其Enabled=False，事件内容如下：Private Sub Timer1_Timer()
  Static i%
  i = i + 1
  If i > 5 Then i = 1
  Me!Label14.Caption = "正在创建数据库" & String(i, ".")
End Sub
在创建数据库前的代码部分，加入
  Timer1.Interval = 200
  Timer1.Enabled = True  '  开启Timer1
等创建完了,设置Timer1.Enabled = False