launchmod.bas

我刚找到的撞球游戏原代码.rar是一个横好玩的游戏不知道你玩过没有

Attribute VB_Name = "LaunchMod"
Public Sub Pause(PauseTime As Double) ' waits
Dim StartTime As Double
StartTime = Timer
Do While Timer < PauseTime + StartTime
 DoEvents
Loop
End Sub
Public Sub ThisDir() ' changes the dir to this dir
 ChDrive App.Path
 ChDir App.Path
End Sub