منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل (/showthread.php?tid=20456)

اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل - e-coder - 19-05-17

سلام عليكم
اريد من الاخوة المعنين وضع كود
موقت يقوم بتفيذ الكود المطلوب 
بوقت يحدده المستخدم
المشروع في المرفقات بالكامل
اما الكود المراد تعديلة هوا
كود :
Private Sub xml(ByVal sender As Object, ByVal xmlq As String)
       If MyBase.InvokeRequired = True Then
           MyBase.BeginInvoke(New agsXMPP.XmlHandler(AddressOf xml), New Object() {sender, xmlq})
       Else
           xmlq = Replace(xmlq, """", "'")
           'اريد وضع تايمر او موقت لتشغيل هذا الكود
           'بحيث يحدد المستخدم الوقت لتفيذ هذا الكود ادناه
           If (InStr(xmlq, "code='407'")) Then
               Label1.Text = "Room member only/الغرفة للأعضـاء فقط"
               Label1.ForeColor = Color.Red
           End If
       End If
   End Sub