Vise online billede i en picturebox

Hej eksperter ;)

Jeg har fundet denne kode her på eksperten, og har fået den til at virke - delvist!

Option Explicit

Private Type TGUID
        Data1 As Long
        Data2 As Integer
        Data3 As Integer
        Data4(0 To 7) As Byte
End Type

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

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 ERR_LINE
    OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture
    Exit Function
ERR_LINE:
    Set LoadPicture = VB.LoadPicture(strFileName)
End Function

Private Sub Command1_Click()
  Set Image1.Picture = LoadPicture("http://www.nr-one.dk/Lars/ny%20Avatar.jpg")
End Sub

Mit problem er dog, at når jeg har loadet et billede én gang fra en URL, og hvis jeg overskriver billedet med et andet, så viser den stadig det gamle billede i min picturebox. Er der nogen måde hvorpå man kan fixe dette?