zOOM TO SELECTION FOR TO THE NODES SELECTION - FEATURE REQUEST

Sub Zoom2FitNodes()
Dim x#, y#, w#, h#, u%
If ActiveShape Is Nothing Then Exit Sub
u = ActiveDocument.Unit: ActiveDocument.Unit = cdrMillimeter
With ActiveShape
If .Type <> cdrCurveShape Then Exit Sub
If .Curve.Selection.Count > 1 Then
.Curve.Selection.GetBoundingBox x, y, w, h
ActiveWindow.ActiveView.ToFitArea x - 2, y - 2, x + w + 2, y + h + 2
End If
End With
ActiveDocument.Unit = u
End Sub

P.S. dont know what tag use, #code, /code or something like it...