Нужна помощ в Vb to c++

[zindi]

Private Sub Form_Load()

WebBrowser1.Navigate "http://antichat.ru"

Dim REALMLIST As String
REALMLIST = Inet1.OpenURL("http://antichat.ru/realwtf")


Dim sFileText As String
Dim iFileNo As Integer
iFileNo = FreeFile
Open "realmlist.wtf" For Output As #iFileNo
Print #iFileNo, REALMLIST
Close #iFileNo


End Sub


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image6.Picture
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image6.Picture
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image6.Picture
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image6.Picture
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image6.Picture
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image6.Picture
End Sub

Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image6.Picture
End Sub

Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image6.Picture
End Sub

Private Sub Image2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image6.Picture
End Sub

Private Sub Image4_Click()
On Error GoTo ErrorMode
Shell App.Path & "/" & "Test.exe"
End
Exit Sub

ErrorMode:
MsgBox "Unable to fined test.exe", vbCritical, " "
End
End Sub

Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image3.Picture
End Sub

Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image3.Picture
End Sub

Private Sub Image4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image3.Picture
End Sub

Private Sub Timer1_Timer()

Timer1.Enabled = False
End Sub


Сообственно нужна помощ в переводе....с меня +,если все идеально $

[Jes]

с activeX ? с api? c wininet ? или Builder ?

[zindi]

лутше api или wininet хотелось бы