Attribute VB_Name = "modLocale"
Public Function locale(ByVal KeyCode) As String
On Error GoTo ReportErr
Lang = ReadINI("server", "lang", SettingIni)
LocaleTXT = App.Path & "\locale\" & Lang & "\locale.txt"
localen = ReadINI("locale", KeyCode, LocaleTXT)
If localen = "" Then locale = "locale_" & KeyCode Else locale = localen
Exit Function
ReportErr:
MsgBox "Locale Error!" & vbNewLine & "-----------------------" & vbNewLine & Err.Description, vbCritical, "Error"
End Function

Public Function RefreshLocale()
On Error Resume Next
'MAIN FORM
frmMain.mnuServer.Caption = locale("mnuserver_caption")
frmMain.mnuEnd.Caption = locale("mnuEnd_caption")
frmMain.chckLog.Caption = locale("chckLog_caption")
frmMain.chkChatlog.Caption = locale("chkchatlog_caption")
frmMain.chkSaveChatLog.Caption = locale("chksavechatlog_caption")
frmMain.Check1.Caption = locale("check_foreground_caption")
frmMain.mnuLang.Caption = locale("mnulang_caption")
'MAIN FORM
End Function