pedie
Well-known Member
- Joined
- Apr 28, 2010
- Messages
- 3,875
Here's current code...
Is it not showing my form because 'm assigning a code to run as it Initialize?
I just dont know what to do....Please advice.
Thanks in advance.
Code:
[/FONT]
[FONT=Courier New]Option Explicit
Sub StartFalhLoop()
Call ShockwaveFlash1.LoadMovie(0, CurDir + "/vbSample.swf")
Me.ShockwaveFlash1.Movie = "E:\Personal_Files\Recent\DownloadedFile.swf"
End Sub
Sub StopFalhLoop()
Call ShockwaveFlash1.LoadMovie(0, CurDir + "/vbSample.swf")
Me.ShockwaveFlash1.Movie = ""
End Sub
Private Sub UserForm_Initialize()
StartFalhLoop
Me.StatusL.Caption = "Running code one..."
Me.Repaint
Application.Wait Now + TimeValue("00:00:02")
Run "Mycode1"
Unload Me
End Sub