Question

vb延时方法

我在窗体上画了个按钮，鼠标滑过他，按钮上的字就会变。接着我希望能等待3秒后按钮上的字再变一次。
以下是我的代码：
Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
Button1.Text = "3秒后变化"
（此处要加一段代码，使他延时3秒）
End Sub

我是VB2008速成版的，网上的方法都行不通，希望是和我用一样版本的高手来帮忙

Answer 1

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

Answer 2

方法一、
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
用的时候
Sleep 3000 ‘延迟3秒

方法二、
延时函数，参数 pausetime 为需要暂停的时间，单位是秒

Public Sub Delay(PauseTime As Long)
Dim Start As Single
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
End Sub

Answer 3

Threading.Thread.Sleep(3000)'延时3000毫秒
或者下面的过程
Private Sub delay(ByVal t As Long) '延时方法
Dim temp As Long = Environment.TickCount
While Environment.TickCount - temp <= t
Application.DoEvents()
End While
End Sub