[silverlight]

PHP كود :

       Dim sw As Stopwatch = New Stopwatch
        Dim timeline As TimeSpan = New TimeSpan(0, 0, 0, 10, 0)
        sw.Start()
        While sw.Elapsed.TotalMilliseconds <= timeline.Seconds
            ' اكتب الكود الذي تريد تنفيذه هنا
        End While
        ' الأن تقوم بإيقاف الساعة
        sw.Stop()
        ' هذا السطر للتوضيح فقط والهدف منه اظهار الفترة الزمنية بعد انتهاء تنفيذ الكود
        Me.Text = sw.ElapsedMilliseconds 


---

أو لمزيد من الدقة يمكنك أن تكتب الكود بالشكل التالي

PHP كود :

       Dim sw As Stopwatch = New Stopwatch
        Dim timeline As TimeSpan = New TimeSpan(0, 0, 0, 10, 0)
        sw.Start()
        Do While sw.Elapsed.TotalMilliseconds <= timeline.Seconds
            '  do nothing 
        Loop

        ' الأن تقوم بإيقاف الساعة
        sw.Stop()

        ' اكتب الكود الذي تريد تنفيذه هنا


        ' هذا السطر للتوضيح فقط والهدف منه اظهار الفترة الزمنية بعد انتهاء تنفيذ الكود
        Me.Text = sw.ElapsedMilliseconds