@H_404_0@ Dim strSimplifiedChinese,strTraditionalChinese As String

@H_404_0@ strSimplifiedChinese = "我是中国人！"

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

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

@H_404_0@ Me.TextBox2.Text = strSimplifiedChinese