请问，，类模块没有可见界面，那定义属性是不是很难，还有方法和事件，

[hongyie]

还有，，，要定义这些东西要掌握多少理论，，，，你们给个主意，，小妹先谢谢了

[easydone]

如果没有事件的话很简单，就像普通的模块中的一样。然后就可以使用类模块的名称定义变量了。
'项目类型是ActiveX Dll,编译后生成*.dll文件，使用前先注册。
'类模块,名称是CheckUC。--------------------------------------------
Option Explicit
Private ReturnV As Boolean

'该函数用于检测单位编码的格式是否合法，若合法则返回True；否则返回False
Public Function CheckUnitCode(UnitCode As String) As Boolean
Dim db As String
Dim i As Integer
#If MYDEBUG = 1 Then
DebugInfo "Value to Check:" + UnitCode
#End If
db = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"

If UnitCode = "" Then
CheckUnitCode = False
ReturnV = False
Exit Function
End If

If Len(UnitCode) < 2 And Len(UnitCode) > 8 Then
CheckUnitCode = False
ReturnV = False
Exit Function
End If

If Len(UnitCode) Mod 2 <> 0 Then
CheckUnitCode = False
ReturnV = False
Exit Function
End If

UnitCode = UCase(UnitCode)
For i = 1 To Len(UnitCode)
If InStr(db, Mid(UnitCode, i, 1)) > 0 Then
Else
CheckUnitCode = False
ReturnV = False
Exit Function
End If
Next i
CheckUnitCode = True
ReturnV = True
End Function

Private Sub Class_Initialize()
#If MYDEBUG = 1 Then
DebugInfo "CheckUnitCode.dll is logging (begin time is " + CStr(Now) + ")"
#End If
End Sub

Private Sub Class_Terminate()
#If MYDEBUG = 1 Then
If ReturnV Then
DebugInfo "CheckUnitCode=True" + Chr(13) + Chr(10) + "CheckUnitCode completes logging now."
Else
DebugInfo "CheckUnitCode=False" + Chr(13) + Chr(10) + "CheckUnitCode completes logging now."
End If
#End If
End Sub
'----------------------------------------------------------
’用的时候
dim G_ChkUC As CheckUC