[نيمو]

السلام عليكم

كود :

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++

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