Скачивание капчи - Сохранённая капча и капча в WebBrowser различаются

Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
    "URLDownloadToFileA" (ByVal pCaller As Long, _
    ByVal szURL As String, ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Event ErrorDownload(FromPathName As String, ToPathName As String)
Public Event DownloadComplete(FromPathName As String, ToPathName As String)
 
Public Function DownloadFile(FromPathName As String, ToPathName As String)
If URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0 Then
DownloadFile = True
RaiseEvent DownloadComplete(FromPathName, ToPathName)
Else
DownloadFile = False
RaiseEvent ErrorDownload(FromPathName, ToPathName)
End If
End Function
 
Private Sub Form_load()
Call DownloadFile("http://profitcentr.com/captcha_1.php", "c:\captcha.png")
End Sub

Option Explicit
 
Private Sub Form_Load()
    wb.Navigate "http://profitcentr.com/"
End Sub
 
Private Sub wb_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim imgObj  As Object
    Dim iRender As IHTMLElementRender.IHTMLElementRender
 
    wb.Document.parentWindow.execScript "javascript: OpenComment('avtoriz')"
    Set imgObj = wb.Document.images("captcha_1")
    Set iRender = imgObj
    iRender.DrawToDC picCaptcha.hDC
    picCaptcha.Refresh
End Sub