Избавить от группы вместе со всеми ее элементами так же просто. Есть команда DeleteGroup в виде:

DeleteGroup(GroupName[,CommonGroupFlag])

Давайте воспользуемся ее для удаление нашей группы. Проект тот же пишем код.

Private Sub Command1_Click()

Text1.LinkTopic = "Progman|Progman"

Text1.LinkMode = 2

Text1.LinkExecute "[DeleteGroup(Test)]"

End Sub

Нашей группы Test как не бывало.