1.将Single，Double和Currency类型的变量替换为Integer或Long类型的变量；10倍
2.避免使用变体：
慢：Dim FSO as object Set FSO = New Scripting.FileSystemObject
快：Dim FSO as New FileSystemObject
3.值处理时使用变量而不使用属性，尤其是在循环中；20倍
慢：Text1.Text = Text1.Text & vbcrlf & SomeVar(intCon)
快：sOutput = sOutput & vbCrlf & SomeVar(intCon) Text1.Text = sOutput
4.尽量使用数组替代集合；100倍
5.展开小的循环体；
6.不使用很短的函数；
7.使用With：
With frmMain.Text1
.Text = "Learn VB"
.Alignment = 0
.Tag = "Its my life"
.BackColor = vbBlack
.ForeColor = vbWhite
End With
只适用于需要对一个对象的子对象进行操作的时候，下面这
段代码是不正确的：
With Text1
.Text = "Learn VB"
.Alignment = 0
.Tag = "Its my life"
.BackColor = vbBlack
.ForeColor = vbWhite
End With
8.检查字符串是否为空：
慢：If Text1.Text = "" then
快：If Len(Text1.Text) = 0 then
9.使用动态数组，而不是静态数组，节约资源；
10.销毁对象：Dim FSO as New FileSystemObject Set FSO = Nothing；
11.使用对象数组；
12.使用Move方法：
慢：
Image1.Width = 100
Image1.Height = 100
Image1.Top = 0
Image1.Left = 0
快：
Image1.Move 0,0,100,100