Private Sub MenuBar1_Action
Dim tag As String = Sender.As(MenuItem).Tag
If tag = "SelectAll" Then
SelectAll
End If
End Sub
Private Sub SelectAll
For Each rowid As Long In B4XTable1.VisibleRowIds
If rowid > 0 Then
XSelections.SelectedLines.Put(rowid, "")
End If
Next
XSelections.Refresh
End Sub