vb ms延时程序

vb精确延时函数,单位是毫秒,支持小数ms延时程序