[VB6] Multiple UDP Connections

[Hellomy]

I'm using this UDP Server & Client Code. Any way to make it accept multiple connections at once?

CLIENT:

Option Explicit

Private Sub cmdGO_Click()
    txtHost.Text = Trim$(txtHost.Text)
    txtPort.Text = Trim$(txtPort.Text)
    
    If Len(txtHost.Text) > 0 And Len(txtPort.Text) > 0 And _
        IsNumeric(txtPort.Text) And Len(txtData.Text) > 0 Then
        
        sckClient.RemoteHost = txtHost.Text
        sckClient.RemotePort = CInt(txtPort.Text)
        sckClient.Bind 1024
        
        sckClient.SendData txtData.Text
    End If
    
End Sub

SERVER:

Option Explicit

Private Sub Form_Load()
    sckServer.Protocol = sckUDPProtocol
    sckServer.LocalPort = 3794
    sckServer.Bind 3794
    Me.Caption = "Server - OPEN"
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    sckServer.Close
End Sub

Private Sub sckServer_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    
    sckServer.GetData strData, vbString, bytesTotal
    
    Debug.Print strData
    
    Me.Caption = "DATA RECEIVED"
End Sub