COLOR = &amp;H2
Private Const LR_COPYRETURNORG = &amp;H4
Private Const LR_COPYDELETEORG = &amp;H8
Private Const LR_LOADFROMFILE = &amp;H10
Private Const LR_LOADTRANSPARENT = &amp;H20
Private Const LR_DEFAULTSIZE = &amp;H40
Private Const LR_VGACOLOR = &amp;H80
Private Const LR_LOADMAP3DCOLORS = &amp;H1000&amp;
Private Const LR_CREATEDIBSECTION = &amp;H2000&amp;
Private Const LR_COPYFROMRESOURCE = &amp;H4000&amp;
Private Const LR_SHARED = &amp;H8000&amp;

Private Declare Function DeleteObject Lib "gdi32" (ByV