bs(grdThis.CellFont(lRow, lCol).Italic)
   chkItalic.Tag = ""
End Sub

Private Sub mnuContext_Click(Index As Integer)
Dim cD As cCommonDialog
   Select Case Index
   Case 0
      ' edit mode
      grdThis.StartEdit grdThis.SelectedRow, grdThis.SelectedCol
   Case 2
      Clipboard.Clear
      Clipboard.SetText grdThis.CellText(grdThis.SelectedRow,
       grdThis.SelectedCol)
   Case 3
      grdThis.CellText(grdThis.SelectedRow, grdThis.SelectedCol) = Empty
   Case 4
      grdThis.RemoveRow grdThis.SelectedR