建议你使用我这代码:Private Sub Form_Load()Timer1.Interval = 500End SubPrivate Sub Timer1_Timer()Static i As Integeri = i + 1If i Mod 2 = 0 ThenSendKeys ("{left}")ElseSendKeys ("{right}")End IfEnd Sub