从 OleLoadPicturePath 得到的位图的句柄怎么直接得到

从 OleLoadPicturePath 得到的位图的句柄如何直接得到
OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, Pic

1 也就是说从网路上得到的位图的句柄如何直接得到? 

2 如何不能得到,那么通过什么方法得到

呵呵,最好是2个问题都有答案.


请各位网友伸出援助之手,谢谢



[解决办法]

VB code

Option ExplicitPrivate Type TGUID   Data1                            As Long   Data2                            As Integer   Data3                            As Integer   Data4(0 To 7)                    As ByteEnd Type'// 用来加载Internet上的图片Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long'// 从Internet上加载图片Public Function LoadPicture(ByVal strFileName As String) As Picture   Dim IID  As TGUID   With IID      .Data1 = &H7BF80980      .Data2 = &HBF32      .Data3 = &H101A      .Data4(0) = &H8B      .Data4(1) = &HBB      .Data4(2) = &H0      .Data4(3) = &HAA      .Data4(4) = &H0      .Data4(5) = &H30      .Data4(6) = &HC      .Data4(7) = &HAB   End With      On Error GoTo LocalErr      OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture   Exit FunctionLocalErr:   Set LoadPicture = VB.LoadPicture(strFileName)   Err.ClearEnd FunctionPrivate Sub Command1_Click()   Image1.Picture = LoadPicture("http://cimg2.163.com/catchimg/20100331/12059729_1.jpg")End Sub