CreateCompatibleBitmap菜鸟问题

我用CreateCompatibleBitmap调试时第一次可以返回一个句柄,但是第二次却出错返回了一个零,不知道是什么原因.
请问大哥,GetLastError得到的值是0?
请问这个我已经怎么再查呢?
刚学之方面的编程,还请多指教,我加分了!

CurMemDC = CreateCompatibleDC(0) 'create a DC
If CurMemDC = 0 Then MsgBox "Create CurMemDC Error" & Error

'该函数创建与指定的设备环境相关的设备兼容的位图
hBitMap = CreateCompatibleBitmap(FrmSampleC.Picture1.hdc, pWidth, pScaleHeight) 'create a bitmap in memory (notice that width=screen width)
If hBitMap = 0 Then MsgBox GetLastError()

'该函数选择一对象到指定的设备上下文环境中，该新对象替换先前的相同类型的对象
SelectObject MemDC, hBitMap 'associate the device context with the memory bitmap

hPen = CreatePen(0, 0, vbWhite) 'create a pen solid, width of 1 pixel and yellow colour
SelectObject MemDC, hPen 'associate the DC with this pen

SetBkColor MemDC, vbBlack 'set background colour of all drawing functions that use pens to black