VB延迟函数咋整

刚才给你发，你居然把问题关闭了
用timer控件

Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Print "t"
Timer1.Enabled = False
End Sub

用timer函数
sub command1_click()
dim lngT
lngT=timer '返回午夜 12 时以后已经过去的秒数。
do
'不作任何操作
loop until timer-lngT>=1 '差值〉=1秒
'当然如果时间间隔较长，简单一些的方法就是用timer控件了．
Print "t"
end sub

可以用api函数里的 sleep 延时
你也可以来个空循环
for i = 1 to 1000
next i
也可以达到效果 就是浪费资源