有表查图如何保留颜色？

有表查图，选中某条纪录后对应的图形会闪亮并变颜色，如何将颜色保留下来，查询结束时在恢复原来。

在aftertrackinglayerdraw事件中重画该记录图形实体。

能给点代码实例吗？
我最后还要恢复原来的颜色？

以下是引用janecat在2003-9-30 12:52:38的发言：
能给点代码实例吗？
 我最后还要恢复原来的颜色？

一个程序里的函数，看看吧，清楚不就用refresh或者clear就行，帮助里都有啦
Private Sub DrawSpatialRecordset(recs As MapObjects2.Recordset, color, Style)
  
  On Error Resume Next
  If Not recs Is Nothing Then
    Dim sym As New MapObjects2.symbol
    Dim fld As MapObjects2.Field
    sym.color = color
    If Style = moTransparentFill Then sym.OutlineColor = color
    sym.Style = Style
    Set fld = recs("Shape")
    If recs.count = 0 Then Exit Sub
    recs.MoveFirst     ' reset the cursor
    Do While Not recs.EOF ' loop through the records
      frmMain.Map1.DrawShape fld.Value, sym  '主要就是这里了
      recs.MoveNext
    Loop
  End If

  
End Sub