0 Sourcode Coding Exit Melipat/Menggulung Visual Basic 6.0

Asalamualaikum wr wb
selamat datang kembali di website merpati comunity, kali ini saya akan share/update coding visual basic yaittu exit, coding exit kali ini berbeda dengan coding exit yang biasanya, biasanya kita kenal coding exit codingnya seperti : " Unload Me " tapi exit yang saya punya atau saya buat mempunyai animasi yang keren
penasaran dengan codingnya, langsung aja dicoba codingnya dibawah ini

Tutorialnya
[-] Jalankan Visual Basic anda
[-] Pilih standar.exe
[-] Klik kanan pada from yang telah dibuat
[-] Lalu masukan copy paste coding dibawah ini

'/---------------- MERPATI COMUNITY -----------------------/ '=============================================== 'Sourcode Exit '=============================================== ' Credit : Mr.Donny Enjoy'S ' Release : 2014 ' Website : www.merpati-comunity.blogspot.com ' Facebook : https://www.facebook.com/HeppyAndEnjoys ' Fanspage : https://www.facebook.com/Merpaticommunity '===================== | NO SHARE | NO RENAME | NO PUBLIC |===================== ' JANGAN DI RENAME CODING TANPA SEIZIN Mr.Donny Enjoy'S ' # Newbie Ingin Bangkit # ' # Newbie Ingin Ke Atas # ' # No Cheater's , Maker's Codding HTML Yes Or Codding Visual Basic # '===================== | Credit |===================== ' Mr. Donny Enjoy'S ---> https://www.facebook.com/HeppyAndEnjoys ' ---> Exit Versi Mr.Donny Enjoy'S ' ---> Berbagi Share Coding (Newbie) ' ---> www.merpati-comunity.blogspot.com Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim gotoval As Long Dim gointo As Long gotoval = Me.Height / 2 '<<<<<<<<<< Mr.Donny Enjoy'S / Merpati Comunity For gointo = 1 To gotoval DoEvents Me.Height = Me.Height - 10 If cencored.Height <= 11 Then GoTo horiz '<<<< Sourcode X-Y Mr.Donny Enjoy'S Next gointo horiz: cencored.Height = 30 '<<<< Sourcode X-Y Mr.Donny Enjoy'S gotoval = Me.Width / 2 '<<<<<<<<<< Mr.Donny Enjoy'S / Merpati Comunity For gointo = 1 To gotoval DoEvents Me.Width = Me.Width - 10 If Me.Width <= 11 Then End Next gointo '<<<<<<<<<< Mr.Donny Enjoy'S / Merpati Comunity Do Me.Top = Me.Top + 20 Me.Move Me.Left, Me.Top DoEvents Loop Until Me.Top > Screen.Height - 50 '<<<<<<<<<< Mr.Donny Enjoy'S / Merpati Comunity End End Sub

[-] Setelah coding dimasukan, Silahkan di test dengan menekan F5 atau langsung di jadikan file.exe
[-] Semoga sukses dan bermanfaat untuk anda

NB : Jika terjadi eror silahkan coment dibawah ini atau langsung inbox saya di facebook
Klik Disini

Credit : Mr.Donny Enjoy'S