Formu Yakıp Söndürme

Private Sub Timer1_Timer()
If Me.Visible = True Then
Me.Visible = False
Else
Me.Visible = True
End If
End Sub
Private Sub Command1_Click()
Timer1.Interval = 1000
End Sub

'Formu Kaydirma

Private Sub Command1_Click()
Do Until Form1.Top = Screen.Height
Form1.Top = Form1.Top + 1
Loop
Unload Me
End Sub
 

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

formu yakıp söndürme