vb做一个简单的小程序

Option Explicit

Private Sub Form_Load()
ShockwaveFlash1.Movie = "D:\wwwroot\KuFang\images\1.swf"
ShockwaveFlash1.Menu = False
ShockwaveFlash1.Playing = True
End Sub

Private Sub Timer1_Timer()
End
End Sub

建一个无边框窗体,复制上面代码进去就OK了

工程文件给你发过去了 后发的是修改过的 免去了需要修改路径的麻烦

Option Explicit

Private Sub Form_Load()
ShockwaveFlash1.Movie = "D:\wwwroot\KuFang\images\1.swf"
ShockwaveFlash1.Menu = False
ShockwaveFlash1.Playing = True
End Sub

Private Sub Timer1_Timer()
End
End Sub

Private
Sub
Command1_Click()
Label1.Caption
=
"欢迎来到精彩的VB世界"
End
Sub
Private
Sub
Form_Load()
End
Sub
============
需要控件
Label
Label的名字是Label1

已经发到你的邮箱
时间我设定了100秒，你可以修改。

已发送！