Sub Example_GetInteger()
    ' Этот пример возвращает целое число, введенное пользователем.
    
    Dim returnInt As Integer
    
    ' Возвратите значение, введенное пользователем. Подсказка обеспечена.
    returnInt = ThisDrawing.Utility.GetInteger("Введите целое число: ")
    MsgBox "Введенное целое число " & returnInt & vbCrLf & _
            "(Введите следующее значение без подсказки.)", , "GetInteger Пример"
    
    ' Возвратите значение, введенное пользователем. Никакая подсказка не обеспечена.
    returnInt = ThisDrawing.Utility.GetInteger()
    MsgBox "Введенное целое число " & returnInt, , "GetInteger Пример"
    
End Sub