كيف أظهر رسالة بعد وقت محمدد و المستخدم هو من يحدده

السلام عليكم ورحمة الله وبركاته

لعمل ذلك قم باتباع الخطوات التالية :

تحت زر الامر ضع الكود التالي

Timer1.Enabled = True
Timer1.Interval = Val(Text1) * 1000

وفي التايمر ضع الكود التالي :

MsgBox "ArabTeam For Programming"
Timer1.Enabled = False

جرب وان شاء الله يشتغل معاك

بالتوفيق

===========

الى اللقاء

في حالة إذا أردت الوقت يصل لأكثر من دقيقة فستحتاج إلي الكود التالي

Dim Period As Long
Dim intTime As Integer
Private Sub Command1_Click()
 Timer1.Interval = 1000: Period = Val(Text1):  intTime = 0
End Sub

Private Sub Timer1_Timer()
	intTime = intTime + 1
	Me.Caption = intTime
	If intTime = Period Then MsgBox "ArabTeam For Programming": intTime = 0
End Sub