Member of ChemDraw Control.Arrow
Sets and returns the width of the space between the lines of a double lined arrow.
Public Property ShaftSpacing() As Double
Increases or decreases the width of the arrow, for straight arrows, and the value is expressed in points.
Increasing shaft spacing of this arrow from 0 to 6,
will result in an arrow looking like this
|'Declares variable vArrow|
Dim vArrow As ChemDrawControl10Ctl.Arrow
'Checks that there is an arrow loaded in the variable
If Selection.Arrows.Count < 1 Then
Private Sub cmdShaftSpacing_Click()
'To read the current shaft spacing
Text1.Text = vArrow.ShaftSpacing
'Sets the width of the arrow
vArrow.ShaftSpacing = 24