Function Add(Name As String, [Value]) As Variable

Листинг 1.52.
Закрыть окно