请问在VB中怎么延时timedelay

Question

sub delay(delay time as long)这句话是红的，有错误

Answer 1

在模块中定义函数
sub delay(delay time as long)
for i=1 to delaytime
doevents
next i
end sub

在窗体中写下：
delay(1000)
表示延时一秒！

Answer 2

public sub delay(delaytime as long) '变量名称不能有空格
for i=1 to delaytime
doevents
next
end sub