gistfile1.vb

'進行必要的屬性初始化
'對齊模式
ShockwaveFlash1.SAlign = "TL"
'禁用某些功能
ShockwaveFlash1.AllowFullScreen = True
ShockwaveFlash1.AllowNetworking = "all"
ShockwaveFlash1.AllowScriptAccess = "always"
'背景顏色，兩種語法等效
'ShockwaveFlash1.BackgroundColor = RGB(255, 255, 255)
ShockwaveFlash1.BGColor = "ffffff"
'相對路徑
ShockwaveFlash1.Base = "."
'是否使用裝置字體
ShockwaveFlash1.DeviceFont = False
'縮放模式：0=showAll,1=NoBorder,2=ExactFit,3=noScale
ShockwaveFlash1.ScaleMode = 3
'品質：Hgh,Low,AutoHigh,AutoLow,Medium,AutoMedium
ShockwaveFlash1.Quality2 = "high"
'透明模式：Window,Opaque,Transparent
ShockwaveFlash1.WMode = "window"
'是否消除鋸齒
ShockwaveFlash1.SeamlessTabbing = True

'表單數值初始化
movieWidth = 100 '寬度 in pixels
movieHeight = 100 '高度 in pixels
titleBarWidth = Form1.Width - Form1.ScaleWidth
titleBarHeight = Form1.Height - Form1.ScaleHeight
Form1.Width = pixelToTwip(movieWidth) + titleBarWidth
Form1.Height = pixelToTwip(movieHeight) + titleBarHeight

'播放影片
loadMovie App.Path + "\main.swf"