اغلاق الفورم بعد مرور 10 ثوانى من فتحه

[الفارس محمد رجب]

هل من كود يقوم باغلاق فورم بعد مرور 10 ثوانى من فتحه

[عبدالفتاح في بي اكسيل]

 ضع في  موديول عادي

Public dTime As Date


Sub KillUserForm()
    Unload UserForm1
End Sub

 

في موديول يوزرفورم

Private Sub UserForm_Initialize()
    CTime = Time + TimeValue("00:00:10")


    Application.OnTime CTime, "KillUserForm"
End Sub