ImportsDevExpress.Web.ASPxTreeListProtectedSub Page_Load(ByVal sender AsObject, ByVal e As EventArgs)
ASPxTreeList1.SettingsEditing.AllowRecursiveDelete = TrueEndSubProtectedSub ASPxTreeList1_CustomCallback(ByVal sender AsObject, _
ByVal e As TreeListCustomCallbackEventArgs)
ForEach node As TreeListNode In ASPxTreeList1.GetSelectedNodes()
ASPxTreeList1.DeleteNode(node.Key)
Next node
ASPxTreeList1.DataBind()
EndSub