小吳 VBQA 程式設計討論

如何用timer控制joystick
以下為程式碼
=========
Private Sub Timer2_Timer()
Timer2.Enabled = False
　　Timer2.Interval = 2
　　
　　If i_count ＜ 10 Then
　　　　Timer2.Enabled = True
　　　　Timer2.Interval = 500
　　　 ''要放在這邊嘛?
　　　
　　End If
　　i_count = i_count + 1
End Sub
---------------
Sub lstJoySticks_click()
　　　
　　　jsGUID = objDIDEnum.GetItem(lstJoySticks.ListIndex + 1).GetGuidInstance
　　time = GetTickCount
　　Set objDID = objDI.CreateDevice(jsGUID)
　　objDID.SetCommonDataFormat DIFORMAT_JOYSTICK
　　objDID.SetCooperativeLevel Me.hWnd, DISCL_BACKGROUND Or DISCL_EXCLUSIVE
　　objDID.Acquire
　
　　Do While 1
　　'''省略
　　loop
end sub
要怎麼寫才能控制joy stick 0.5秒鐘抓一次值呢?