VBA判断系统系统语言(转载）

Option Explicit
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Sub Form_Load()
Dim LocaleID As Long
LocaleID = GetSystemDefaultLCID
Select Case LocaleID
Case &H404
MsgBox "traditional Chinese", , "Language"
Case &H804
MsgBox "Chinese", , "Language"
Case &H409
MsgBox "English", , "Language"
End Select
End Sub