by Sukhender singh chauhan (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 13th December 2001
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
How to play a .swf(flash) file in vb 6.0
VBcoders
Private Sub Form_Load()
ShockwaveFlash1.Width = Screen.Width
ShockwaveFlash1.Height = Screen.Height
ShockwaveFlash1.Loop = True
ShockwaveFlash1.Playing = True
ShockwaveFlash1.Movie = "path of .swf file"
End Sub
----------------------------------------------------
Private Sub Timer1_Timer()
If Timer1.Interval = 2000 Then: Unload Form1
Else
Timer1.Interval = imer1.Interval + 1000
End Sub