События у динамически создаваемых котролов

[Gatet]

Помогите, пожалуйста, разобраться с такой проблемой.
У меня в программе динамически создаются Winsock'и. Например

Код: Выделить всё

Dim sock As Winsock
Dim i As Integer
    ConnectionsNumber = ConnectionsNumber + 1
    Set sock = Controls.Add("MsWinsock.winsock", "Socket" & ConnectionsNumber)
    i = FirstPort
SetPort:
    sock.LocalPort = i
    sock.Listen
Exit Sub

Вот. Теперь мне надо, чтобы при возникновении события ConnectionRequest у этого моего сокета что-нибудь прроисходило. Как мне получить доступ к событию этого динамического сокета?

[Крост]

замени
Dim sock as Winsock
на
Dim WithEvents Sock as winsock

да, насколько я понимаю, этот код в процедуре, придёться Dim вынести "наверх"

[Gatet]

Хорошо. А куда писать код, выполняющийся при возникновении события этого винсока?

[Крост]

Открой список элементов (левый ComboBox в окне кода), там увидишь свой "sock"
Выбираешь его, и понеслось... =)

[kibernetics]

А что делать в случае, если контролов 5 (txtBox1 - txtBox5)?
Например, 5 динамических текстбоксов. Как получить событие GotFocus у 3-го текстбокса?

[alibek]

Объявляй их с WithEvents.
И да, в массиве WithEvents использовать нельзя. Делай через медиатор.