Load a form-based Winsocket Array from a Class

Hi Guys,

I have a 2 Winsock controls on a form, one called WAN (which is a control array) and one called Listener. I also have a Class Module in this application, which has the following code...

Code:

---

Dim Sender As Object
Dim WithEvents ClientSocket As Winsock

Public Sub Identify(Index As Integer)

Set ClientSocket = Form1.Listener

End Sub

---

The above code works fine, and the class can Set itself so that it mirrors the Listener controll on the main form. However, I want to make the following code work...

Code:

---

Dim Sender As Object
Dim WithEvents ClientSocket As Winsock

Public Sub Identify(Index As Integer)

Set ClientSocket = Form1.WAN(Index)

End Sub

---

As you can see, I am trying to make the code Mirror itself with one of the WAN sockets from the main form. However, I get the following error:
Object of Class does not support the set of events.