Öncelikle forma bir tane timer bir tane de buton eklenir ve aşağıdaki kodlar yazılır.
(Timer kısmına yazılıacak olan kod)
Private Sub Timer1_Timer()
If Me.Visible=True Then
Me.Visible=False
Else
Me.Visible=True
End If
End Sub
(Buton kısmına yazılacak olan kod)
Private Sub Command1_Click()
Timer1.Interval=1000
End Sub
