API 函數 SelectObject 使用問題(編號：5241)

為何下列 API 函數的 SelectObject 使用無法成功
Dim hMemDC As Long, hBitmap As Long
With UserControl
hMemDC = CreateCompatibleDC(.hDC)
hBitmap = UserControl.Image.Handle
SelectObject hMemDC, hBitmap
End With
我的想法是
既然 UserControl 本身己具有 hBitmap
我想直接使用它的 hBitmap 來繪圖
可是怎麼也無法成功
不知何故