能给我一个简单的类模块使用例子吗？
我在网上找的类模块都好长啊，而且我也不知道它怎么用法，可以拿一个简单一点的给我看看吗？可以拿来运行的就更好了，谢谢啊
[解决办法]
上面的发错了
'===Form1====
Option Explicit
Private Sub Command1_Click()
Dim obj As Class1
Set obj = New Class1
MsgBox obj.XY(10, 20)
End Sub
'========================
Option Explicit
Function XY(x As Integer, y As Integer) As Long
XY = x + y
End Function
'====Class1====
Private Sub Class_Initialize()
MsgBox "类开始 "
End Sub
Private Sub Class_Terminate()
MsgBox "类结束 "
End Sub
[解决办法]
呵呵，这个自己打开msdn，里面的例子很好啊
vb中文精简版的：使用visual basic---》部件工具指南---》创建activex部件
这里面就有现成的例子，且介绍比较全面
