[adel2000]

كود :

 Private Sub wait(ByVal interval As Integer)
        On Error Resume Next
        Dim sw As New Stopwatch
        sw.Start()
        Do While sw.ElapsedMilliseconds < interval
            System.Windows.Forms.Application.DoEvents()
        Loop
        sw.Stop()
    End Sub
----------------------------------
With emad3
           .Server = "nimbuzz.com"
           .ConnectServer = "o.nimbuzz.com"
           .Open(id3.Text, pass.Text)
           .Resource = "Android" & rand()
           AddHandler .OnLogin, AddressOf su3
           AddHandler .OnAuthError, AddressOf fa3
           AddHandler .OnReadXml, AddressOf xml3
       End With
wit("1000") - ثانيه
       With emad4
           .Server = "nimbuzz.com"
           .ConnectServer = "o.nimbuzz.com"
           .Open(id4.Text, pass.Text)
           .Resource = "Android" & rand()
           AddHandler .OnLogin, AddressOf su4
           AddHandler .OnAuthError, AddressOf fa4
           AddHandler .OnReadXml, AddressOf xml4
 End With
       wit("2000") - ثانيه 2 'وهكذا
With emad5
           .Server = "nimbuzz.com"
           .ConnectServer = "o.nimbuzz.com"
           .Open(id5.Text, pass.Text)
           .Resource = "Android" & rand()
           AddHandler .OnLogin, AddressOf su5
           AddHandler .OnAuthError, AddressOf fa5
           AddHandler .OnReadXml, AddressOf xml5
       End With
       With emad6
           .Server = "nimbuzz.com"
           .ConnectServer = "o.nimbuzz.com"
           .Open(id6.Text, pass.Text)
           .Resource = "iPhone" & rand()
           AddHandler .OnLogin, AddressOf su6
           AddHandler .OnAuthError, AddressOf fa6
           AddHandler .OnReadXml, AddressOf xml6
       End With
       With emad7
           .Server = "nimbuzz.com"
           .ConnectServer = "o.nimbuzz.com"
           .Open(id7.Text, pass.Text)
           .Resource = "iPhone" & rand()
           AddHandler .OnLogin, AddressOf su7
           AddHandler .OnAuthError, AddressOf fa7
           AddHandler .OnReadXml, AddressOf xml7
       End With
       With emad8
           .Server = "nimbuzz.com"
           .ConnectServer = "o.nimbuzz.com"
           .Open(id8.Text, pass.Text)
           .Resource = "iPhone" & rand()
           AddHandler .OnLogin, AddressOf su8
           AddHandler .OnAuthError, AddressOf fa8
           AddHandler .OnReadXml, AddressOf xml8
       End With