بازکردن Captcha در یک ایمیج باکس

[mohammadsamadi1377]

باسلام
چجوری میتونم captcha در ایمیج باکس لود کنم
مثلا captcha بلاگفا

[setroyd]

Private Type TGUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long
Public Function LoadPicture(ByVal strFileName As String) As Picture
Dim IID As TGUID
With IID
.Data1 = &H7BF80980
.Data2 = &HBF32
.Data3 = &H101A
.Data4(0) = &H8B
.Data4(1) = &HBB
.Data4(2) = &H0
.Data4(3) = &HAA
.Data4(4) = &H0
.Data4(5) = &H30
.Data4(6) = &HC
.Data4(7) = &HAB
End With
On Error GoTo ERR_LINE
OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture
Exit Function
ERR_LINE:
Set LoadPicture = VB.LoadPicture(strFileName)
End Function


Private Sub Command1_Click()
Image1.Picture = LoadPicture("http://www.entekhab.ir/client/themes/fa/main/img/logo_01.jpg")
End Sub




با این کد میتونی picture لود کنی واسه captcha امتحان نکردم اخه تو imagebox با این کد میشه . ولی تو picturebox راحت میشه اون کاری که شما میخوای رو انجام داد .