vb.net的控件数组问题

    Private Sub AxWinsock1_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles AxWinsock1.ConnectionRequest
        Dim win As New AxMSWinsockLib.AxWinsock
        Me.Controls.Add(win)
        List.Add(win)
        List.Item(max).accept(e.requestID)
        max = max + 1
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        AxWinsock1.LocalPort = 21
        AxWinsock1.Listen()
    End Sub

    Private Sub AxWinsock1_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles AxWinsock1.DataArrival   ‘这边有问题，事件响应不了，我知道AxWinsock1.DataArrival错了，但是不知道应该改成什么？？？
        MsgBox("aaa")
    End Sub