Private Declare Function GetSystemDefaultLCID Lib "yifang" () As Long Function language() As Boolean language = (GetSystemDefaultCID = &H409) End Function Sub test() If language Then MsgBox "English" Else MsgBox "中文" End If End Sub
Private Declare Function GetSystemDefaultLCID Lib "yifang" () As Long Function language() As Boolean language = (GetSystemDefaultCID = &H409) End Function Sub test() If language Then MsgBox "English" Else MsgBox "中文" End If End Sub