یه مشکل با کلاس و addHandler

[_behnam_]

سلام دوستان
اومدم از یه کلاس یه آرایه تعریف کردم
اما وقتی که رویداد هارو با AddHandler به تابع رویداد میفرستم Sender as Object فرستاده نمیشه
کد زیر

  Dim X(1000) As clsTCPSocket

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        X(1) = New clsTCPSocket

        AddHandler X(1).DataArrival, AddressOf DataArryval

    End Sub



    Private Sub DataArryval(ByVal pBytes As Byte(), ByVal pLength As Long)

        ' 



    End Sub

من چطور میتونم اندیس آرایه رو بدست بیارم :-؟