下面这段代码是获取验证码的，但是第一次运行软件，显示为空，第二次运行软件才显示验证，请问这是什么原因呢？
'获取验证码
Public Sub GetCode(strURL)
On Error Resume Next
Dim Buff() As Byte Inet1.url = strURL
Buff() = Inet1.OpenURL(, icByteArray) With picVlCode
.Picture = PictureFromBits(Buff()) '直接得到Picture对象
.PaintPicture .Picture, 0, 0, .Width, .Height, 0, 0, .ScaleWidth, .ScaleHeight
End With
End Sub

顶