1. 输入框 InputBox

Dim url as String
url = InputBox("请输入一个网址")

2. 动态创建控件

Private Sub Form_Load()
Form1.Controls.Add "VB.CommandButton","cmdObj1",Frame1
With Form1!cmdObj1
.Visible = True
.Width = 2000
.Caption = "Dynamic Button"
End With
End Sub
在窗体启动时,动态添加一个控件,它是一个按钮,名称叫cmdObj1

Dim Label() As Object '标签控件对象数组

Set Label(i) = Controls.Add("VB.Label","Label" & CStr(i)) '动态创建标签控件，CStr把i转换成字符串类型
Label(i).Height = 300
Label(i).Top = nTop
Label(i).Visible = True

3.CStr（）
把变量转换成字符串类型

4.双引号怎么转义
CStr(chr(34))

5.错误处理
on error goto T
on error resume next 程序段开始处，加上这个语句，程序遇到错误还会向下执行．
...
If Err.Number <> 0 Then Err.Clear 程序段末尾处，如果有错误的话，就清除错误

6.VB要在两个菜单命令项之间加条分割线

在标题文本框中键入 -

7.VB最小化窗口

Me.WindowState = vbMinimized

8. 分割线

添加 label标签，BorderStyle 设为 1 - fixedSingle，高度设为40