Include Alpha values in colour values

This function impliments Alpha values to colour values.
Alpha = 255 equals opague.
Alpha = 0 equals transparent.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Function RGBA(R as byte, G as byte, B as byte, A as byte)
   rDword as dWord
   rDword = (A<<24)||(R<<16)||(G<<8)||(B)
EndFunction rDword