procedure TMainForm.CreateResourceGroup(AResourceIDs: array of Integer; AGroupName: String = '');
var
datastore: TVpCustomDatastore;
grp: TVpResourceGroup;
begin
datastore := VpControlLink1.Datastore;
grp := datastore.Resources.AddResourceGroup(AResourceIDs, AGroupName);
grp.ReadOnly := true;
grp.Pattern := opDiagCross;
if datastore.Resource <> nil then
datastore.Resource.Group := grp
else
datastore.Resource.Group := nil;
datastore.RefreshEvents; // or: datastore.UpdateGroupEvents;
end;