PublicSub ShowTableZeroBorders()Sub ShowTableZeroBorders(ByVal b AsBoolean) If isDesignMode Then 'showGlyph ,start add by alice ,2005-5-18 isShowTableZeroBorders = b Dim ct As htmlinterface.IOleCommandTarget = m_doc Dim pguidCmdGroup As Guid =New Guid("DE4BA900-59CA-11CF-9592-444553540000") ct.Exec(pguidCmdGroup, Convert.ToUInt32(2328), Convert.ToUInt32(0), b, Nothing) EndIf End Sub