record_type.bas

this game is programmed by visual basic language,please check it,thank you very much!

Attribute VB_Name = "record_type"
'方块布局记录集与records.cls类模块相连
Type record
value As Integer '布局记录的值
color_type As Integer '颜色类型
End Type
'产生方块类型，颜色类型与downmove.cls类模块相连
Type mdltype
module_type As Integer '方块类型
color_type As Integer '颜色类型
End Type