Delete VRCON = 0, try again.


Also,
VAL is a WORD variable thus it has 16-bits.
But, in the sample code, we have 15 bits (15 LEDS) getting set.
Depending on the pic you are using, add one more led to an appropriate pic pin, and assign it to the last bit of VAL (Val.15) in SetPins subroutine.

-------------------------------