Val 0&amp;,
                    ByVal 0&amp;)
                   If lHDCDisp &lt;&gt; 0 Then
                     lHDC = CreateCompatibleDC(lHDCDisp)
                     DeleteDC lHDCDisp
                     If lHDC &lt;&gt; 0 Then
                        hBmpOld = SelectObject(lHDC, hImage)
                        If hBmpOld &lt;&gt; 0 Then
                           ' Get the colour of the 0,0 pixel:
                           lBackColor = GetPixel(lHDC, 0, 0)
                           SelectObject lHD