Limit

Remarks:

The collection Variables contains all defined limits of a variable.

Properties:

Methods:

Samples:

Public Sub zenOn_Limit()
	Dim zVAR As Variable
	Dim zLimit As Limit
	Dim vDynProps As Variant
	Dim strDynProp As String

	'set variable object to get the limits collection
	Set zVAR = thisProject.Variables.Item("WIZ_VAR_10")
	'set limit object
	Set zLimit = zVAR.Limits.Item(0)

	'read all Default Properties from a limit
	With zLimit
		'generate some output information
		Debug.Print "Text:		" & .Text
		Debug.Print "Value:	 " & .Value
		Debug.Print "AlarmClass:  " & .AlarmClass
		Debug.Print "AlarmGroup:  " & .AlarmGroup
	End With

	'read all DynProperties from a limit
	vDynProps = zLimit.DynPropertiesEnum("")
	For Each strItem In vDynProps
		strDynProp = Mid(strItem, 1, InStr(1, strItem, ",") - 1)
		Debug.Print "--------------------"
		Debug.Print strItem
		Debug.Print zLimit.DynProperties(strDynProp)
	Next
End Sub