EnableExplicit

Select GetUserDefaultLangID_() & $0003FF
  Case #LANG_ENGLISH
    MessageRequester("","Sprache: Englisch",0)
  Case #LANG_FRENCH
    MessageRequester("","Sprache: Französisch",0)
  Case #LANG_GERMAN
    MessageRequester("","Sprache: Deutsch",0)
  Case #LANG_RUSSIAN
    MessageRequester("","Sprache: Russisch",0)
  Case #LANG_SPANISH
    MessageRequester("","Sprache: Spanisch",0)
  Default
    MessageRequester("","Andere Sprache",0)
EndSelect