Why isn't this code working

[feneck]

Dose anyone know why this code only downloads a 1kb file. I'm running Windows Vista, maybe that has something to do with it eh?

Private Sub Command2_Click()
 Dim b() As Byte

 b() = Inet1.OpenURL("http://www.whatever.com/image.jpg", icByteArray)
 
 Open App.Path & "\Image.jpg" For Binary As #1
 Put #1, 1, b
 Close #1
 
 Picture1.Picture = LoadPicture(App.Path & "\Image.jpg")
End Sub

Thanks for your help