[fredo]

المشكلة تزول بهذه الطريقة ولكن عند اعادة التخصيص مره اخرى وتغيير القيم تظهر نفس المشكلة 

Dim w() As Integer = {1, 1, 0, 0, 0}

w() = {0,0,0,0,0}