| ‘Yazan=Mahmut Çakmak
Dim Kapat As Boolean
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Kapat Then
Cancel = 0
Else
Cancel = 1
End If
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Form1.Heig
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. |