跪求VB2010编程碎砖游戏需要一个完整的文件夹，不需要很复杂。
主窗口代码:
公共类表单1
Dim x为整数= 1
Dim y As Integer = 1
整数形式的Dim线= 12
Dim行为整数= 12
Dim time _用作整数= 0
将砖块(线、行)调暗为按钮
整数形式的Dim分数= 0
dim box _ rectangle As Button = New Button
dim box _ ellipse As Button = New Button
Dim标志为整数= 0
私有子表单1 _ Load(ByVal sender As System。对象，ByVal e作为系统。EventArgs)处理MyBase。负荷
定时器1。启用=真
分数= 0
末端接头
私有子定时器1_Tick(ByVal发送方为系统。对象，ByVal e作为系统。EventArgs)处理定时器1。滴答声
文本框2。Text = Format(Now()，" yyyy/MM/dd HH:mm:ss ")
末端接头
私有子定时器2_Tick(ByVal发送器作为系统。对象，ByVal e作为系统。EventArgs)处理定时器2。滴答声
已用时间+= 1
标签7。Text = time_used
末端接头
私有子定时器3_Tick(ByVal发送器作为系统。对象，ByVal e作为系统。EventArgs)处理定时器3。滴答声
方框_椭圆。位置=新点(box_ellipse。位置。X - x，方框_椭圆。位置。Y - y)
If box_ellipse。位置。X & lt5或box_ellipse。Location . X & gt那就845？左右边界
x = -x
如果…就会结束
If box_ellipse。位置。Y & lt5然后呢？上界
y = -y
如果…就会结束
If box_ellipse。位置。Y & gt方框_矩形。Top - 10然后呢？低于节拍
If box_ellipse。Location . X & gt方框_矩形。左和框_椭圆。位置。X & lt方框_矩形。好吧
y = -y
如果…就会结束
如果…就会结束
Dim i为整数= 0
Dim j为整数= 0
对于i = 0到行- 1
对于j = 0到行- 1
If box_ellipse。Left & gt= brick(i，j)。左和框_椭圆。Left & lt= brick(i，j)。左+砖(I，j)。宽度-框_椭圆。宽度呢
If box_ellipse。Top & lt= brick(i，j)。顶+砖(I，j)。高度和砖块(I，j)。顶+砖(I，j)。高度& gt= brick(i，j)。顶部和
砖(I，j)。那时可见
砖(I，j)。可见=假
GroupBox1。Controls.Remove(brick(i，j))
y = -y
分数+= 2
Label1。文字=分数。ToString
如果…就会结束
埃尔塞夫·布里克(I，j)。Text = " "和box_ellipse。Top & lt= brick(i，j)。顶+砖(I，j)。高度-框_椭圆。高度和框_椭圆。Top & gt= brick(i，j)。那就顶吧
If box_ellipse。左+框_椭圆。宽度& gt= brick(i，j)。左和框_椭圆。Left & lt= brick(i，j)。左+砖(I，j)。宽度和
砖(I，j)。那时可见
砖(I，j)。可见=假
GroupBox1。Controls.Remove(brick(i，j))
x = -x
分数+= 2
Label1。文字=分数。ToString
如果…就会结束
如果…就会结束
然后
然后
If box_ellipse。Top & gt方框_矩形。Top-2 Then '下限
定时器2。启用=假
定时器3。启用=假
MessageBox。秀(《练了几年》《游戏结束》)
如果…就会结束
如果分数= 2 *行*列，则
定时器2。启用=假
定时器3。启用=假
MessageBox。秀("恭喜！！再来一局！!"，“游戏结束”)
如果…就会结束
末端接头
私有子窗体1 _ KeyDown(ByVal sender As System。对象，ByVal e作为系统。Windows.Forms.KeyEventArgs)处理MyBase。按键
If box_rectangle。Left & gt= GroupBox1。左和方框_矩形。Left & lt那么= 785
如果e.KeyCode = Keys。然后向左
方框_矩形。左-= 20
如果…就会结束
如果e.KeyCode = Keys。好吧
方框_矩形。左+= 20
如果…就会结束
ElseIf box_rectangle。Left & ltGroupBox1。然后向左
如果e.KeyCode = Keys。然后向左
方框_矩形。左= 0
如果…就会结束
如果e.KeyCode = Keys。好吧
方框_矩形。左+= 20
如果…就会结束
ElseIf box_rectangle。Left & gt那就785
如果e.KeyCode = Keys。然后向左
方框_矩形。左-= 20
如果…就会结束
如果e.KeyCode = Keys。好吧
方框_矩形。左= 805
如果…就会结束
如果…就会结束
末端接头
private Sub begintolstripmenuitem _ Click(ByVal sender As System。对象，ByVal e作为系统。EventArgs)句柄BeginToolStripMenuItem。点击
定时器2。启用=真
定时器2。间隔= 1000
定时器3。启用=真
定时器3。间隔= 1
调用Inite(line，row)
末端接头
private Sub brid toolstrip menuitem _ Click(ByVal sender As System。对象，ByVal e作为系统。EventArgs)处理BridToolStripMenuItem。点击
标签6。Text = "鸟"
调用Inite(8，8)
末端接头
private Sub platinum toolstrip menuitem _ Click(ByVal sender As System。对象，ByVal e作为系统。EventArgs)处理PlatinumToolStripMenuItem。点击
标签6。Text = "白金"
致电Inite(10，10)
末端接头
private Sub bone toolstrip menuitem _ Click(ByVal sender As System。对象，ByVal e作为系统。EventArgs)处理BoneToolStripMenuItem。点击
标签6。Text = "Bone "
致电Inite(12，12)
末端接头
Private Sub Inite(ByVal l为整数，ByVal r为整数)
定时器2。启用=真
定时器2。间隔= 1000
定时器3。启用=真
定时器3。间隔= 1
KeyPreview = True
line = l
row = r
如果flage = 1，则
GroupBox1。Controls.Clear()
如果…就会结束
方框_椭圆。位置=新点(分组框1。宽度/ 2框_椭圆。宽度/ 2，分组框1。高度- 40)
方框_椭圆。大小=新大小(10，10)
方框_椭圆。名称= " "
方框_椭圆。BackColor =颜色。格林（姓氏）；绿色的
GroupBox1。Controls.Add(box_ellipse)
方框_矩形。位置=新点(分组框1。宽度/ 2框_矩形。宽度/ 2，分组框1。高度- 30)
方框_矩形。大小=新大小(60，10)
方框_矩形。名称= " "
方框_矩形。BackColor =颜色。蓝色
GroupBox1。Controls.Add(box_rectangle)
将I标注为整数
Dim j为整数
对于i = 0到行- 1
对于j = 0到行- 1
brick(i，j) =新按钮
砖(I，j)。位置=新点(15 + i * (GroupBox1。宽度/线)，10 + j * 20)
砖(I，j)。大小=新大小(60，10)
砖(I，j)。Name = i.ToString + j.ToString
砖(I，j)。BackColor =颜色。红色
GroupBox1。Controls.Add(brick(i，j))
然后
然后
flage = 1
末端接头
private Sub ConcernToolStripMenuItem _ Click(ByVal sender As System。对象，ByVal e作为系统。EventArgs)处理ConcernToolStripMenuItem。点击
MessageBox。秀(“良之君4中国制造！”)
末端接头
private Sub end toolstrip menuitem _ Click(ByVal sender As System。对象，ByVal e作为系统。EventArgs)处理EndToolStripMenuItem。点击
定时器2。启用=假
定时器3。启用=假
MessageBox。秀(“游戏结束”，“常来玩~ ~”)
末端接头
private Sub quit toolstrip menuitem _ Click(ByVal sender As System。对象，ByVal e作为系统。EventArgs)处理QuitToolStripMenuItem。点击
定时器2。启用=假
定时器3。启用=假
MessageBox。秀(“游戏结束”，“常来玩~ ~”)
结束
末端接头
private Sub help toolstrip menuitem 1 _ Click(ByVal sender As System。对象，ByVal e作为系统。EventArgs)处理HelpToolStripMenuItem1。点击
MessageBox。显示("-& gt；往右，
末端接头
结束类