延时函数vbnet

vbnet写的延时函数 Sub DelayTime(ByVal tms毫秒 As Integer) Dim st As Long = Now.Ticks Dim st1 As Long = Now.Ticks Dim st2 As Integer = 0 Do st2 = CInt((st1 - st) / 10000) Select Case st2 - tms毫秒 Case Is < 0 Applicatio