VB中不用TIMER控件，利用API写的控件。