在VB中经常会遇到错误的处理，Err是一个全局的对象。每个过程都最好防置一个处理错误的语句块，最好是On Err 放在第一行，在代码的最后防止处理错误的代码。下面总结一下关于Err的知识点。
主要属性：Number错误号（0-512系统使用，513-65535，+ vbObjectError类和对象错误） 没错误Number=0；
Description什么错误；
Source产生错误的地方
主要方法：Clear（清空错误恢复number=0）；
Raise（产生希望得到的错误）
错误处理： 1>. On Error resume Next 不管错误继续执行下一条语句（忽略错误）
2>. On Error Goto [Line或字符串] 遇到错误跳转到指定的行
3>. IF (err.number>0) then …
4>. Resume [Line|Next|] 转移到指定的行
下面是一段使用错误属性的代码：
Private Sub Command2_Click()
On Error Resume Next
Print 10 / 0
Dim intRec As Integer
'显示 错误号，错误源，错误描述
If Err.Number > 0 Then
intRec = MsgBox("错误号：" & Err.Number & Chr(10) & Chr(13) _
& "错误源：" & Err.Source & Chr(10) & Chr(13) _
& "错误描述：" & Err.Description, vbCritical)
End If
End Sub
为确保每次只有出现错误的时候才处理错误，应该在错误处理代码的前面加上：Exit Sub、Exit Function 或 Exit Property语句。下面写段标准的错误处理代码：
Private Sub Command2_Click()
On Error GoTo PROC_ERR '放在开头
'.......
Print 10 / 0 '错误处
'......
Exit Sub '防止正确操作也进行错误处理
PROC_ERR: '错误处理放在结尾
Print "错误" '具体的错误处理
MsgBox "aaaaaaa"
End Sub
