有关简繁体转换的问题？

Question

有一个VB软件，要把其中的Caption属性中进行简繁体转换.
各位牛人怎样实现？？？
方法越简单越好！！！分不够我可以再加。

Answer 1

这个雏形
http://blog.csdn.net/babyt/archive/2004/09/04/94594.aspx

Answer 2

' GB 码与 BIG5 码的相互转换
' Str 为要转换的字符串, Action 为转换的动作( BIG5 转 GB, GB 转 BIG5)
Function GBBIG5(ByVal Str As String, ByVal Action As Convert) As String
    Dim tStr As String
    If Action = BIG5toGB Then         'BIG5-->GB
        tStr = StrConv(Str, vbFromUnicode, &H804)
        GBBIG5 = StrConv(tStr, vbUnicode, &H404)
    ElseIf Action = GBtoBIG5 Then     'GB-->BIG5
        tStr = StrConv(Str, vbFromUnicode, &H404)
        GBBIG5 = StrConv(tStr, vbUnicode, &H804)
    End If
End Function