Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd as long,ByVal lpOperation as String,ByVal lpFile as string,ByVal lpParameters as string,ByVal lpDirectory as String,ByVal nShowCmd as long) as long
'这里进行声明的api函数用来打开URL

private Sub Form_load()
'本过程加载与程序同一目录下的search.swf的动画
　　ShockwaveFlash1.Movie=App.Path&"\search.swf"
end sub
private sub ShockwaveFlash1_Fscommand(ByVal command as string,nyVa; args as String)
if command="Search" Then '如果接收到flash发出的Search命令，则执行下列的操作
URL="http://search.chinese.yahoo.com/search/gb?p="+text1.text
'指定网络搜索引擎的位置
Call ShellExecute(Form1.hwnd,"open",Url,vbNullString vbnullString,&h0)

'打开浏览器到中文雅虎网站进行关键字搜索
　　End if
if command="Exit" then'如果发出Exit命令则退出
end
end sub

　　这样，程序就完成了，运行程序的时候在文本框中输入关键字后，按flash动画中的搜索按钮，就可以进行搜索了，按退出按钮则关闲程序。在程序中，我们还可以利用参数(args)来进行控制，程序中的if command=Exit" then end 一句改成 if args="Close"　then end效果也是一样的。同时我们可以随时能过更换flash动画来给VB的界面换肤，只要各个动画中的as的参数一致。（再次提醒要注意大小写一致）