[VB2010] CType su array di PictureBox

[Fustrus]

Vorrei tramite il Ctype il nome della PictureBox cliccata come risposta della MsgBox, invece niente... Come mai? Dove sto sbagliando?

    Dim Giocatore As PictureBox()
    Dim Avversario As PictureBox()
    Dim I As Integer
    Dim posizione As Point
    Dim primo, secondo As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        primo = 130
        secondo = 345
        Giocatore = New PictureBox(100) {}
        For I As Integer = 1 To 100
            Dim P As New PictureBox
            posizione = New Point(primo, secondo)
            P.Size = New Size(30, 30)
            P.Location = posizione
            P.BorderStyle = BorderStyle.FixedSingle
            Giocatore(I) = P
            AddHandler Giocatore(I).Click, AddressOf Me.Giocatore_Click
            Me.Controls.Add(Giocatore(I))
            Me.Controls.Add(P)
            primo = primo + 30
            If primo >= 430 Then
                secondo = secondo + 30
                primo = 130
            End If
        Next

End Sub

    Private Sub Giocatore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox("Hai cliccato su: " & CType(sender, Control).Name)
    End Sub