'Flashのオブジェクト Private WithEvents SWF As VBControlExtender
Private Sub Form_Load() 'Flashのオブジェクト作成 Set SWF = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "swfObject") SWF.Visible = True With SWF.object .Movie = App.Path & "\test.swf" .Play End With End Sub
'FlashのイベントをVBで受け取る Private Sub SWF_ObjectEvent(Info As EventInfo) MsgBox Info.Name End Sub