[e-coder]

سلام عليكم

اريد من الاخوة المعنين وضع كود

موقت يقوم بتفيذ الكود المطلوب 

بوقت يحدده المستخدم

المشروع في المرفقات بالكامل

اما الكود المراد تعديلة هوا

كود :

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