�� 6

�� 6 �� 

�� swf

�� ToolBox � �� Components .

� �� Project �� Components �� Ctrl+T .

�� Shockwave Flash � �� Apply �� Ok .

��

�� :

�� Load � �� :

Private Sub Form_Load()
Dim s As String
s = App.Path
If Mid(s, Len(s), 1) <> "\" Then s = s + "\"
ShockwaveFlash1.Movie = s + "flash.swf"
End Sub

Dim s As String

�� s ��

s = App.Path

�� s �� App.Path ��

If Mid(s, Len(s), 1) <> "\" Then s = s + "\"

�� (/) ��

ShockwaveFlash1.Movie = s + "flash.swf"

�� ShockwaveFlash1 �� Movie �� flash �� s �� "flash.swf" �� swf

�� 4 �� :

� ��

��

Private Sub Command1_Click()
ShockwaveFlash1.Stop
End Sub

��

Private Sub Command2_Click()
ShockwaveFlash1.Play
End Sub

��

Private Sub Command3_Click()
ShockwaveFlash1.Back
End Sub

��

Private Sub Command4_Click()
ShockwaveFlash1.GotoFrame 100
End Sub

�� .

�� : ��

�� @2006