Fix my GUI Code?

Hi,

I am no doubt missing something really obvious, but I have a problem with the following code (generated by Blitzvision btw):

;*******************************************************************************

quitSEAR=0
Repeat

If KeyDown(200) Then
If vpos>0 Then
vpos=vpos-1
render_screen
End If
End If

If KeyDown(208) Then
If vpos<event_total-28 Then
vpos=vpos+1
render_screen
End If
End If

WaitEvent()
Select EventID()
Case Event_WindowClose
quitSEAR=1

Case Event_MenuEvent
Select EventData()
Case 1 ;MenuBar_SEAR_Open
Case 2 ;MenuBar_SEAR_AppendFiles
Case 3 ;MenuBar_SEAR_Close
Case 4 ;MenuBar_SEAR_Exit
Case 5 ;MenuBar_SEAR_HelpTopics
Case 6 ;MenuBar_SEAR_About
End Select

Case Event_GadgetAction
Select EventSource()
Case Gadget_SEAR_CheckLCPTrain
CheckLCPTrain_flag = SwapAndFilter(CheckLCPTrain_flag)
filter_data
render_screen
Case Gadget_SEAR_CheckErrors

Case Gadget_SEAR_CheckSEARDigital

Case Gadget_SEAR_CheckSEARAnalogue

Case Gadget_SEAR_CheckSeperators

Case Gadget_SEAR_CheckWarning



Case Gadget_SEAR_ButtonEZ
Case Gadget_SEAR_ButtonTrends
Case Gadget_SEAR_ButtonTimes
Case Gadget_SEAR_ButtonErrors
Case Gadget_SEAR_ButtonClear
Case Gadget_SEAR_Button32
Case Gadget_SEAR_Button33
Case Gadget_SEAR_Button34
End Select

End Select

Until quitSEAR

;----------------------------------------------------------

Basically, it all works fine and the Keydown(200) and Keydown(208) calls work as they should between the "Repeat-Until" loop, until I click on one of the checkboxes (Gadget_SEAR_ etc) and then the keydown calls don't work any more (I have put debug code in and am sure thatthey are not being called). BUT, the event loops still work fine.

Any ideas?

Thanks.