Replace.web.ID

01Buat project baru pada Visual Basic 6.0 kemudian pilih Standard.exe

02Tambahkan komponen ShockwaveFlash , pilih menu project -> components, maka akan muncul
kotak dialog sebagai berikut :

Beri centang pada komponen ShockwaveFlash kemudian klik tombol Apply kemudian OK.  Selain itu tambahkan juga CommonDialog dengan memberi tanda centang pada Microsoft Common Dialog Control 6.0

03 Jika Component tidak ada, anda dapat menginstal FlashPlayer terlebih dahulu dan mencari file Flash9b.ocx.

04 Kemudian tambahkan ke Form, 1 buah object ShockwaveFlah, 4 buah CommandButton, dan 1 buah CommonDialog
sehingga tampilannya menjadi seperti ini :

05Selanjutnya tambahkan kode berikut 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

06 Coba test program yang telah anda buat.

Sekian tutorial kali ini. Semoga bermanfaat bagi para pembaca, sekian dan terimakasih.