Cara Memainkan Animasi Flash di VB

Flash animasi yang berektensi .swf  yang biasa kita mainkan di flash player
disini kita juga bisa untuk coba untuk mainkan di Visual Basic dengan
menggunakan shockwaveflash Langkah langkahnya :

1. Buat project baru Visual Basic 6.0 pilih Standart Exe
2. Tambahkan komponen shockwaveflash di Menu Project pilih Componens
    akan tampil seperti gambar

3. Buatlah form yg berisi, 1 buah shockwaveflash, 4 buah CommandButton
    dan 1 Buah CommonDialog, seperti tampilan gambar

4. Masukkan Source code di bawah ini

                   Private Sub Command1_Click()
                           Me.CommonDialog1.Filter = "Flash File (*.swf) | *.swf"
                           Me.CommonDialog1.ShowOpen
                           End Sub

                   Private Sub Command2_Click()
                          Me.ShockwaveFlash1.Movie = Me.CommonDialog1.FileName
                          Me.ShockwaveFlash1.Play
                          End Sub

                   Private Sub Command3_Click()
                         Me.ShockwaveFlash1.StopPlay
                         End Sub

                   Private Sub Command4_Click()
                         End
                         End Sub
5. Jalan kan Program yang sudah dibuat....
    Open file (Cari file yang akan dimainkan) kemudian Play