'GB繁体转简体
Function TraditionalGB2SimpleGB(ByVal sTraditionalGB As String) As String
Dim nLen As Integer
Dim sSimpleGB As String
nLen=Len(sTraditionalGB)
sSimpleGB=String$(nLen,0)
Call LCMapString(&H804,&H2000000,ByVal StrPtr(sTraditionalGB),nLen,ByVal StrPtr(sSimpleGB),nLen)
Function=sSimpleGB
End Function