!--------------------------------!
! Elimino un Elemento del Queue  !
!--------------------------------!
 if choice(?List4) then
  get(QKeys,choice(?List4))
  delete(QKeys)
  if errorcode() then stop(error()) .
 end
 ThisWindow.Reset(1)

