Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim locale As AHLocale
End Sub
Sub InitLanguage
locale.Initialize
'Log("Sprache=" & locale.Language)
Select Case locale.Language
Case "de"
.....
Case "it"
....
Case Else
....
End Select
End Sub