ActivX - помощ

Генерирах си Аctiv X контрол с VB6. Само 4е няма никакви методи и свойств чрез които да комуникирам с него.
Знае ли някой как мога да създам методи и свойства на този контрол във VB6.

Обърни внимание на разликата между "Public" и "Private".

Ето пример за свойство на OCX контрол например:

'~~~Get the UserName

Public Property Get UserName() As String

    Dim llReturn As Long

    Dim lsUserName As String

    Dim lsBuffer As String

    

    lsUserName = ""

    lsBuffer = Space$(255)

    llReturn = GetUserName(lsBuffer, 255)

    

    If llReturn Then

       lsUserName = Left$(lsBuffer, InStr(lsBuffer, Chr(0)) - 1)

    End If

    

    UserName = lsUserName

End Property

Това свойство позволява да се "чете" името на логнатия потребител. "Property Get" и "Property Get". Потърси малко инфо, и за по-добре мога да ти препоръчам една-две книги.

Всъщност имах добра идея за проекта "Нашите книги", но нещо поради липса на привърженици всичко затихна. Ако някой мисли, че все пак идеята е добра - моля, нека се включи с поне една книга.