HookData.Type
Get the HookType of this hook data
Syntax
type =
hookdata.Type
Parameters
None
Returns
HookType. The current value of the Type property
Example
This example displays the Type property
Dim type As
HookType
type = hookdata.Type
Dim msg as String
Select Case type
Case htHook90
msg = "90 deg"
Case htHook135
msg = "135 deg"
Case htHook180
msg = "180 deg"
End Select
MsgBox "This hook data is used for " + msg + " hooks"
|