چگونه از combobox در bing translate استفاده کنیم

[docendo]

با درود به دوستان برنامه نویس
من مبتدی برنامه نویسی هستم و در حال یاد گیری سوالم اینه که چگونه از کامبو باکس در bing translate استفاده کنیم من این برنامه در برای گوگول ترانسلاتور نوشتم خوب کارمیکند اما در bing translate کار نمیکند مشکل کجاست لطفا راهنمایی کنید

Dim ISO_language As String
Private Sub btnTranslate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTranslate.Click
Dim strTranslatedText As String
Try

client = New TranslatorService.LanguageServiceClient()
strTranslatedText = client.Translate("docendo", txtTraslateFrom.Text, ISO_language)
txtTranslatedText1.Text = strTranslatedText
Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.ComboBox1.Items.Add("English")
Me.ComboBox1.Items.Add("French")
Me.ComboBox1.Items.Add("Chinese")
Me.ComboBox1.Items.Add("Italian")
Me.ComboBox1.Items.Add("German")
Me.ComboBox1.Items.Add("Spanish")
Me.ComboBox1.Items.Add("Russian")
Me.ComboBox1.Items.Add("Japanese")
Me.ComboBox1.Items.Add("Korean")
Me.ComboBox1.Items.Add("Arabic")
Me.ComboBox1.Items.Add("Latin")
Me.ComboBox1.Items.Add("Greek")
Me.ComboBox1.Items.Add("Tagalog")
End Sub




Sub chooseLanguage()
If ComboBox1.SelectedIndex = 0 Then
ISO_language = "en"
End If

If ComboBox1.SelectedIndex = 1 Then
ISO_language = "fr"
End If


If ComboBox1.SelectedIndex = 2 Then
ISO_language = "zn"
End If


If ComboBox1.SelectedIndex = 3 Then
ISO_language = "it"
End If


If ComboBox1.SelectedIndex = 4 Then
ISO_language = "de"
End If

If ComboBox1.SelectedIndex = 5 Then
ISO_language = "es"
End If


If ComboBox1.SelectedIndex = 6 Then
ISO_language = "ru"
End If

If ComboBox1.SelectedIndex = 7 Then
ISO_language = "ja"
End If
If ComboBox1.SelectedIndex = 8 Then
ISO_language = "ko"
End If

If ComboBox1.SelectedIndex = 9 Then
ISO_language = "ar"
End If
If ComboBox1.SelectedIndex = 10 Then
ISO_language = "la"
End If
If ComboBox1.SelectedIndex = 11 Then
ISO_language = "el"
End If

If ComboBox1.SelectedIndex = 12 Then
ISO_language = "tl"
End If
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

End Sub
End Class



البته وفتی کد بالا را بصورت زیر بنویسیم برنامه کارمیکند اما نمیشود از کامبو باکس استفاده کرد


Try

client = New TranslatorService.LanguageServiceClient()
strTranslatedText = client.Translate("docendo", txtTraslateFrom.Text, "","fa")
txtTranslatedText1.Text = strTranslatedText





که در این حالت مترجم از یک زبانی به فارسی ترجمه مبکند
هدف من استفاده از کامبو باکس مباشد که بتوانم زبان مورد نظر را انتخاب کنم
از هرنوع راهنمایی دوستان سپاسگرازم