code298a.txt

VB大全（精华版）源代码

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub Main()
  Dim Delay As Long

  Debug.Print Format(Time, "Long Time")
  Sleep (5000)
  Debug.Print Format(Time, "Long Time")
End Sub