ow
   Case 6
      Set cD = New cCommonDialog
      Dim iFnt As IFont
      Dim sFnt As StdFont
      Set iFnt = grdThis.CellFont(grdThis.SelectedRow, grdThis.SelectedCol)
      iFnt.Clone sFnt
      If cD.VBChooseFont(sFnt, Owner:=Me.hWnd) Then
         grdThis.CellFont(grdThis.SelectedRow, grdThis.SelectedCol) = sFnt
      End If
   Case 7
      Set cD = New cCommonDialog
      Dim lColor As Long
      lColor = grdThis.CellForeColor(grdThis.SelectedRow, grdThis.SelectedCol)
      If (lColor = -1) Then
   