Programın Animasyonlu Olarak Kapanması

 
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

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

programın animasyonlu olarak kapanması