commonvariable.bas

这是学生做的一个游戏系统 大家参考一下

Attribute VB_Name = "CommonVariable"
Public Const MaxNumber = 480
Public MineNumMax As Integer
Public Const MaxI = 15
Public Const MaxJ = 29
Public IsLandmine(MaxI, MaxJ) As Integer
Public time As Integer
Public overFlag As Integer
Public MineNum As Integer
Public RightClickNum(MaxNumber - 1) As Integer
Public ClickOver As Integer
Public RegKey As String
Public userNum As Integer
Public Arraysp(10) As Integer
Public Usersp(10) As String