目前執行的是哪一國語言的 Windows？

只要呼叫 GetSystemDefaultLCID API 函數即可， 細節如下：

1. API 的宣告：

Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long

註：如果以上的宣告放在「一般模組」底下， 應將 Private 保留字去掉。

2. 程式範例：

Dim LocaleID As Long
LocalID = GetSystemDefaultLCID

而以下是傳回值 LocalID 所代表的語言：

LocaleID	語言
&H404	&127;中文繁體(台灣)&127;&127;
&H804	中文簡體(大陸)&127;&127;
&H409	英文
...