How to move a list of channels from one group to another group?

[nicklausar]

I have made a list of channels and would like to move that list from Group1 to a new group that I want to create & name Group2. I know how to move channels but not sure how to move a list?

[gsklyr]

dim lst, i
set lst = Data.CreateElementList()
Call lst.Add(Data.Root.ChannelGroups(1).Channels("Head Pressure"))
Call lst.Add(Data.Root.ChannelGroups(1).Channels("Ambient"))

For i = 1 To lst.Count Step 1
  Data.Root.ChannelGroups(2).Channels.AddChannel(lst.Item(i))
Next