How to get the language type of the operating system

Today, the Netizen asked the question:
"For example: when I run on the Chinese version of Win2000, I can get the language version of the operating system in Chinese, when I run it in the Win2000 English version, I know it's English."

Here I write a function for ease of use. (Only get simplified, traditional, and English, others add bar ^_^) The code is as follows:

http://community.csdn.net/Expert/topic/3389/3389759.xml?temp=.2974665

Private Declare Function getsystemdefaultlcid Lib "kernel32" () as Long

Private Sub Command1_Click ()
MsgBox Getostype, vbOKOnly, "hint"
End Sub

Function Getostype () as String
DIM ret as String
Select case Hex (GETSYSTEMDEFAULTLCID)
Case 804:
ret = "Chinese Simplified (mainland)"
Case 404:
ret = "Chinese Traditional (Taiwan)"
Case 409:
ret = "English"
Case Else:
ret = "Other language system"
End Select
Getostype = RET
End Function