[e-coder]

سلام عليكم

بعد صلاه على اشرف المرسلين محمد

صلى الله عليه وسلم

اريد من الاخوة مساعدتي بوضع

مؤقت يعني المستخدم يحدد وقت معين

لتنفيذ هذا الكود

او من خلال combobox

كود :

Private Sub Xml1(ByVal sender As Object, ByVal xml4 As String)
       If MyBase.InvokeRequired = True Then
           MyBase.BeginInvoke(New agsXMPP.XmlHandler(AddressOf Xml1), New Object() {sender, xml4})
       Else
           xml4 = Replace(xml4, """", "'")
           On Error Resume Next
           'اريد وضع الوقت هنا مثال بعد 10 ثواني ينفذ الكود ادناه
           If (InStr(xml4, "code='407'")) Then
               b4.Text = "Yes--➤✔"
               b4.ForeColor = Color.Red
           End If
                 End If
   End Sub