zamana bağlı userform kapatma nasıl yapılır?

[algil]

Merhaba Arkadaşlar
Bu userformu açtıktan sonra beş dakika içinde herhangi bir işlem yapılmadığı zaman otomatik olarak userformu kapatacak bir zamanlayıcı kod yapabilirmiyiz?

 

[Ali]

Private Sub UserForm_activate()
Dim sure
Me.Repaint
sure = Timer + 300
Do While Timer < sure
Loop
Me.Hide
End Sub


5 dakika sonra userform kapanır

 

[algil]

teşekkürler fructose

(Kimyacısın galiba) :hey:

 

[kyemr]

İşime çok yaradı teşekkürler.

 

[bilisim2010]

Private Sub UserForm_activate()
Dim sure
Me.Repaint
sure = Timer + 300
Do While Timer < sure
Loop
Me.Hide
End Sub


5 dakika sonra userform kapanır

merhaba bu komutu yazınca userform initialize yöntemiyle başlattığım mediaplayeri göstermiyor ? daha farklı ne yapabilirim?