1
0
mirror of https://e.coding.net/circlecloud/LoadFirstPic.git synced 2024-12-29 08:18:50 +00:00
LoadFirstPic/MainBas.bas
j502647092 de9b9f28d5 update file...
Signed-off-by: j502647092 <jtb1@163.com>
2015-06-15 19:02:59 +08:00

14 lines
344 B
QBasic

Attribute VB_Name = "MainBas"
Option Explicit
'=================================Sleep========================================
Public Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Savetime As Double
Public Sub Sleep(n As Long)
Savetime = timeGetTime
While timeGetTime < Savetime + n
DoEvents
Wend
End Sub