Public Overridable Sub DeleteChildCategory( _
   ByVal category As IMasterFormsCategory _
) 

Dim instance As DiskMasterFormsCategory
Dim category As IMasterFormsCategory
 
instance.DeleteChildCategory(category)

public virtual void DeleteChildCategory( 
   IMasterFormsCategory category
)

public:
virtual void DeleteChildCategory( 
   IMasterFormsCategory^ category
) 

Public Sub AutoFormsDeleteCategory(ByVal repository As DiskMasterFormsRepository, ByVal name As String)
   DeleteCategory(repository.RootCategory, name)
End Sub
Private Sub DeleteCategory(ByVal category As IMasterFormsCategory, ByVal name As String)
   If category.Name = name AndAlso Not category.Parent Is Nothing Then
      category.Parent.DeleteChildCategory(category)
   End If
   For Each childCategory As IMasterFormsCategory In category.ChildCategories
      DeleteCategory(childCategory, name)
   Next childCategory
End Sub

public void AutoFormsDeleteCategory(DiskMasterFormsRepository repository, string name)
{
   DeleteCategory(repository.RootCategory, name);
}

public void DeleteCategory(IMasterFormsCategory category, string name)
{
   if(category.Name == name && category.Parent != null)
      category.Parent.DeleteChildCategory(category);
   foreach(IMasterFormsCategory childCategory in category.ChildCategories)
   {
      DeleteCategory(childCategory, name);
   }
}