vb怎么获取当前线程？？？

vb怎么获取当前线程。并且使当前线程休眠？？？

---

引用

Sleep API。
VB只有1个线程。

是啊，我就是想让它休眠一段时间，然后在执行一下的代码。

我的代码是：
  '关闭行政区计算包
        Shell("ntsd -c q -pn District5.exe")

‘当前线程休眠。。。。。。（代码怎么写？）
        '打开行政区计算包
        Dim openpath As String = "E:\District5.exe"

---

窗体或者模块前加上
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

在代码里：
Sleep 1000 '休眠1000毫秒，也就是1秒。

---

引用

窗体或者模块前加上
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

在代码里：
Sleep 1000 '休眠1000毫秒，也就是1秒。

"kernel32"是什么？？？

---

引用

窗体或者模块前加上
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

在代码里：
Sleep 1000 '休眠1000毫秒，也就是1秒。

哦，谢谢了啊，明白了！