关于VB中类的理解

Option Explicit

'这段代码是一个类模块中的代码 这个代码的类模块名称就是CleanForm
Private cr As Long '定义保存临时变量

'Property是一个属性关键字，Let说明是设置属性 Color是属性名
'通过以下的代码 那么定义一个类后比如定义一个cf
'Private cf As SetColorForm
'那么 cf就能够设置一个属性cf.color=颜色值
'颜色值给了v之后被类变量保存到临时变量cr中
Public Property Let Color(v As Long)

cr = v
End Property

'以下是这个类的一个方法 参数为一个窗体
'方法名是将这个参数（即这个窗体）的背景设置为刚才保存的临时变量中
Public Sub SetBackColor(ByVal fm As Form)
fm.BackColor = cr
End Sub

'然后在窗体Form1中增加一个按钮Command1，写入代码：
'下面这行代码的意义是定义类变量
Private cf As SetColorForm

Private Sub Command1_Click()
'以下的意义是 调用这个类变量的 setbackcolor方法 并传递当前窗体
'刚才我们已经分析了，这个方法的作用是将参数中窗体的背景色修改为cf这个类保存的cr变量的颜色
a: cf.SetBackColor Me
End Sub

Private Sub Form_Load()

'这个就是一个类变量必须先new来初始化，不但要定义 还要new
b: cf = New CleanForm
'设置这个类的属性，即将RGB(255,0,0)这个属性颜色保存到类的变量中，以方便在command中调用修改颜色。
c: cf.Color = RGB(255, 0, 0)
End Sub

'综上所述，其实代码很简单，只不过你对类没有概念而己。