[سعود]

كود :

Private Sub pp(ByVal t As Integer)
        If lbl.InvokeRequired Then
            p.Invoke(New Action(Of Integer)(AddressOf pp), t)
        Else
            p.Value = t
        End If
    End Sub

فيه خطا بسيط في هذا الروتين لم افطن له وهو واضح