繁體簡體轉換

由於兩岸文件交流頻繁，許多人有繁簡體轉換需要
現在vb.net提供現成函式使用

TextBox1.Text = StrConv("网名", VbStrConv.TraditionalChinese, 2052)
TextBox2.Text = StrConv("孫燕姿", VbStrConv.SimplifiedChinese, 2052)


'TextBox2.Text = StrConv("破解", VbStrConv.SimplifiedChinese, 2052)
'TextBox2.Text = StrConv("遊戲", VbStrConv.SimplifiedChinese, 2052)
'TextBox2.Text = StrConv("歌詞", VbStrConv.SimplifiedChinese, 2052)
'TextBox2.Text = StrConv("樂透彩", VbStrConv.SimplifiedChinese, 2052)
'TextBox2.Text = StrConv("小說", VbStrConv.SimplifiedChinese, 2052)
'TextBox2.Text = StrConv("租屋", VbStrConv.SimplifiedChinese, 2052)
'TextBox2.Text = StrConv("序號", VbStrConv.SimplifiedChinese, 2052)
'TextBox2.Text = StrConv("信用卡", VbStrConv.SimplifiedChinese, 2052)
'TextBox2.Text = StrConv("貸款", VbStrConv.SimplifiedChinese, 2052)