AW: Nach 10sec mein Label sichtbar machen
06.07.2007 16:15:00
yogi
Tach Raphael
im Codemodule der Userform:
' ================================
Private Sub UserForm_Initialize()
Label1.Visible = False
Label2.Visible = False
End Sub
Private Sub CommandButton1_Click()
Call start_show
End Sub
'==============================
'
'in einem normale Modul:
'
'=============================================
Public Sub start_show()
Application.OnTime Now + TimeValue("00:00:10"), "show_label1"
End Sub
Public Sub show_label1()
UserForm1.Label1.Visible = True
Application.OnTime Now + TimeValue("00:00:10"), "show_label2"
End Sub
Public Sub show_label2()
UserForm1.Label2.Visible = True
Application.OnTime Now + TimeValue("00:00:10"), "show_label3"
End Sub
'
' und so weiter
'
'=============================
Gruss
yogi