Resize particular node alone in the selection list

//Registering the SizeChanging event
Diagram.Model.EventSink.SizeChanging += EventSink_SizeChanging;
 
Private Sub EventSink_SizeChanging(ByVal evtArgs As SizeChangingEventArgs);
if (Diagram.View.SelectionList.Count > 1 && evtArgs.NodeAffected is Node && !(evtArgs.NodeAffected is PseudoGroup))
{
if (Diagram.View.SelectionList.IndexOf(evtArgs.NodeAffected as Node) == 0)
{
Node node = evtArgs.NodeAffected as Node;
evtArgs.Cancel = false;
NodeCollection collection = new NodeCollection();
for (var i = 0; i < Diagram.View.SelectionList.Count; i++)
{
Microsoft.VisualBasic.Collection.Add(Diagram.View.SelectionList(i));
}
Diagram.View.SelectionList.Clear();
for (var i = 0; i < Microsoft.VisualBasic.Collection.Count; i++)
{
Diagram.View.SelectionList.Add(collection(i));
}
}
else
{
evtArgs.Cancel = true;
}
}
}

'Registering the SizeChanging event
Diagram.Model.EventSink.SizeChanging += EventSink_SizeChanging
 
Private Sub EventSink_SizeChanging(ByVal evtArgs As SizeChangingEventArgs)
If Diagram.View.SelectionList.Count > 1 AndAlso TypeOf evtArgs.NodeAffected Is Node AndAlso Not(TypeOf evtArgs.NodeAffected Is PseudoGroup) Then
If Diagram.View.SelectionList.IndexOf(TryCast(evtArgs.NodeAffected, Node)) = 0 Then
Dim node As Node = TryCast(evtArgs.NodeAffected, Node)
evtArgs.Cancel = False
Dim collection As New NodeCollection()
For i = 0 To Diagram.View.SelectionList.Count - 1
Microsoft.VisualBasic.Collection.Add(Diagram.View.SelectionList(i))
Next i
Diagram.View.SelectionList.Clear()
For i = 0 To Microsoft.VisualBasic.Collection.Count - 1
Diagram.View.SelectionList.Add(collection(i))
Next i
Else
evtArgs.Cancel = True
End If
End If
}