Run VB6 and select Standard EXE
Now right click on the left tool bar and select Components.
Now from components ----> Controls, check the option of Shockwave Flash and press OK
now click on it, and draw a rectangle on your form. It will look like a white rectangle,
Private Sub Form_Load()
ShockwaveFlash1.Movie = App.Path & "\Star.swf"
ShockwaveFlash1.Left = 0
ShockwaveFlash1.Top = 0
ShockwaveFlash1.Width = 4000
ShockwaveFlash1.Height = 4000
ShockwaveFlash1.Play
End Sub
Now right click on the left tool bar and select Components.
Now from components ----> Controls, check the option of Shockwave Flash and press OK
now click on it, and draw a rectangle on your form. It will look like a white rectangle,
Private Sub Form_Load()
ShockwaveFlash1.Movie = App.Path & "\Star.swf"
ShockwaveFlash1.Left = 0
ShockwaveFlash1.Top = 0
ShockwaveFlash1.Width = 4000
ShockwaveFlash1.Height = 4000
ShockwaveFlash1.Play
End Sub
No comments:
Post a Comment