Game Flash PacMan Via VB

Pada kali ini kita akan membahas beberapa hal jadi satu mungkin ada yang tidak tahu apa kegunaan Dari “unload me” pada VB  bukan hanya itu saja yang akan saya bahas namun saya akan memberikan bagaimana cara membuat 2-3 form yang saling berhubungan dan yang lainya .tidak usah lama-lama lagi mari simak dari Master Azure chekidot.

Tampilan Form1

Tampilan  Form2

Tampilan Form3

Sekarang untuk form1 berikut bahan yang dibutuhkan dan scriptnya, untuk menampilkan ShockwaveFlash  tekan Ctrl+T ,dan pilih ShockwaveFlash seperti gambar

Command1	Private Sub Command1_Click() Dim form1 As New Form2 If pass = "MasterAzure" Then Form2.Show Me.Hide Else MsgBox "maaf password anda salah!" pass = "" End If End Sub
Label1
Text1

Sekarang lanjut ke form 2

Command1	Private Sub Command1_Click() If MsgBox("Programmer By Azure") = vbYes Then         End     End If End Sub
Command2	Private Sub Command2_Click() If MsgBox("Anda yakin akan keluar?", vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then         End     End If End Sub
Command3	Private Sub Command3_Click() Form3.Show End Sub
Form2	Private Sub Form_Load()   With ShockwaveFlash1         .LoadMovie 0, App.Path & "\Pacman - mulanovich.swf"   End With End Sub

Terakhir Form3

Form3	Private Sub Command1_Click() Form2.Show Unload Me End Sub
Command1	Private Sub Form_Load()   With ShockwaveFlash1         .LoadMovie 0, App.Path & "\clock.swf"   End With End Sub

Download: GamePacMan
paswword:MasterAzure

Seperti yang saya janjikan tadi unload me digunakan untuk menutup form tersebut .jika ada kesalahan jangan segan kunjungi blog kami..? dan request atau tanya sesuatu kami memberikan pelayanan sebisa kami. By Azure