在实际问题中，我们需要在VB中得到更精确的时间事件触发，timer控件的精度只达到30ms，该程序应用timeSetEvent多媒体函数实现1ms的精确事件触发。-on practical issues, we need to be in VB more precise time trigger events, The timer control precision is only 30 ms. Application procedures for the multimedia function timeSetEvent ms achieve a precise trigger events.