Định thời gian chạy form

[duong_nam_dao]

Em muốn định thời gian cho form, ví dụ sau 5 giây thì form tự mất. Em mong các bác chỉ giúp.

 

[phatrom]

bạn chép đoạn code sau vào form:

Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("00:00:05")
UserForm1.Hide
End Sub