amoozeshe sakhte bote motarjem vb6

If InStr(1, Message, "/", vbTextCompare) <> 0 Then ' in yani age to pmai ke miad / dasht oono tajzie k.o.n
Dim dastur As String
Dim taraf As String
dastur = LCase(Left(Message, InStr(Message, "/") - 1))' inja dastur ro moarefi mikonim ke koja qarar migire
   taraf = Mid(Message, InStr(Message, "/") + 1) ' injam matni ke qarare tarjome she( aksare bota ba remoteshoon karaye dge i ham mikonan mese k/taraf)vase hamin az taraf estefade shod
   If dastur = "t" Then ' hala ke dasturo tarafo moarefi kardim migim age dastur tarjome bood
webbrowser1.Navigate2 ("http://translate.google.com/#en/de/" + taraf) ' wb browseremoon bere be adrese bala oon + tarafe akhar matnemoone yani masalan hamoon hi mitoonestim in karo az tariqe qarar dadane matnemoon too text boxe khode google anjam bedim ke yekam sakht tar mishod
Timer1.Enabled = True' timer bara ine ke google darja tarjome nemikone o age nabashe baes mishe barname error bede
sk.WriteRoomMessage Text3, Text10.Text'injam besh migim  harchi too text10 benevis

End If


End If


End Sub

Private Sub Timer1_Timer()
Text10.Text = webbrowser1.Document.getElementById("result_box").innerText 'inja bad az in ke get by element kardim too moroorgaremoon va result_box ke hamoon idie boxi hast ke mikhaym matno azash begirim hast ke mosavish kardim ba hamoon text10


End Sub