lCol As Long)

   If (m_bShowingMenu) Then
      Exit Sub
   End If

   If (lRow &gt; 0) And (lCol &gt; 0) Then
      Dim lLeft As Long
      Dim lTop As Long
      Dim lWidth As Long
      Dim lHeight As Long
      grdIcons.CellBoundary lRow, lCol, lLeft, lTop, lWidth, lHeight

      If (grdIcons.top + lTop &lt; 0) Then
         paneSelector.Visible = False
      Else
         paneSelector.Move _
            grdIcons.left + _
                IIf(lCol = 2, _
                    grdIcons.ColumnWidth(1) * Scr