保存图片时遇到属性值无效!

Question

Dim wScreen As Long
        Dim hScreen As Long
        Dim w As Long
        Dim h As Long
        With picCache
            .Cls
            .ScaleMode = vbPixels
            w = Rect.Width
            h = Rect.Height
            hdcScreen = GetDC(0)
            r = StretchBlt(.hDC, 0, 0, w, h, Me.hDC, Rect.Left, Rect.Top, w, h, vbSrcCopy)
        End With
        SavePicture picCache.Picture, "c:\test.bmp" '在这里遇到错误.
属性值无效会是什么原因呢??

Answer 1

SavePicture picCache.Picture, "c:\test.bmp"
你改成
SavePicture picCache.Image, "c:\test.bmp"    ''试试

Answer 2

应该是：
SavePicture picCache.Image, "c:\test.bmp"

Answer 3

if picCache.Picture is nothing = true then
    msgbox "nothing"
end if