程序代码:DO CASE 
CASE this.Value=1
    this.BackColor=RGB(255,0,0)
CASE this.Value=2
    this.BackColor=RGB(255,255,0)
CASE this.Value=3
    this.BackColor=RGB(0,0,255)
CASE this.Value=4
    this.BackColor=RGB(0,255,0)
CASE this.Value=5
    this.BackColor=RGB(0,0,0)    
ENDCASE 
thisform.shape1.BackColor=this.BackColor 
BKC=this.BackColor 
thisform.text7.Value=MOD(BKC,256)
thisform.text8.Value=INT(MOD(BKC,256*256)/256)
thisform.text9.Value=INT(BKC/256/256)