[نيمو]

السلام عليكم

كود :

Private Sub updateProgressBar()
           Dim method As MethodInvoker = Nothing
           If Not MyBase.InvokeRequired Then
               Me.progressBar1.Value += 1
           Else
               If (method Is Nothing) Then
                   method =  => Me.progressBar1.Value++
               End If
               Me.progressBar1.Invoke(method)
           End If
       End Sub

الكود فيه خطا  

كود :

 method =  => Me.progressBar1.Value++

كيف يتم تعديل بطريقة صحيحة

[سعود]

وعليكم السلام ورحمة الله وبركاته

الطريقة اللي اعرفها:

PHP كود :

Private Sub updateProgressBar(ByRef p As ProgressBar)
        Dim pr As ProgressBar = DirectCast(p, ProgressBar)
        If pr.InvokeRequired Then
            pr.Invoke(Sub() pr.Value += 1)
        Else
            pr.Value += 1
        End If
    End Sub 


[نيمو]

نعم بالضبط اشتغل مشكور اخي للمساعدة