سوال مربوط به برنامه server - client

[matin_847]

با عرض سلام خدمت دوستان
من برنامه ی server - client با ویژیال بیسیک درست کردم تنها مشکل من اینه که این server تنها می تواند تقاضای یک اتصال را بپذیرد در صورتی که من می خواهم این سرور تقاضای چندین اتصال را بپذیرد من مطالب اموزشی مربوط به این موارد را خوندم ولی نتونستم کاری از پیش ببرم من کد های مربوط به سرور را در این جا قرار می دهم لطفاً یک نفر بیاد این کد ها را تغییر بده تا بتونه تقاضای چندین اتصال را بپذیره





Private Sub Form_Load()
Winsock1.LocalPort = 10500
Winsock1.Listen
End Sub

Private Sub Winsock1_Close()
Winsock1.Close
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckConnected Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim mydata As String
Winsock1.GetData mydata, vbString
Text1.Text = mydata
End Sub