BarRecord.Substructure
Set/Get the Substructure property
Syntax
bSubstructure =
barrecord.Substructure
barrecord.Substructure = bSubstructure
Parameters
None
Returns
Boolean. Returns the current value of the Substructure
property
Example
This example accesses the Substructure property and displays
it current value
Dim
bSubstructure as Boolean
bSubstructure = barrecord.Substructure
If bSubstructure = True Then
MsgBox "Bars are Substructure bars"
Else
MsgBox "Bars are not Substructure bars"
End If
|