ctedCol &gt; 0))
   If (bSelection) Then
      If (Button = vbRightButton) Then
         If (bSelection) Then
            mnuContext(0).Enabled = grdThis.Editable
            mnuContext(2).Enabled = Not
             IsMissing(grdThis.CellText(grdThis.SelectedRow,
             grdThis.SelectedCol))
            
            Me.PopupMenu mnuContextTOP, , x + grdThis.left, y + grdThis.top
         End If
      Else
         ' Check the cell boundary:
         Dim lLeft As Long
         Dim lTop As Long
        