ترجمه گوگل به دو زبان همزمان

[1vaxjo1]

با درود و خسته نباشید
دوستان گرامی یک مشکل اساسی در برنامه نویسی وب نت دارم امیدوارم بتونید کمکم ممنون میشوم
من میخواهم از گوگول ترانسلاتور همزمان در دو نکست باکس استفاده کنم ولی نمیشه مثلا از انگلیسی همزمان به آلمانی و فرانسه ترجمه کنم یعنی بجای ترجمه تک به تک دو تا ترجمه همزمان باشد
این کد را نوشتم جواب نمیده نمیدانم لطفا کمکم کنید

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
For i As Integer = 0 To Google.API.Translate.LanguageUtility.LanguageColle ction.Count - 1

Me.ComboBox2.Items.Add(Google.API.Translate.Langua geUtility.LanguageCollection(i))
Me.ComboBox3.Items.Add(Google.API.Translate.Langua geUtility.LanguageCollection(i))
Next


Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Me.RichTextBox1.Text = Google.API.Translate.Translator.Translate(Me.RichT extBox2.Text, Google.API.Language.Germany, Me.ComboBox2.SelectedIndex + 0)
Me.RichTextBox1.Text = Google.API.Translate.Translator.Translate(Me.RichT extBox3.Text, Google.API.Language.Germany, Me.ComboBox3.SelectedIndex + 0)

Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

End Sub


Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

End Sub


Private Sub T1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T1.Tick

End Sub

Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged

End Sub
ممنون میشم اگر کمکم کنید

[1vaxjo1]

با درود
یعنی تو این فاروم کسی نیست که بتونه به این سوال پاسخ بدهد