leWinsock Control Array

[mohan_balal]

I create control array of Winsock control, while compile it Gives an Error: This is my code in Form Load event rs.Open "select * from port_table", cn, adOpenKeyset, adLockOptimistic While Not rs.EOF List1.AddItem rs!portno rs.MoveNext Wend rs.Close Dim cnt cnt = 0 For i = 1 To List1.ListCount Load Winsock1(i) Winsock1(i).LocalPort = List1.List(cnt) Winsock1(i).Listen MsgBox List1.List(cnt) cnt = cnt + 1 Next In this line It gives Error: Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Error: Compile Error: Procedure declaration error as type doesn't match description of event or procedure having the same name ------------------------- I want to open and Listen all the Ports which are store in the (Port_table) table. Then communicate with all the Ports. Please Help me as soon as Possible. Thanks Mohan :confused: Mohan Balal

[Jose Cezar S Ynion]

Set the index property of your winsock control to 0 then modify the function delaration with this one: Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)