Will this work for you?

LampDim.bas