在VB中让程序进入等待状态,该如何解决

在VB中让程序进入等待状态如题While文件未读完TODO:给文件加密在这里延迟10msEndWhile求延迟10ms的代码(VB

在VB中让程序进入等待状态
如题
While   文件未读完
    TODO:   给文件加密
    '在这里延迟10ms
End   While

求延迟10ms的代码(VB   .NET)

[解决办法]
Sleep(10000)