Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
    Text1.Text = "第一次"       '这里是第一次需要显示的内容
    Sleep 1000       ‘ 比如这里我假设想干点什么别的
    Text1.Text = ""   '这里我希望清空第一次的值
    Sleep 1000        '这里继续干点别的什么
    Text1.Text = "第二次"        '这里是我希望第二次显示的内容
End Sub


为什么只能显示第二次的内容，第一次的内容不显示呢？求救。

另外，textbox控件数组为什么默认不需要.text 属性呢
比如下面的
Private Sub Command1_Click()
Text1(0) = "大家好"  '这句跟 Text1(0).Text="大家好"一样了
End Sub

可能是我表达的不太清楚

Private Sub Command1_Click()
    Text1.Text = "第一次"       显示内容
    Sleep 1000                  '其实这里是希望运行一些其他的函数什么的，时间无法确定，有长时间有短时间，所以希望在运行其他的函数之前，text1的内容可以显示出来，比如在这个text里面显示目前正在干什么
    Text1.Text = ""             清空内容
    Sleep 1000                  '其实这里是希望运行一些其他的函数什么的，时间无法确定，有长时间有短时间
    Text1.Text = "第二次"       显示内容，因后面不再挂起，所以可以看得到这次的结果
End Sub

刚才我找了个延迟函数，发现如果将延迟函数加在中间就可以正常显示了。

Public Sub delay(i As Integer)

          Dim t1     As Long
         
          Dim t2     As Long
         
          t1 = timeGetTime
         
          While (t2 - t1 < i * 1)                     '//*1000，那i就是要延时i秒，级别可以自己定
                  
                  t2 = timeGetTime
                  
                  DoEvents
          Wend
End Sub

谢谢斑竹了