ResultCode =  1 
 ' а что-нибудь в таком духе: 
ResultCode = rcConnectionFault

Public Enum rcResultCodes
   rcConnectionFault= 1 
   rcConnectionOK= 2 
   rcConnection ... = n
End Enum

Dim rcC as rcResulCodes

Enum eData    mAdd = 1    mDel = 2    mEdt = 3End EnumSub Test()    Dim inp As eData    Dim out As Byte    inp = mAdd    out = inpEnd Sub

Enum eData
    mAdd =  1 
    mDel =  2 
    mEdt =  3 
End Enum

Sub Test()
    Dim inp As eData

    inp= [b]777 [/b]

End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы