Private Shared Sub DeleteCustomCodeGroups()
    ' Delete the custom code groups that were created.
    Dim policyEnumerator As IEnumerator = SecurityManager.PolicyHierarchy()
    While policyEnumerator.MoveNext()
        Dim machineLevel As PolicyLevel = CType(policyEnumerator.Current, PolicyLevel)
        Dim childCodeGroups As IList = machineLevel.RootCodeGroup.Children
        Dim childGroups As IEnumerator = childCodeGroups.GetEnumerator()
        While childGroups.MoveNext()
            Dim thisCodeGroup As CodeGroup = CType(childGroups.Current, CodeGroup)
            If thisCodeGroup.Name = "MyCompanyCodeGroup" Then
                machineLevel.RootCodeGroup.RemoveChild(thisCodeGroup)
            End If
        End While
    End While
End Sub 'DeleteCustomCodeGroups

private static void DeleteCustomCodeGroups()
{
    // Delete the custom code groups that were created.
    IEnumerator policyEnumerator = SecurityManager.PolicyHierarchy();
    while(policyEnumerator.MoveNext())
    {
        PolicyLevel machineLevel = (PolicyLevel)policyEnumerator.Current;
        IList childCodeGroups = machineLevel.RootCodeGroup.Children;
        IEnumerator childGroups = childCodeGroups.GetEnumerator();
        while(childGroups.MoveNext())
        {
            CodeGroup thisCodeGroup = (CodeGroup)childGroups.Current;
            if( thisCodeGroup.Name == "MyCompanyCodeGroup")
            {
                machineLevel.RootCodeGroup.RemoveChild(thisCodeGroup);
            }
        }
    }
}

void DeleteCustomCodeGroups()
{
   // Delete the custom code groups that were created.
   IEnumerator^ policyEnumerator = SecurityManager::PolicyHierarchy();
   while ( policyEnumerator->MoveNext() )
   {
      PolicyLevel^ machineLevel = dynamic_cast<PolicyLevel^>(policyEnumerator->Current);
      IList^ childCodeGroups = machineLevel->RootCodeGroup->Children;
      IEnumerator^ childGroups = childCodeGroups->GetEnumerator();
      while ( childGroups->MoveNext() )
      {
         CodeGroup^ thisCodeGroup = dynamic_cast<CodeGroup^>(childGroups->Current);
         if ( thisCodeGroup->Name->Equals( "MyCompanyCodeGroup" ) )
         {
            machineLevel->RootCodeGroup->RemoveChild( thisCodeGroup );
         }
      }
   }
}