Private Declare Function GetUserDefaultLangID Lib "kernel32" () As Integer
'此API函数是可以在区域设置中拿到你设置的语言ID
Public Function GetSystemLocale() As Long
If GetUserLangID = &H804 Then
getsystemlocale = 1 ' 中文
else GetUserDefaultLangID = &H809 then
GetSystemLocale = 0 ' English
End If
End Function