停止指定的时间，然后再执行代码，有这样的代码码?该怎么处理

停止指定的时间，然后再执行代码，有这样的代码码?
停止指定的时间，然后再执行代码，有这样的代码码?

比如：
botton.text   =   " "
停止3秒的代码
botton.text   =   "已经停止过三秒了! "

停止3秒的代码怎样写?

[解决办法]
使用线程。
dim aa as new threading.thread(addressof bb)

Private Sub bb()
TextBox1.Text = "bb "
aa.Sleep(3000)
TextBox1.Text = "停止了3秒 "
aa.Abort()
End Sub