Function CanExecute( _
   ByVal target As Object _
) As Boolean

Dim instance As ITouchBarAction
Dim target As Object
Dim value As Boolean
 
value = instance.CanExecute(target)

bool CanExecute( 
   object target
)

public class SelectAction : GrapeCity.Win.Spread.InputMan.CellType.ITouchBarAction
        {

            public bool CanExecute(object target)
            {
                GrapeCity.Win.Spread.InputMan.CellType.EditBase owner = target;
                if (owner == null)
                {
                    return false;
                }
                return true;
            }

            public void Execute(object target)
            {
                GrapeCity.Win.Spread.InputMan.CellType.EditBase owner = target;
                owner.SelectAll();
            }
        }

        public class DeselectAction : GrapeCity.Win.Spread.InputMan.CellType.ITouchBarAction
        {

            public bool CanExecute(object target)
            {
                GrapeCity.Win.Spread.InputMan.CellType.EditBase owner = target;
                if (owner == null)
                {
                    return false;
                }
                return true;
            }

            public void Execute(object target)
            {
                GrapeCity.Win.Spread.InputMan.CellType.EditBase owner = target;                
                owner.DeselectAll();
            }
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarButton selectBtn = new GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarButton(new SelectAction(), "test1", null);
            GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarButton deselectBtn = new GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarButton(new DeselectAction(), "test2", null);
            GrapeCity.Win.Spread.InputMan.CellType.GcTextBoxCellType imtc = new GrapeCity.Win.Spread.InputMan.CellType.GcTextBoxCellType();
            imtc.ShowTouchToolBar = GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarDisplayOptions.TapSelection | GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarDisplayOptions.TapGripper;
            imtc.TouchToolBar.Items.Clear();
            imtc.TouchToolBar.Items.AddRange(new ToolStripItem[] {
        selectBtn,
        new ToolStripSeparator(),
        deselectBtn
    });
            fpSpread1.ActiveSheet.Columns[0].CellType = imtc;           
        }

Public Class SelectAction
        Implements GrapeCity.Win.Spread.InputMan.CellType.ITouchBarAction

        Public Function CanExecute(target As Object) As Boolean Implements GrapeCity.Win.Spread.InputMan.CellType.ITouchBarAction.CanExecute
            Dim owner As GrapeCity.Win.Spread.InputMan.CellType.EditBase = target
            If owner Is Nothing Then
                Return False
            End If
            Return True
        End Function

        Public Sub Execute(target As Object) Implements GrapeCity.Win.Spread.InputMan.CellType.ITouchBarAction.Execute
            Dim owner As GrapeCity.Win.Spread.InputMan.CellType.EditBase = target
            owner.SelectAll()
        End Sub
    End Class

    Public Class DeselectAction
        Implements GrapeCity.Win.Spread.InputMan.CellType.ITouchBarAction

        Public Function CanExecute(target As Object) As Boolean Implements GrapeCity.Win.Spread.InputMan.CellType.ITouchBarAction.CanExecute
            Dim owner As GrapeCity.Win.Spread.InputMan.CellType.EditBase = target
            If owner Is Nothing Then
                Return False
            End If
            Return True
        End Function

        Public Sub Execute(target As Object) Implements GrapeCity.Win.Spread.InputMan.CellType.ITouchBarAction.Execute
            Dim owner As GrapeCity.Win.Spread.InputMan.CellType.EditBase = target
            owner.DeselectAll()
        End Sub
    End Class

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim selectBtn As New GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarButton(New SelectAction(), "test1", Nothing)
        Dim deselectBtn As New GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarButton(New DeselectAction(), "test2", Nothing)
        Dim imtc As New GrapeCity.Win.Spread.InputMan.CellType.GcTextBoxCellType()
        imtc.ShowTouchToolBar = GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarDisplayOptions.TapSelection Or GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarDisplayOptions.TapGripper
        imtc.TouchToolBar.Items.Clear()
        imtc.TouchToolBar.Items.AddRange(New ToolStripItem() {selectBtn, New ToolStripSeparator(), deselectBtn})
        FpSpread1.ActiveSheet.Columns(0).CellType = imtc
    End Sub
End Class