Contains the maximum allowed value for this object (the EnableLimits property must be equal to True). Example:

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