Sub Process_Globals
   Dim AllLocales() As String
   AllLocales = Array As String("ar", "ar_EG", "bg", "bg_BG", "ca", "ca_ES", "cs", "cs_CZ", "da", _
      "da_DK", "de", "de_AT", "de_BE", "de_CH", "de_DE", "de_LI", _
      "de_LU", "el", "el_CY", "el_GR", "en", "en_AU", "en_BE", "en_BW", _
      "en_BZ", "en_CA", "en_GB", "en_HK", "en_IE", "en_IN", "en_JM", _
      "en_MH", "en_MT", "en_NA", "en_NZ", "en_PH", "en_PK", "en_RH", _
      "en_SG", "en_TT", "en_US", "en_US_POSIX, en_VI", "en_ZA", _
      "en_ZW", "es", "es_AR", "es_BO", "es_CL", "es_CO", "es_CR", _
      "es_DO", "es_EC", "es_ES", "es_GT", "es_HN", "es_MX", "es_NI", _
      "es_PA", "es_PE", "es_PR", "es_PY", "es_SV", "es_US", "es_UY", _
      "es_VE", "et", "et_EE", "eu", "eu_ES", "fa", "fa_IR", "fi", "fi_FI", "fr", "fr_BE", _ 
      "fr_CA", "fr_CH", "fr_FR", "fr_LU", "fr_MC", "gl", "gl_ES", "hr", "hr_HR", "hu", "hu_HU", _
      "in", "in_ID,is", "is_IS", "it", "it_CH", "it_IT", "iw", "iw_IL", "ja", "ja_JP", "kk", "kk_KZ", _
      "ko", "ko_KR", "lt", "lt_LT", "lv", "lv_LV", "mk", "mk_MK", "ms", "ms_BN", "ms_MY", "nl", "nl_BE", "nl_NL", "no", _ 
      "no_NO", "no_NO_NY", "pl", "pl_PL", "pt", "pt_BR", "pt_PT", "ro", "ro_RO", "ru", "ru_RU", "ru_UA", "sh", "sh_BA", _ 
      "sh_CS", "sh_YU", "sk", "sk_SK", "sl", "sl_SI", "sq", "sq_AL", "sr", "sr_BA", "sr_ME", "sr_RS", "sv", "sv_FI", "sv_SE", _ 
      "th", "th_TH", "tr", "tr_TR", "uk", "uk_UA", "vi", "vi_VN", "zh", "zh_CN", "zh_HK", "zh_HANS_SG", "zh_HANT_MO", "zh_MO", "zh_TW")
      Dim tts1 As TTS
End Sub
Sub Globals
End Sub
Sub Activity_Create (FirstTime As Boolean)
   If FirstTime Then
      tts1.Initialize("tts1")
   End If
End Sub
Sub TTS1_Ready (Success As Boolean)
   If Success Then
      Dim listOfSupported As List
      listOfSupported.Initialize
      For i = 0 To AllLocales.Length - 1
         Dim s() As String
         s = Regex.Split("_", AllLocales(i))
         If s.Length = 1 Then
             If tts1.SetLanguage(s(0), "") = True Then listOfSupported.Add(AllLocales(i))
         Else
            If tts1.SetLanguage(s(0), s(1)) = True Then listOfSupported.Add(AllLocales(i))
         End If
      Next
      For i = 0 To listOfSupported.Size - 1
         Log(listOfSupported.Get(i)) 'print to the log
      Next
   End If
End Sub