[VB2010] Assegnazione textbox generica

[Fustrus]

Originariamente inviato da MItaly

Scusami se ti disturbo ancora, ma ho riscontrato un altro problema...

    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

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

[cassano]

Attenzione che "For i As Integer = 0 To 50" sono 51 elementi.

[Fustrus]

Originariamente inviato da cassano
Attenzione che "For i As Integer = 0 To 50" sono 51 elementi.

Grazie per l'avvertimento, fortunatamente ho già risolto creando una griglia con il ciclo For, ora però è sorto quel problema con il Ctype...