Event: EventClpCopy for XTable

Sub XTable1_EventValGet(ByRef This, Row, Col, ByRef Cell, IsInputCell)
  If Row = 0 Then
    If Col <> 0 Then
      Cell.Text = Data.Root.ActiveChannelGroup.Channels(Col).Name
    Else
      Cell.Text = ""
    End If
  Else
    Select Case Col
    Case 0
      Cell.Text = Row
    Case Else
      Cell.Text = Str(Data.Root.ActiveChannelGroup.Channels(Col).Values(Row))
    End Select 
  End If
End Sub

Sub XTable1_EventClpCopy(ByRef This)
  Dim sCellValue
  sCellValue = Data.Root.ActiveChannelGroup.Channels.Values(This.ActiveCellRow)
  Call TextToClipboard(sCellValue)
End Sub

Sub XTable1_EventClpPaste(ByRef This)
  Dim oMyChannel
  Set oMyChannel = Data.Root.ActiveChannelGroup.Channels(This.ActiveCellCol)
  If oMyChannel.DataType = DataTypeChnString Then
    oMyChannel.Values(This.ActiveCellRow) = TextFromClipBoard
  ElseIf Isnumeric(TextFromClipBoard) Then
    oMyChannel.Values(This.ActiveCellRow) = CDbl(TextFromClipBoard)
  End If
  Call This.RefreshRows(This.ActiveCellRow,This.ActiveCellRow)
End Sub