示例比较简单，利用控件的Tag属性来保存各种语言，用“|”号隔开，如“Language|语言|語言”，然后在切换语言的触发事件中用代码来调用：

    For Each ctl In Me.Controls
        If ctl.Tag <> "" Then ctl.Caption = Split(ctl.Tag, "|", -1)(Lan - 1)
    Next

 

示例下载: 点击这里下载