Membuat pemanggil file swf

Singkat dan jelas hehehe

membuat pemanggil file swf
Jadi qt bisa tampilkan file animasi extensi .swf dlm Visual Basic seperti gambar yg saya buat di samping ini. terdapat file swf

Carax aktifkan dlu komponen tools shockwave flash > caranya klik kanan - componen - shockwave flash

langkah2:
masukkan dulu file sfw dengan nama misalnya (jam.swf) di folder bersama file projec
karna nama ini akan di panggil sesuai code

1. masukkan tools shockwave flash
2. label1
3. masukkan time1 atur interfal 1000

code :

Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) - 1
End Sub

Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
ShockwaveFlash1.Movie = App.Path & "\jam.swf"
End Sub