1.获得系统语言类型
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Function Language() As String
Dim LocaleID As Long
LocaleID = GetSystemDefaultLCID
Select Case LocaleID
Case &H404: Language = "中文繁体."
Case &H804: Language = "中文简体."
Case 1033: Language = "英文"
Case Else: Language = "其它"
End Select
End Function