Lập trinh Excel với Winsock

[hoangnc]

Nhờ anh/chị giúp lỗi này :

sau khi gọi hàm Call conn(WINSOCK1) báo lỗi : " Byref argument type mismatch "

Sub timtt()
Call conn(WINSOCK1)
MsgBox "day"
End Sub
Private Sub conn(WINSOCK1 As Winsock)


WINSOCK1.Protocol = 0
WINSOCK1.LocalHostName = "localhost"
WINSOCK1.LocalPort = 9003
WINSOCK1.SendData "Hello World!"
End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)


Dim szData As String
WINSOCK1.GetData szData
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
CancelDisplay = True
MsgBox "Error"
End Sub