Избавить от группы вместе со всеми ее элементами так же просто. Есть команда DeleteGroup в виде:
DeleteGroup(GroupName[,CommonGroupFlag])
Давайте воспользуемся ее для удаление нашей группы. Проект тот же пишем код.
Private Sub Command1_Click() Text1.LinkTopic = "Progman|Progman" Text1.LinkMode = 2 Text1.LinkExecute "[DeleteGroup(Test)]" End Sub
Нашей группы Test как не бывало.