Как связать класс и мой Winsock?

[Don Leno]

Пишу простенький класс для себя. На форме есть Winsock. Winsock должен взаимодействовать с классом. Проблема что он пишется что то вроде обертки(не знаю правильно ли выразил?) для него. То есть:

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

'В класс приходится передавать Winsock
MyClass.Host wsk, "vbstreets.ru" ' Это для примера
MyClass.port wsk, 3243
MyClass.Connect wsk


Как сделать в классе изначально привязку моего винсока, чтобы его параметром постоянно не передавать? Есть мысль сделать вроде процедуры Инициализации:

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

MyClass.Init wsk' Здесь единожды передаем Winsock
'А дальше просто работаем уже с сабами и свойствами класса
MyClass.Host "vbstreets.ru"
MyClass.port 3232
MyClass.Connect


Я не знаю как это кодом реализовать...

[Don Leno]

Кажется нашел правильное решение, пните меня если я не прав))

В классе пишем:

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

Private wsk as Winsock

Public Sub Init (winsk as Winsock)
   Set wsk=winsk
end Sub

Public Sub Connect()
    wsk.connect Host, Port
End Sub


А после используем в своем коде так:

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

MyClass.Init MyWinsock
MyClass.Host="vbstreets.ru"
MyClass.Port=3232
MyClass.Connect


Вроде так. Нет ли ошибок?