本工程需要Microsoft Internet Transfer Control 6.0控件
'-----------------------窗体上一个inet、一个picture、一个command
Private Sub Command1_Click()
    Dim Buff() As Byte
    Inet1.URL = "https://passport.baidu.com/?verifypic"
    Buff() = Inet1.OpenURL(, icByteArray)
   p = App.Path + "\temp.jpg"
   Open p For Binary As #1
    For i = 0 To UBound(Buff)
        Put #1, , Buff(i)
    Next
    Close #1
Picture1.Picture = LoadPicture(p)
Kill p
End Sub