نقل قول نوشته شده توسط vbhamed مشاهده تاپیک
سلام
بله ميشه، اين يك نمونه
Private Sub Delay(s As Single)



    Static Run As Byte



    If Run Then Exit Sub



    Run = 1



    Dim Start!



    Start = Timer

    Do While Timer < Start + s

        DoEvents

    Loop

    

    Run = 0



    MsgBox "Complete"



End Sub



Private Sub Command1_Click()



    Delay 0.5



End Sub
این تابع مشکل داره
متغیر «timer» از کجا پیداش شده؟؟ مقدارش چیه؟؟