如何在VB中实现鼠标对图片的拖动，使用Bitblt

Question

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Const SRCCOPY = &HCC0020
Private Const SRCAND = &H8800C6
Private Const SRCPAINT = &HEE0086
Private Const SRCINVERT = &H660046
Private Const SRCERASE = &H440328
Private Const NOTSRCERASE = &H1100A6
Private Const NOTSRCCOPY = &H330008
Private Const PATPAINT = &HFB0A09
Private Const PATINVERT = &H5A0049
Private Const PATCOPY = &HF00021
Private Const MERGEPAINT = &HBB0226
Private Const MERGECOPY = &HC000CA
Private Const DSTINVERT = &H550009Private Sub DrawPic(ByVal hDestDC As Long, ByVal Width As Long, ByVal Height As Long, hSrcDC As Long)
    Dim lReturn As Long
    lReturn = BitBlt(hDestDC, 0, 0, Width, Height, hSrcDC, 0, 0, SRCCOPY)
End Sub