
 As Long, ByVal diFlags As Long) As Long
Private Const DI_MASK = &amp;H1
Private Const DI_IMAGE = &amp;H2
Private Const DI_NORMAL = &amp;H3
Private Const DI_COMPAT = &amp;H4
Private Const DI_DEFAULTSIZE = &amp;H8

Private Declare Function LoadImageByNum Lib "user32" Alias "LoadImageA" (ByVal
 hInst As Long, ByVal lpsz As Long, ByVal un1 As Long, ByVal n1 As Long, ByVal
 n2 As Long, ByVal un2 As Long) As Long
    Public Const LR_LOADMAP3DCOLORS = &amp;H1000
    Public Const LR_LOADFROMFILE = &amp;H10
    Pu