简繁转换

    Public Shared Function Traditional2Simplified(ByVal str As String) As String
        '繁体转简体 
        Return (Microsoft.VisualBasic.Strings.StrConv(str, Microsoft.VisualBasic.VbStrConv.SimplifiedChinese, 0))
    End Function
    Public Shared Function Simplified2Traditional(ByVal str As String) As String
        '简体转繁体 
        Return (Microsoft.VisualBasic.Strings.StrConv(TryCast(str, String), Microsoft.VisualBasic.VbStrConv.TraditionalChinese, 0))
    End Function