Ẩn hiện form sau 1 khoảng thời gian ạ

[maixuanvuong276]

em muốn form hiện lên trong 5s rồi thoát luôn thì làm thế nào ạ! Mong các bro ngang giúp em với ạ. Em cảm ơn nhiều ạ!

 

[huuthang_bd]

em muốn form hiện lên trong 5s rồi thoát luôn thì làm thế nào ạ! Mong các bro ngang giúp em với ạ. Em cảm ơn nhiều ạ!

'UserForm
Private Sub UserForm_Initialize()
Application.OnTime Now() + TimeValue("00:00:05"), "CloseForm"
End Sub

'Module
Private frm As UserForm1
Sub ShowForm()
Set frm = New UserForm1
frm.Show
End Sub
Private Sub CloseForm()
Unload frm
End Sub

9 9 9 9 9 9 9 9 9 9

 

[maixuanvuong276]

'UserForm
Private Sub UserForm_Initialize()
Application.OnTime Now() + TimeValue("00:00:05"), "CloseForm"
End Sub

'Module
Private frm As UserForm1
Sub ShowForm()
Set frm = New UserForm1
frm.Show
End Sub
Private Sub CloseForm()
Unload frm
End Sub

9 9 9 9 9 9 9 9 9 9

dạ để e thử. Tks anh ạ!