BarRecord.Use
Get the UseType of this bar record
Syntax
use =
barreocrd.Use
barrecord.Use = use
Parameters
None
Returns
UseType. The current value of the Use property
Example
This example displays the Use property
Dim use As
UseType
use = barrecord.Use
Dim msg as String
Select Case use
Case utLongitudinal
msg = "Use = Longitudinal"
Case utTransverse
msg = "Use = Transverse"
Case utSeismic
msg = "Use = Seismic"
End Select
MsgBox msg
|