Traduzione di un testo

' Il seguente snippet può essere utilizzato per tradurre il testo contenuto in una casella di testo, secondo una lingua che può essere scelta a partire da una tendina che potrà contenere la lista delle lingue nel seguente formato:
'  <codice lingua> - <descrizione lingua>
' esempio:
'   en - Inglese
'   it - Italiano
'   fr - Francese
'   de - Tedesco
'   es - Spagnolo
'  
if not empty(form.findcontrol("cb_language").value)
       form.findcontrol("testotradotto").Text = QWTranslateBing(form.findcontrol("testooriginale").Text, trim(left(form.findcontrol("cb_language").Value,at(" - ",form.findcontrol("cb_language").Value))))
else
       form.Alert("selezionare una lingua!")
end if