  j = i
         .rgbBlue = (j * 255) \ 16
         .rgbGreen = (j * 128) \ 16
         .rgbRed = (j * 96) \ 16
      End With
   Next i
   
   hDib = CreateDIBSection( _
            lHDC, _
            m_tBI, _
            DIB_RGB_COLORS, _
            m_lPtr, _
            0, 0)
   CreateDIB = (hDib &lt;&gt; 0)
End Function
Public Function CreateFromPicture( _
        ByRef picThis As StdPicture _
    )
Dim lHDC As Long
Dim lhDCDesktop As Long
Dim lhBmpOld As Long
Dim tBMP As BITMAP
Dim lC As Long
    
  