Dim MyDog As CDog Set MyDog = New CDog Dim MyDog2 As
CDog Set MyDog2 = New CDog MyDog.Name = "Billy
Moore" MsgBox MyDog.Name MyDog2.Name = "Sadie Moore" MsgBox
MyDog2.Name Set MyDog = Nothing Set MyDog2 =
Nothing 与最前面的代码不同的是,这里的代码实际上是定义两个对象MyDog和MyDog2,这两个对象是基于CDog的相互独立的两个对象。
Dim MyDog As CDog Set MyDog = New CDog Dim MyDog2 As
CDog Set MyDog2 = New CDog MyDog.Name = "Billy
Moore" MyDog.Age = 4 MsgBox MyDog.Name & " is " &
MyDog.Age & " years old" MyDog2.Name = "Sadie
Moore" MyDog2.Age = 7 MsgBox MyDog2.Name & " is " &
MyDog2.Age & " years old" Set MyDog = Nothing Set MyDog2 =
Nothing 这些代码和前面差不多,只不过这里使用了Age变量。