[dubai.eig]

اخيرا اشتغل الكود 

مع البحث حصلت موضوع يتكلم عن BackgroundWorker

طلع معاي الكود كذا

كود :

Private Sub checkstatus()

  Dim con As New SQLiteConnection(String.Format("Data Source= {0}\DB" & DBT & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
      Dim com As String = String.Format("Select PFX From DB Where PFX='{0}' and Ba = '" & ban.Text & "'", Trim(PFX.Text))
      Dim ds = New DataSet
      Dim da = New SQLiteDataAdapter(com, con)
      da.fill(ds)
      If (ds.Tables(0).Rows.Count > 0) Then
          Multi.Text = PFX.Text

      Else
          Multi.Text = PFX.Text
          Multi.BackColor = SystemColors.Info

      End If

   End Sub

   Private Delegate Sub checkstatusDel()

   Private WithEvents bg1 As New System.ComponentModel.BackgroundWorker

      Private Sub bg1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bg1.DoWork
 
        Invoke(New checkstatusDel(AddressOf checkstatus))
   End Sub

واشتغل تمام

ضفت فقط 

كود :

   Private Delegate Sub checkstatusDel()

و

كود :

        Invoke(New checkstatusDel(AddressOf checkstatus))

بصراحه ما عرفت سبب  ليش ما اشتغل الكود قبل ولماذا اشتغل الان مع التغييرات الواضحه فوق