Visual Basic Her Köşeden Program Kapatma Örneği

Merhaba arkadaşlar bugünkü ilk yazımla sizler ile tekrar birlikteyim.Yine klasik olarak tüm kategorilere içerik güncellemesi yapacağım. Bu kategorideki şimdi ele alacağım konu Visual basic uygulamalarından biri olan her köşeden program kapatma kodumuz aşağıda bu kodu formumuzda gerekli olan yere yapıştırınız  ardından form'a start (yani başlat komutunu veriniz) ve sonucu görün aklınızda farklı projeleriniz varsa kullanılabilecek güzel kodlardan biri...
Private Sub Cmd1çıkış_Click() Do Until Form1.Height = 405 And Form1.Width = 1680 Form1.Height = Form1.Height - 1 Form1.Width = Form1.Width - 1 Loop Unload Me End Sub Private Sub Form_Load() Form1.Caption = "Form Move" Form1.Height = 0 Form1.Width = 1680 Timer1.Interval = 200 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() On Error Resume Next For x = 0 To Form1.Height + 2000 Form1.Height = x Next x For y = 100 To Form1.Width + 1500 Form1.Width = y Next y Timer1.Enabled = False End Sub