Module Test
 
Public txtBox() As TextBox
 
Public Sub Test()
 
    Dim x as double
    Dim PosX as double = 10
    Dim PosY as double = 10
 
    For x = 0 to 10
        ReDim Preserve txtBox(x)
        txtBox(x) = New TextBox
 
        txtBox(x).Left = PosX
        txtBox(x).Top = PosY
        txtBox(x).Name = x
 
        DrawTo.Controls.Add(txtBox(x))
        AddHandler txtBox(x).Click, AddressOf AnotherTest
 
Next x
 
x.Dispose()
PosX.Dispose()
PosY.Dispose()
 
End Sub
 
Public Sub AnotherTest(ByVal sender As Object, ByVal e As System.EventArgs)
        If TypeOf sender Is TextBox Then
            ' Den Benutzer darüber informieren, auf welche Schaltfläche 
            ' geklickt wurde.
            MsgBox(CType(sender, TextBox).Name)
            ' Ich hätte aber lieber :
            MsgBox(CType(sender, TextBox).index)
        End If
End Sub
 
End Module