在表单上建一个container1，并在其中建一个是label1，label1的宽度是container1的两位，container1的宽度可以显示一个人的积分信息。个人的积分信息储存在一个表b1中，分别有"姓名"和“分数”两个字段。
在表单上另建一timer1控件，其interval属性值设为100,并在其init方法中写入：
with thisform.container1
  .width = 100
  .height = 24
  .label1.top = 4
  .label1.height = .height-8
  .label1.width = 2 * .width-2
  .label1.left= 2
endwith
在timer1的timer方法中写入：
with thisform.container1.label1
  .left=iif( .left <.width/(-2),-1,.left -1)
  if .left = -1
    select b1
    .caption = 姓名+' '+str(积分,6,2)
    if RECNO() < RECCOUNT()
      skip
    else
      go 1
    endif
    .caption = .caption+','+姓名+' '+str(积分,6,2)
  endif
 ENDWITH

注：
  label1的宽度正好可以放两个人的信息，如果要放三个人的信息，上述代友需要改动，其它类推。另
  适当调整timer1的interval属性值，以确定最佳效果。