Now, I put two winsock controls in Form. Here is my Form Load code: Dim cnt, cnt1 cnt = 0 For i = 1 To List1.ListCount Load Winsock1(i) Winsock1(i).LocalPort = List1.List(cnt) Winsock1(i).Listen For j = 1 To List1.ListCount cnt1 = cnt + 1 Winsock2(j).LocalPort = List1.List(cnt1) Winsock2(j).Listen Next MsgBox List1.List(cnt) cnt = cnt + 1 Next Error is: Run-time Error "438" Object doesn't support this Property and Method. Mybe Problem is Index Value of Both winsock1 and winsock2 controls. I want to First Port Number Open and Listen by winsock1(i) then second Port Number open and Listen by Winsock2(j). Please send me Reply soon Mohan :confused: 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

:)This is my code ------------------------------------ Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 39 Then Image1.Left = Image1.Left + 50 End If If KeyCode = 37 Then Image1.Left = Image1.Left - 50 End If If KeyCode = 40 Then Image1.Top = Image1.Top + 50 End If If KeyCode = 38 Then Image1.Top = Image1.Top - 50 End If End Sub Private Sub Timer1_Timer() If Image1.Top = Shape1.Top And Image1.Left = Shape1.Left Then MsgBox "Touch" End If End Sub -------------------- My Problem is: I want to fire the events If the Image1 touch any edge of the shape1.

How to deny the change system date/time using VB Bye Mohan balal

How to deny the change system date and Time Using VB

Q1. RDO is supported only on___BIT Operating System Choices are: a)8 b)16 c)32 d)64 Q2. If the variable is created by Visual Baisc it is called Choices are: a)Local b)Implicit c)Explicit d)Private :rose: Mohan Balal