Soru Label gizleme

[35ibo45]

Arkadaşlar selam.
Userform3 üzerindeki label1, 5 saniye sonra unvisible nasıl olur?
Şimdiden teşekkürler.

 

[ÖmerFaruk]

Userform3 kod sayfasına aşağıdaki kodu yapıştırın.

Private Sub UserForm_Activate()
    Application.OnTime Now + TimeSerial(0, 0, 5), "LabelGizle"
End Sub

Module içine de aşağıdakini yapıştırın.

Sub LabelGizle()
    UserForm3.Label1.Visible = False
End Sub

 

[35ibo45]

Ömer Faruk üstadım.
Öncelikle ilginize ve emeğinize teşekkür ederim.
Kodlar işimi görmedi.
Biraz daha açıklama eklemek istiyorum.
Programı çalıştırdığımda ekrana, üzerinde bir çok butonlar olan userform3 geliyor. Bu userform üzerindeki label1 içerinde "programıın ilk adımı olarak bilgiler sayfasını doldurunuz" diye bir uyarı yazısı var.
İsteğim şu :
Program çalıştırıldığında kullanıcı, bu uyarıyı okuduktan sonra (yani 5 saniye civarı) bu labelin unvisible olması.
Tekrar teşekkür ediyorum.

 

[ÖmerFaruk]

Verdiğim kod aynen o işi yapıyor.
Kodlar işinizi görmedi derken hata mı veriyor? Label mi gizlenmiyor?

 

[35ibo45]

Ömer Faruk Bey.
İşlem tamam. İlginize, bilginize ve emeğinize sağlık.
Çok çok teşekkür ederim.

 

[Emir Hüseyin Çoban]

.

Private Sub UserForm_Activate()
Do
DoEvents
    If Me.Label1.Visible = True Then
        Application.Wait (Now + TimeValue("0:00:05"))
        Me.Label1.Visible = False
        Exit Do
    End If
Loop
End Sub

.

 

[35ibo45]

Emir Hüseyin Çoban arkadaşım.
İl dışında olmam sebebiyle uzun süre bilgisayarımı açamadım. Yanıtınızı şimdi gördüm.
İlginize, bilginize ve emeğinize sağlık.
Çok çok teşekkür ederim.