vb.net 简繁转换

        Dim strSimplifiedChinese, strTraditionalChinese As String

        strSimplifiedChinese = "我是中国人！"

        strTraditionalChinese = StrConv(strSimplifiedChinese, VbStrConv.TraditionalChinese) '简转繁
        Me.TextBox1.Text = strTraditionalChinese

        strSimplifiedChinese = StrConv(strTraditionalChinese, VbStrConv.SimplifiedChinese) '繁转简

        Me.TextBox2.Text = strSimplifiedChinese