snamod.bas

VB编写的疯狂贪吃蛇小游戏,有声音的~

Attribute VB_Name = "Module1"
Option Explicit
Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public PStop As Integer '游戏暂停
Public SUCCESS As Integer