vb flash全屏

显示FLASH有专门的控件，你让他充满窗体而且窗体充满屏幕就可以了

Private Sub Form_Load()
me.move 0,0,screen.width,screen.height
with [FLASH控件名称]
.left=0
.top=0
.width=me.width
.height=me.height
end with
'为什么这里使用WITH语句，是为了防止Flash控件没有Move等方法而设计的
************************

Private Sub Form_Click()
ShockwaveFlash1.AllowFullScreen = True
Form1.WindowState = 2
ShockwaveFlash1.Width = Screen.Width
ShockwaveFlash1.Height = Screen.Height
End Sub

Private Sub Form_Load()
ShockwaveFlash1.Top = 0
ShockwaveFlash1.Left = 0
ShockwaveFlash1.Movie = "D:\Flash\Flash\021.SWF"
End Sub