Butona tıkladığımda açılan Userform1'den userform2'ye butonsuz belirli bir süre ile geçiş yapmak istiyorum.

[bkk]

Merhabalar,

Ekte bir buton bulunmaktadır.
Bu butona tıkladığımda bir form ekranı açılmaktadır, istiyorum ki ;
butona tıkladığımda açılan form 10 saniye sonra kendiliğinden ikinci formu açsın istiyorum.
Bir nevi belirli bir süre sonra açık olan form gizlenecek, ikinci form gösterilecek,
Süre olayı mümkün değil ise; ilk açılan formun herhangi bir yerine tıkladığımda bu ikinci forma geçiş yapabilir mi?
Formlar arası geçişi butonlar ile yapabiliyorum fakat bu iki şekilde başaramadım.

Yardımcı olabilir misiniz?

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu Userform1 içerisine kopyalayıp deneyiniz.

Private Sub UserForm_Activate()
Dim sny As Byte, zmn As Double
sny = 10
zmn = Timer
Do Until Timer - zmn > sny
    DoEvents
Loop
UserForm1.Hide
UserForm2.Show
End Sub

 

[bkk]

Teşekkür ederim Ömer bey,

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar diliyorum...