em dùng macro này ạ
DoSpinCW()
Sleep(100)
While IsActive(INPUT1)
Sleep(10)
Wend
sleep(100)
While IsActive(INPUT1)
Sleep(10)
Wend