code298a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 10 行

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