VB是一款算是相当基础的编程软件，但是即使如此依然可以制作一些比较厉害的东西，今天给大家带来的就是在VB中制作会弹的小球的做法。（在文末有具体代码）
工具/原料
VB程序
方法/步骤
1、首先我们打开VB程序，在程序中拖出一个比较大的框。
2、然后我们在shape工具里面画出一个矩形，在右侧属性面板里的shape属性改为3-Circle这样出来的就是一个圆。然后将fillstyle改为0-solid，在fillcolor属性中将圆内部填充颜色改为你喜欢的颜色。
3、然后在面板中放置4个timer控件，从左到右依次为timer1timer2隋茚粟胫timer3timer4，其中timer1主要用来总控制其靓脘堤窳他三个timer控件，timer2主要用来处理当小球低于最低水平线时候的情况。timer3主要是控制小球正常的运动以及控制timer4的开关。timer4主要处理当小球到最右边时的情况。
4、然后开始编程。先双击面板，编写初始函数，也就是初始设定，包括小球的位置大小以及timer控件的属性等等。
5、timer1主要控制各开关的开关，当然也包含几条控制小球运动的代码，主要是为了让思路更加清晰而做。enabled相当于开关，其值为true时代表可以使用，而为false时代表不可使用。
6、timer2代码。其中me.表示的是整个form的属性，也就是说用小球运动的属性值与me.进行比较限制了小球运动的位置，从而让小球在到达边缘时转换方向。
7、timer3是比较复杂的一个控件，因为它不赞迢鹣嘞仅仅承担了控制小球运动的任务，同时承担了控制timer2和time鸡堕樱陨r4的作用，当然有几行代码比如一些无关紧要的enabled=true/false可以不写，但为了整齐还是写上最好，同时也方便后续的修改。
8、timer4相对就没有那么复杂，同样，一些无关紧要的可以不写。小Tip：如果发现程序运行起来有问题，那么就按照自己写的代码从脑子里走一遍，程序运行到哪里就看哪里的代码，这样很容易就可以找到自己错在哪里。
9、这样小球的程序就做好了。看上去挺容易，其实对于初学者来说还是一个相当大的挑战，关键是思路要清晰。代码在下面。
10、PrivateSubForm_Load()Timer1.Ena水瑞侮瑜bled=TrueTimer2.呶蓟鹭毵Enabled=FalseTimer3.Enabled=FalseTimer4.Enabled=FalseTimer1.Interval=200Timer2.Interval=200Timer3.Interval=200Timer4.Interval=200Shape1.Width=500Shape1.Top=500Shape1.Left=500EndSubPrivateSubTimer1_Timer()IfShape1.Top+Shape1.Width>Me.HeightThenTimer2.Enabled=TrueTimer3.Enabled=FalseTimer4.Enabled=FalseElseIfShape1.Top>=0AndShape1.Width+Shape1.Left<=Me.LeftAndShape1.Top+Shape1.Width<=Me.HeightThenTimer2.Enabled=FalseTimer3.Enabled=TrueTimer4.Enabled=FalseElseIfShape1.Top<Me.HeightThenShape1.Left=Shape1.Left-900Shape1.Top=Shape1.Top+600Timer2.Enabled=FalseTimer3.Enabled=FalseTimer4.Enabled=FalseEndIfEndSubPrivateSubTimer2_Timer()IfShape1.Left+Shape1.Width<=Me.WidthThenShape1.Left=Shape1.Left+700Shape1.Top=Shape1.Top-250Timer1.Enabled=FalseTimer3.Enabled=FalseTimer4.Enabled=FalseElseIfShape1.Left>Me.WidthThenTimer2.Enabled=FalseTimer4.Enabled=TrueEndIfEndSubPrivateSubTimer3_Timer()IfShape1.Top+Shape1.Width<Me.HeightAndShape1.Width+Shape1.Left<Me.WidthAndShape1.Top>0ThenShape1.Left=Shape1.Left+400Shape1.Top=Shape1.Top+150Timer1.Enabled=FalseTimer2.Enabled=FalseTimer4.Enabled=FalseElseIfShape1.Top+Shape1.Width>=Me.HeightThenTimer1.Enabled=FalseTimer3.Enabled=FalseTimer4.Enabled=TrueElseIfShape1.Left+Shape1.Width>Me.WidthThenTimer1.Enabled=FalseTimer3.Enabled=FalseTimer4.Enabled=TrueElseIfShape1.Top<=0ThenTimer1.Enabled=TrueTimer2.Enabled=FalseTimer3.Enabled=FalseTimer4.Enabled=FalseEndIfEndSubPrivateSubTimer4_Timer()IfShape1.Top>0AndShape1.Left>0ThenShape1.Top=Shape1.Top-300Shape1.Left=Shape1.Left-200ElseIfShape1.Top<0ThenTimer1.Enabled=TrueTimer2.Enabled=FalseTimer3.Enabled=FalseTimer4.Enabled=FalseElseIfShape1.Left<=0ThenTimer1.Enabled=FalseTimer2.Enabled=FalseTimer3.Enabled=TrueTimer4.Enabled=FalseEndIfEndSub