请问在VB中怎么延时timedelay

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

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

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