vb延时方法

延时最好的方法是锻炼身体，饮食营养健康加上好的心态，增加情趣以及延长时间都能够起到帮助的。

炒肉类菜肴，要求炒得鲜嫩可口。炒菜的火候，投料的顺序都有讲究。以炒猪肉片为例说明：猪肉洗净切片，炒锅上火烧热，加入底油，油热后，先将葱花与肉片一同下锅煸炒，见肉表面发白接近半熟时，先烹入少许醋拌炒，待醋味迅速蒸发，再加入姜汁搅拌入味。然后加酱油、少许水，水沸后，放入副料，最后勾交，淋少许明油出勺。炒蔬菜类菜肴，则可用热锅温油，先下鲜姜末，炸出香味后，再下切好的蔬菜，迅速翻炒，待蔬菜响声已过，质地变软时，再加酱油炒匀，再放入少许汤水、食盐、白糖、味精，炒匀后，勾芡并淋香油即可出勺。

f

自定义一个函数： Private Const KEYEVENTF_KEYUP = &H2

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Pause(ByVal sSec As Long)

Dim StartSec As Long

StartSec = GetTickCount()

While (GetTickCount() - StartSec) <sSec

DoEvents

Wend

End Sub这样Pause(50)就可以延迟50毫秒、Pause(1000)就可以延迟1秒，（）里面的数字可以随便写，单位是毫秒，1秒=1000毫秒。

---