常量定义
Public Const i as Integer = 1
自定义类型
Type mytype
i as Integer
b as Boolean
s as String
end Type
错误处理
①跳过出错语句，继续执行
On Error Resume Next
处理代码
On Error Goto 0
②执行错误处理
On Error Resume Next
处理代码
On Error Goto ErrorHandler
ErrorHandler:
错误处理代码
分支处理
Select case condition
case "value1"
详细处理
case "value2"
详细处理
case else
详细处理
End Select
循环处理
①For i = 1 to j (Step y)
详细处理
next i
②For each obj in objs
详细处理
next obj
③Do While / Until Condition
详细处理
Loop
或Do
详细处理
Loop While / Until Condition
函数可选参数定义
Function funs(Optional i as Interger) as String
详细处理
End Function
参数类型是Variant的场合，可用Ismissing(x)判断参数是否赋值
函数随机参数定义
Function funs(ParamArray arglist() as Variant) as Integer
End Function
函数有多个参数时，随机参数需定义在最后
变量显式定义
Option Explicit
所用变量必须事先定义，否则无效。一个好的变成习惯。
控件相关
①使用控件的MouseDown和MouseMove事件，实现在窗体内移动控件。
Private Sub Image1_MouseDown(Button, Shift, x, y)
OldX = x
OldY = y
Image1.Zorder 0
End Sub
x,y是选中控件的鼠标坐标值，Zorder使该图像位于最前面。
Private Sub Image1_MouseMove(Button, Shift, x, y)
If Button = 1 then
Image1.Left = Image1.Left + (X - OldX)
Image1.Top = Image1.Top + (Y - OldY)
End if
End Sub
Button=1意味着按下了鼠标左键。