各位好！怎样知道Windows的语言环境（即简繁体）用VB！

API函数GetOEMCP:
Private Declare Function GetOEMCP Lib "kernel32" () As LongPrivate Sub Form_Load()
    Debug.Print GetOEMCP
End Sub
语言代码，语言代码如下：
437 MS-DOS United States 
708 Arabic (ASMO 708) 
709 Arabic (ASMO 449+, BCON V4) 
710 Arabic (Transparent Arabic) 
720 Arabic (Transparent ASMO) 
737 Greek (formerly 437G) 
775 Baltic 
850 MS-DOS Multilingual (Latin I) 
852 MS-DOS Slavic (Latin II) 
855 IBM Cyrillic (primarily Russian) 
857 IBM Turkish 
860 MS-DOS Portuguese 
861 MS-DOS Icelandic 
862 Hebrew 
863 MS-DOS Canadian-French 
864 Arabic 
865 MS-DOS Nordic 
866 MS-DOS Russian (former USSR) 
869 IBM Modern Greek 
874 Thai 
932 Japan 
936 Chinese (PRC, Singapore) 
949 Korean 
950 Chinese (Taiwan; Hong Kong SAR, PRC)  
1361 Korean (Johab) 
www.applevb.com