类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
添加new？
网友回答：
dim cls as new Class
或
dim cls as Class
set cls = new Class
在类模块内的Class_Initialize内添加代码即为类的初始化代码
Private Sub Class_Initialize()
End Sub
楼上正解
你要想在类初始化时写代码的话，就用 lxcc(虫子|需要点勇气和信心)所说的
你要想在程序在引用你所写的类就用qiqi5521(琪琪)
同意，正解。
类的初始化
Private Sub Class_Initialize()
SMUnlockData(0) = &H35
SMUnlockData(1) = &H6
ProgCount = 0
ItemCount = 0
TestingCHs = 0
TestingItem = 0
RlsCOutT = 0
GGICType = -32768
End Sub