如何在VB中得到系统用的是什么语言啊？

Question

我想在vb中知道我的系统安装的是什么语言，请问高人该用什么语句得到啊？谢谢了，在线等，急用！！！！多谢各位的帮助！！！！！

Answer 1

Declare Function GetSystemDefaultLangID Lib "kernel32" ()as integer
函数  取得系统的默认语言ID

Answer 2

使用获取系统语言版本API函数GetSystemDefaultLCID（）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