1、默认属性
VB6.0有默认属性的特性。当没有给对象指定具体的属性时，"默认属性"是VB6.0将使用的属性。在某些情形下，省略常用属性名，使代码更为精简。
因为CommandButton的默认属性是Value，所以下面两句代码是等价的：
Sub Test()
Debug.Print UserForm1.CommandButton1 '输出Falue
Dim a
a = UserForm1.CommandButton1
Debug.Print a '输出False
End Sub
而从F2对象浏览器中，可以看到Value确实是CommandButton的缺省成员(默认属性)——属性图标也和其它不同，左上角多了一个小圆圈。
另一些情况，假如我们需要的是对象本身，而不是它的某个属性，比如我们想要把CommandButton1这个对象本身赋值给一个变量，就要使用Set “显式” 声明：
Sub Test()
Dim cmd As MSForms.CommandButton
Set cmd = UserForm1.CommandButton1
End Sub
当一个对象不存在默认属性，获得对象本身是否需要使用set？答案是肯定的，将一个对象赋值给变量，必须使用Set关键字：Set a = Sheet1
2、动态数组Variant
定义动态数组：(没有初始化长度)
Dim arr() As Integer '元素为整型的动态数组
Dim brr() As Variant '元素为variant类型的动态数组
Dim crr() '元素为variant类型的动态数组
动态数组的特性之一：可被同一类型的静态数组初始化（赋值）
Sub Test()
Dim arr() As Integer
Dim brr( To ) As Integer '静态数组
brr() =
brr() =
brr() =
arr = brr
Dim crr() As Variant
Dim drr( To ) As Variant
drr() =
drr() = True
drr() = "张三"
crr = drr
End Sub
如果静态数组和动态数组的元素类型不一致，则产生错误。下面的代码报编译错误“不能给数组赋值”。
1 Sub Test()
2 Dim arr()
3 Dim brr(1 To 3) As Integer
4 arr = brr '不能给数组赋值
5 End Sub
3、利用Range的Value属性和Variant()接收单元格区域的值
Range是一个区域时，它的Value返回一个静态Variant()，而动态Variant()是可是接收这个返回值的。
Sub Test()
Dim arr()
arr = Range("A1:A5").Value
arr = ThisWorkbook.Worksheets().Range("A1:A5").Value
End Sub
实际写VBA代码时，更多是像下面这样，使用variant变量达到相同效果：
Sub Test()
Dim arr
arr = Range("A1:A5")
arr = ThisWorkbook.Worksheets().Range("A1:A5")
End Sub
这样的写法没有属性的显式调用，可能许多人会认为利用了Range对象的默认属性，这个默认属性会让人觉得是Value或Value2。
4、Range对象的默认属性是什么？
入门VBA的时候，绝多数人都说Value是Range对象的默认属性，所以下面这样写，大多数人认为是省略Value的写法：
1 Sub Test()
2 Dim arr()
3 arr = Range("A1:A5")
4 End Sub
而这个说法有可能是错的。实际上，可能_Default 才是Range的默认属性
1、_Default属性两个参数都是可选的。意味着两个参数都可以没有。而这个属性的返回值没有定义，意味着它可以是Variant()或Variant。
2、Range("A1")和Range("A1").Value，从截图中可猜测上例的情况并不是省略了Value的写法。
3、_Default是Range对象的默认属性，而且是没有名字的。(仅仅是推测，可以有不取名字的属性么？)
推测证据1：
[题外话：worksheets也有一个_Default默认属性，事实上，发现集合类对象几乎都有_Default默认属性(用作索引)。可自行求证]
下面这些写法是成立的：
Debug.Print Range("A1:A5")(2, 1)
Debug.Print Range("A1:A5")(1)
推测证据2：
我们常用Cells(index,index)的方式表示一个单元格。那这个表示法是从何而来呢？Cells属性本身并没有参数，见图：
但Cells属性返回的是Range对象，Range对象的默认属性即_Default：
5、Object类型和一个保留问题
使用默认属性常常会见到这样的问题：
正常运行的代码A
Sub Test1()
Dim arr()
arr = Range("A1:A5")
End Sub
正常运行的代码B :
Sub Test2()
Dim arr
arr = ThisWorkbook.Worksheets().Range("A1:A5")
End Sub
运行会报错的代码C
Sub Test3()
Dim arr()
arr = ThisWorkbook.Worksheets().Range("A1:A5")
End Sub
上面的写法均省略了默认属性。(是Value? 还是_Dafault?)
B和C等式右边的表达式是完全相同的。但在运行时，arr可以正常赋值，arr()就会报错。
需要留意的是，Worksheets(1)的类型是Object，不是一个强类型。arr()遇到Object.Range()，正是这种情况会出现问题，而不能正常解析的问题原因没找出。
上面报错的代码，如果换一种方式，先声明一个显式类型Worksheet，问题就解决了。
Sub Test4()
Dim arr()
Dim sht As Worksheet
Set sht = ThisWorkbook.Worksheets()
arr = sht.Range("A1:A5")
End Sub
6、自定义类的默认属性
如何在自己类中定义默认属性呢？
VB6实现：（一个对象只能有一个默认属性）
步骤1：在写好属性过程后，然后点击工具—过程属性
步骤2：在过程属性中，选择要设置为默认属性的名称，点选高级，最近设置过程标识符为“缺省”
VBA实现：
方法： 将类模块代码导出，使用文本编缉器（比如notepad）修改代码，然后重新导入VBA类模块。
案例：写一个Person类，有一个属性叫P_name，现在想要设置它为Person类的默认属性。
Private name As String Public Property Get P_name() As String
P_name = name
End Property Public Property Let P_name(ByVal vNewValue As String)
name = vNewValue
End Property Private Sub Class_Initialize()
name = "张三"
End Sub
1、导出类文件到本地，默认文件名为：Person.cls
2、使用文本编缉器打开。（文字涂灰的部分是自动生成的）
3、修改属性过程代码，在P_name属性过程中添加一句：Attribute P_name.VB_UserMemId = 0
4、将修改后的cls重新导入类模块。
VERSION 1.0 CLASS
BEGIN
MultiUse = - 'True
END Attribute VB_Name = "Person"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False Private name As String Public Property Get P_name() As String
Attribute P_name.VB_UserMemId = 0
P_name = name
End Property Public Property Let P_name(ByVal vNewValue As String)
Attribute P_name.VB_UserMemId = 0
name = vNewValue
End Property Private Sub Class_Initialize()
name = "张三"
End Sub
使用：
Sub Test()
Dim p As New Person Debug.Print p
'Debug.Print p.P_name p = "李四" '直接给对象赋值(实际赋值给了默认属性)
Debug.Print p
'Debug.Print p.P_name End Sub