HookData.Use
Get the UseType of this hook data
Syntax
use =
hookdata.Use
Parameters
None
Returns
UseType. The current value of the Use property
Example
This example displays the Use property
Dim use As
UseType
use = hookdata.Use
Dim msg as String
Select Case use
Case utLongitudinal
msg = "Longitudinal"
Case utTransverse
msg = "Transverse"
Case utSeismic
msg = "Seismic"
End Select
MsgBox "This hook data is used for " + msg + " bars"
|