[mojtaba212]

من کدتو ندیدم
میتونی از کد زیر :
Sub Wait(MilliSekunden As Int)
   Dim Ti As Long
   Ti = DateTime.Now + MilliSekunden
   Do While DateTime.Now < Ti
      DoEvents
   Loop
End Sub
یه وقفه وقتی از دیتابیس داری get میکنی بنداز
وگرنه همه با هم بخوای get کنی و بخونی معلومه که هنگ میکنه

 

 

مرسی امین جان میشه واسم یه سمپل بزاری
متشکرم