Digitborn.com
Active Member
- Joined
- Apr 3, 2007
- Messages
- 353
Hello,
On Forms - UserForm1 I have:
On a Modules - Module1:
Why nothing happens, UserForm1.Frame1.Visible = False does not trigger after 4 seconds?
p.s. If I use Application.Wait (Now + TimeValue("0:00:04")), I can't click on the controls on Frame1 because they are locked until these 4 seconds past.
On Forms - UserForm1 I have:
Code:
Private Sub CommandButton1_Click()
UserForm1.Frame1.Visible = True
Application.OnTime Now + TimeValue("00:00:04") , "DismissFrameVisability"
End Sub
Private Sub UserForm_Initialize()
Frame1.Visible = False
End Sub
On a Modules - Module1:
Code:
Sub DismissFrameVisability()
UserForm1.Frame1.Visible = False
End Sub
Why nothing happens, UserForm1.Frame1.Visible = False does not trigger after 4 seconds?
p.s. If I use Application.Wait (Now + TimeValue("0:00:04")), I can't click on the controls on Frame1 because they are locked until these 4 seconds past.