2. Buat Form Baru.
3. Jika Pada Tool Box belum terdapat Tool ShockWaveFlash, Tekan CTRL + T untuk membuka Jendela Component, pilih dengan menceklist Shockwave Flash, klik Apply, dan klik OK.
4. pilih Tool Shockwave Flash, dan buat kotak sesuai dengan ukuran flash yang diinginkan.
5. Masukkan kode progam seperti ini pada form load:
Dim strPath As String
strPath = App.Path & "\JD.swf"
ShockwaveFlash1.Movie = strPath
ShockwaveFlash1.Play
strPath = App.Path & "\JD.swf"
ShockwaveFlash1.Movie = strPath
ShockwaveFlash1.Play
Keterangan : strPath adalah nama sebuah variabel
dan bisa di ganti sesuai keinginan.
JD.swf adalah nama file flash yang
ingin anda mainkan pada form.
Download filnya disini.
Password : www.niev.co.cc
Password : www.niev.co.cc
.::Artikel Menarik Lainnya::.