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

PHP:


Private Sub Form_Load()

WebBrowser1.Navigate "/"

Dim REALMLIST As String
REALMLIST = Inet1.OpenURL("/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



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

 

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

 

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