[Cemalizim]

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

 Dim Kapat As Boolean

Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If Kapat Then
        'Pencere unload komutu ile kapandı.
        'O yüzden programdan çıkılıyor.
        Cancel = 0
    Else
        'Pencere close komutu ile kapandı.
        'O yüzden program kapatılmayacak.
        Cancel = 1
    End If
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Form1.Height = Form1.Height - 100
    If Form1.Height < 500 Then
        'Form boyutu pencere barı seviyesine geldiğinde animasyon sona ermeli.
        Kapat = True
        Unload Me
    End If
End Sub 

Alıntıdır.