[ALBRNS]

السلام عليكم

مع اني مجرب الكود ويعمل بشكل جيد

هذا كود اخر لما تريد

PHP كود :

Public Sub Pause(Interval)
On Error Resume Next
Dim Delay
Delay = Timer
Do While Timer - Delay < Val(Interval)
DoEvents
Loop
End Sub

Private Sub Command1_Click()
Unload Me
Pause 1
Me.Show
End Sub 


بالتوفيق .