Code

diagram.deleteobject(selectednode) 

Code

diagram.nodes.clearall() 

Code

 If e.KeyCode <> Keys.Delete Then Exit Sub
	  If _parentList.IsLocked Then
		_delete = False
		Exit Sub
	  End If

	  'work around because the delete method only deletes the active box
	  Dim  _i As Integer = MsgBox("Are you sure you want to delete the selected item(s)?", MsgBoxStyle.YesNo, "Delete Component(s)")
	  If _i = MsgBoxResult.Yes Then
		_delete = True
	  ElseIf _i = MsgBoxResult.No Then
		_delete = False
		Exit Sub
	  End If

	  'if component is copied then we wait to delete these last
	  Dim _toDelete As New Generic.List(Of NodeBase)
	  Try
		While (fcMain.Selection.Objects.Count > 0)
		    Dim _o As Object = fcMain.Selection.Objects(0)
		    If _o.GetType.Name = "Box" Then
			  'attempt to delete the item from the collection
			  Dim _b As Box = DirectCast(_o, Box)
			  If Not _parentList.Nodes.Contains(_b) Then
				fcMain.Selection.RemoveObject(fcMain.Selection.Objects(0))
				_delete = False
			  Else
				Dim nb As NodeBase = _parentList.Nodes.Item(_b)
				If nb.IsCopied Then
				    'Add it to the toDelete collection and remove it from the selection collection
				    _toDelete.Add(nb)
				    fcMain.Selection.RemoveObject(TryCast(_b, ChartObject))
				Else
				    'Component was not copied and can be deleted
				    fcMain.DeleteObject(TryCast(_o, ChartObject))
				    _delete = True
				End If
			  End If
		    Else
			  fcMain.DeleteObject(fcMain.Selection.Objects(0))
		    End If
		End While

		'Delete all Copied Components last
		Do Until _toDelete.Count = 0
		    'Remove item from parent container
		    _parentList.Nodes.Remove(_toDelete.Item(0))
		    'Remove image box item from flowchart
		    fcMain.DeleteObject(TryCast(_toDelete.Item(0).Box, ChartObject))
		    'Remove label box item from flowchart
		    fcMain.DeleteObject(TryCast(_toDelete.Item(0).Label, ChartObject))

		    'remove item from toDelete collection
		    _toDelete.RemoveAt(0)
		Loop

	  Catch ex As Exception
		MessageBox.Show(ex.Message, "Error deleting object", MessageBoxButtons.OK, MessageBoxIcon.Error)
		My.Application.Log.WriteException(ex)
	  End Try