Private Type TGUID
   Data1                            As Long
   Data2                            As Integer
   Data3                            As Integer
   Data4(0 To 7)                    As Byte
End 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&,IID,LoadPicture
   Exit Function
LocalErr:
   Set LoadPicture = VB.LoadPicture(strFileName)
   Err.Clear
End Function

Private Sub Command1_Click()
   Image1.Picture = LoadPicture("http://img.baidu.com/img/logo-zhidao.gif")
End Sub