module1.bas

这是一个VB 俄罗斯方块 1.0.0 一个好玩的游戏

Attribute VB_Name = "Module1"
Option Explicit


Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
        
Public IsMusicOn As Boolean
Public RetValue As Long