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)