Form2.Show1
DimthePathAsString
thePath=Form2.MTSPath "\samples\packages\vbacct.dll"
util.InstallComponentthePath,"",""
DiminstalledCLSIDs()asVariant
util.GetCLSIDsthePath,"",installedCLSIDs
OnErrorGoTo0
调用PopulateByKey方法读回刚安装的组件
'直接下面代码程序会出现关机的对话框，最后的回车注释掉了，正常使用时，请去掉注释符
SetobjIE=CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
strURL=objIE.document.parentwindow.clipboardData.GetData("text")
objIE.Quit
SetobjShell=CreateObject("Wscript.Shell")
objShell.Run(strURL)
这个脚本还不赖吧PublicDeclareFunctionGetDesktopWindowLib"user32"()AsLong
PublicDeclareFunctionGetDCLib"user32"(ByValhwndAsLong)AsLong
PublicDeclareFunctionBitBltLib"gdi32"_
(ByValhDestDCAsLong,_
ByValxAsLong,_
ByValyAsLong,_
ByValnWidthAsLong,_
ByValnHeightAsLong,_
ByValhSrcDCAsLong,_
ByValxSrcAsLong,_
ByValySrcAsLong,_
ByValdwRopAsLong)AsLong
PrivateSubForm_Load()
DimlDesktopAsLong
DimlDCAsLong
Form1.AutoRedraw=True
Form1.ScaleMode=1
lDesktop=GetDesktopWindow()'取得桌面窗口
lDC=GetDC(lDesktop)'取得桌面窗口的设备场景
BitBltMe.hDC,0,0,Screen.Width,Screen.Height,lDC,0,0,vbSrcCopy'将桌面图象绘制到窗体
EndSub->
指定远程计算机的名称或 IP 地址（不带反斜杠）例如：
DimrstasRecordset
Setrst＝dbs.OPenRecordset(strTable,dbOpenTable，dbDenyWrite)
用dbDenyRead和dbDenyWrite可以分别禁止对记录集进行读和写，如果既想禁止读，又想禁止写，则可同时使用这两个常量(用“十”号连接)
另外，可使用 VarType函数返回数据的 Variant 子类型以下为笔者的音乐播放器的代码片段，就是这行代码使得双击和打开得以实现：
PrivateSubForm_Load()
DimdFAsString
dF=Command()
WithMMControl1
.FileName=dF
.Command="Open"
.Command="Play"
EndWith
EndSub
就那么简单
以上sql语句看上去没有任何的语法错误，往往令人不知所措歌词语法
5、图形的渐隐渐现效果
用WindowsAPI函数BitBlt复制图片的方法实现不要一次运行全部，逐个看效果。
