vb能否把winsock控件封装到dll中

vb将winsock控件封装到dll问题 有什么好的思路？ 如果用Socket API呢？


例如，像下面这样封装Winsock控件，行的通？
创建ActiveX dll，添加窗体frmClient，加入WinSock控件wskClient。
类代码：
Option Explicit

Private objFrm As frmClient
Private WithEvents wskClient As Winsock

Private Sub Class_Initialize()

Set objFrm = New frmClient
Set wskClient = objFrm.wskClient

End Sub

Private Sub Class_Terminate()
Unload objFrm

'wskClient.Close

Set wskClient = Nothing
Set objFrm = Nothing
End Sub


Private Sub wskClient_Close()
On Error GoTo ErrDes
If wskClient.State Then
wskClient.Close
End If

Exit Sub
ErrDes:
MsgBox "关闭连接发生错误：" & Err.Description & "。", vbExclamation, gMsgTitle
End Sub

Private Sub wskClient_Connect()

End Sub


Private Sub wskClient_DataArrival(ByVal bytesTotal As Long)
On Error GoTo ErrDes

Dim strArrival As String
Dim strCommand As String
Dim g_strData As String

wskClient.GetData g_strData

Debug.Print g_strData

ErrDes:
MsgBox Err.Description, vbInformation, "错误提示"

End Sub



Public Function DataSend(