Argb question

I'm using this to writepixels at half of their original color. Is there a quicker way to do this with Bit shifting? Any help appreciated.

argb = $FF Shl 24 Or ( red * .5) Shl 16 Or ( green *.5) Shl 8 Or ( blue * .5 )