The sub below set the style for all the shapes on the NDocument. How do I set the style for the selected Shape only?

Private Sub SetStyleForLine()

If bInit = True Then Exit Sub

For Each oNode As NShape In View.Selection.Nodes

Dim oStrokeStyle As NStrokeStyle

If oNode.Style Is Nothing AndAlso oNode.Style.StrokeStyle Is Nothing Then

Continue For

Else

End If

oStrokeStyle.Width = New NLength(CSng(NewLineWidth.Value))

oNode.Style.StrokeStyle = oStrokeStyle

Next

End Sub

Thanks Thunis