Private Sub Button1_Click()
为会泽等地区用户提供了全套网页设计制作服务，及会泽网站建设行业解决方案。主营业务为网站设计、成都做网站、会泽网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
MsgBox("A")
Threading.Thread.Sleep(3000)
MsgBox("B")
End Sub
如果暂停的3秒有影响，就给他开一个线程：
Private Sub Button1_Click()
Dim th As New Threading.Thread(AddressOf MsgBoxProc)
th.Start()
End Sub
Private Sub MsgBoxProc()
MsgBox("A")
Threading.Thread.Sleep(3000)
MsgBox("B")
End Sub
你加入一个定时器Timer1
使Enable属性为TRUE
然后调用Private Sub Timer1_Timer（）
Timer.interval=3000
MsgBox "错误!", vbInformation + vbOKOnly, "提示"
Timer.Enable=FALSE
end Sub
延时最好的方法是锻炼身体，饮食营养健康加上好的心态，增加情趣以及延长时间都能够起到帮助的。
炒肉类菜肴，要求炒得鲜嫩可口。炒菜的火候，投料的顺序都有讲究。以炒猪肉片为例说明：猪肉洗净切片，炒锅上火烧热，加入底油，油热后，先将葱花与肉片一同下锅煸炒，见肉表面发白接近半熟时，先烹入少许醋拌炒，待醋味迅速蒸发，再加入姜汁搅拌入味。然后加酱油、少许水，水沸后，放入副料，最后勾交，淋少许明油出勺。炒蔬菜类菜肴，则可用热锅温油，先下鲜姜末，炸出香味后，再下切好的蔬菜，迅速翻炒，待蔬菜响声已过，质地变软时，再加酱油炒匀，再放入少许汤水、食盐、白糖、味精，炒匀后，勾芡并淋香油即可出勺。
f
