Attribute VB_Name = "Объявления"
' Эту строку удалять нельзя. Она нужна для подключения библиотеки
' cw3125.dll, неявно вызываемой из моей DLL.
Public Declare Function Заглушка Lib "cw3215" () As Integer

' Описание единственной, нужной нам функций.
Public Declare Function Кодировать Lib "CodeV1" Alias "@CODE$QPXCT1" (ByVal ИмяФайла As String, ByVal Пароль As String) As Long

' Глобальные переменные
Public Обработано As Long       ' Счётчик обработанных байтов
Public ВремяНачала As Single

