Το είδα και όπως σωστά εντόπισες, επειδή πειράζεις το (Β) από το (Α) χρειάζονται μερικές αλλαγές...
Private Sub DbObjectManager_SpAnalyzed(ByVal current As Int32, ByVal total As Int32, ByVal spName As String)
If m_objFrmWait.ProgrBar.InvokeRequired Then
m_objFrmWait.ProgrBar.Invoke(New UpdateProgBarControlDelegate(AddressOf UpdateProgBarControl), New Object() {m_objFrmWait.ProgrBar, current, total})
Else
UpdateProgBarControl(m_objFrmWait.ProgrBar, current, total)
End If
If m_objFrmWait.lblSpName.InvokeRequired Then
m_objFrmWait.lblSpName.Invoke(New UpdateLabelControlDelegate(AddressOf UpdateLabelControl), New Object() {m_objFrmWait.lblSpName, spName})
Else
UpdateLabelControl(m_objFrmWait.lblSpName, spName)
End If
End Sub
Delegate Sub UpdateProgBarControlDelegate(ByVal aProgBar As ProgressBar, ByVal current As Int32, ByVal total As Int32)
Delegate Sub UpdateLabelControlDelegate(ByVal aLabel As Label, ByVal spName As String)
Sub UpdateProgBarControl(ByVal aProgBar As ProgressBar, ByVal current As Int32, ByVal total As Int32)
aProgBar.Maximum = total + 1
aProgBar.Value = current
End Sub
Sub UpdateLabelControl(ByVal aLabel As Label, ByVal spName As String)
aLabel.Text = spName
End Sub
Νομίζω είσαι ΟΚ τώρα...
Vir prudens non contra ventum mingit