VB源代码：简洁的指针时钟示例