      lColor = grdThis.ForeColor
      End If
      OleTranslateColor lColor, 0, lColor
      If cD.VBChooseColor(lColor, FullOpen:=True, Owner:=Me.hWnd) Then
         grdThis.CellForeColor(grdThis.SelectedRow, grdThis.SelectedCol) =
          lColor
      End If
   Case 8
      Set cD = New cCommonDialog
      lColor = grdThis.CellBackColor(grdThis.SelectedRow, grdThis.SelectedCol)
      If (lColor = -1) Then
         lColor = grdThis.BackColor
      End If
      OleTranslateColor lColor, 0, lColor
      I