VB.NET中动态创建的PictureBox（brickn）在Timer中未声明的问题

你遇到的brickn未声明错误，核心是变量作用域不匹配，具体原因有两点：

1. CreateBrick函数里的Brickn是函数内部的局部变量，函数执行结束后这个变量就会被销毁，外部的Boll_control_Tick事件完全访问不到它。而且每次调用CreateBrick都会生成一个新的局部Brickn，彼此没有关联。
2. 你在Form1_Load里调用CreateBrick创建了砖块，但没有保存这些砖块的实例引用，导致后续无法在Tick事件中定位到具体的砖块对象。

步骤1：添加全局集合存储砖块 #

在窗体类的顶部（所有方法之外）声明一个集合，用来保存所有创建的砖块：

Dim brickWidth As Integer = 0
' 新增：存储所有砖块的集合
Private bricks As New List(Of PictureBox)()

步骤2：修改创建砖块的逻辑，将实例加入集合 #

修改CreateBrick函数，把生成的砖块添加到集合中：

Public Function CreateBrick() As PictureBox
    Dim Brickn As New PictureBox
    
    Me.Controls.Add(Brickn)
    Brickn.Size = Brick.Size
    Brickn.Left = BrickWidth  
    Brickn.Top = 0
    Brickn.Image = Brick.Image
    Brickn.SizeMode = PictureBoxSizeMode.StretchImage
    Brickn.BackColor = Color.Black

    ' 新增：将砖块加入全局集合
    bricks.Add(Brickn)

    Return Brickn
End Function

步骤3：修改Tick事件，遍历集合检测碰撞 #

在Boll_control_Tick里遍历砖块集合，检查每个砖块和小球的碰撞，注意要反向遍历（避免移除元素时打乱集合索引）：

Private Sub Boll_control_Tick(sender As Object, e As EventArgs) Handles Boll_control.Tick
    ' 反向遍历集合，防止移除元素导致遍历异常
    For i As Integer = bricks.Count - 1 To 0 Step -1
        Dim currentBrick = bricks(i)
        If Ball.Bounds.IntersectsWith(currentBrick.Bounds) Then
            ' 从控件集合和全局集合中都移除
            Me.Controls.Remove(currentBrick)
            bricks.RemoveAt(i)
            ' 可在此添加小球反弹逻辑（按需调整）
            Exit For ' 一次只处理一个碰撞，按需修改
        End If
    Next
End Sub

内容的提问来源于stack exchange，提问作者Mr. kismat