Contains the maximum allowed value for this object (the EnableLimits property must be equal to True). The next script contains an example of using this property.

Sub CommandButton3_Click()
  Screen.Item("Text1").MaxLimit = Screen.Item("Text6").Value
End Sub