这个vb6源码转.net怎么转

'本工程需要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