label
Dim culinfo As CultureInfo = New CultureInfo("de")
Application.CurrentCulture = culinfode    德语 
de-AT 德语 - 奥地利 
de-DE 德语 - 德国 
de-LI 德语 - 列支敦士登 
de-LU 德语 - 卢森堡 
de-CH 德语 - 瑞士