一款极漂亮的圆形的VB时钟，圆盘风格的电子时钟，在VB6.0下可顺利完成编译，运行后自动获取Windows7时间，指针就位开始走动，还支持语音报时功能，亮点就是语音报时了，报时语音已经打包，开发者完全可以将语音报时程序提取出来，放进其它程序里，报时清淅、语速不快不慢。代码参考性非常高。

可语音报时的VB闹钟，程序可进一步改造，建议采用多线程改造本闹钟程序。本闹钟还支持响铃功能，语音功能调用系统的DLL，女性报时声音，报时清淅。

Dim h As Integer, m As Integer, n As Integer bArr = LoadResData(118, "CUSTOM") '播放"叮咚" sndPlaySound bArr(0), SND_MEMORY Or SND_SYNC bArr = LoadResData(116, "CUSTOM") '播放"现在时间是" sndPlaySound bArr(0), SND_MEMO