主题：[求助]日期大写格式问题

老师：我设计支piao时，大写日期中“年”从日期列取值，得到结果是“贰仟零壹拾陆”而通常支piao格式应为“贰零壹陆”，而我日期列属性中日期时间格式设为data的，怎么才能实现这个格式要求呢？我现在用的DataFormat事件代码：

年：

If e.Value IsNot Nothing Then
    e.Value = CCNumber(e.Value.Year)
End If
另外，窗口控件中文字怎样才能实现自动缩放？

窗口控件中文字多了装不下需要换行，字体能自动缩小吗？怎样写代码？