可以建立一个方向向量用来存储气泡运动的方向（方向值每到一定时间随机产生），再定义一个表示速度的变量（如果要的是均速运动速度值就不变，否则也可以随机产生）。再用速度和方向值改变气泡位置。
在六安等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供网站设计、网站建设 网站设计制作定制网站设计,公司网站建设,企业网站建设,品牌网站制作,成都营销网站建设,成都外贸网站建设,六安网站建设费用合理。
我可以做个例子（qq:359394386）,但分不能太低。
1、首先打开vbnet程序，点击程序设置。
2、其次点击程序权限，下来找到允许运行的程序。
3、最后下拉找高dpi程序，点击运行运行即可。
新建timer控件，在timer控件的事件处理中加入移动方块的代码
然后在keydown的事件处理中使timer的enabled变为有效
在keyup的事件处理中使timer的enabled变为无效
控制timer控件的interval就可以改变方块移动的速度
调用api
在Visual Baisc.net中的声明：
Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = H2 '模拟鼠标左键按下
Public Const MOUSEEVENTF_LEFTUP = H4 ’模拟鼠标左键释放
Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模拟鼠标中间键按下
Public Const MOUSEEVENTF_MIDDLEUP = H40 '模拟鼠标中间键释放
Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模拟鼠标右键按下
Public Const MOUSEEVENTF_RIGHTUP = H10 '模拟鼠标右键释放
Public Const MOUSEEVENTF_MOVE = H1 '模拟鼠标指针移动
例：
mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0
'在（10，10）模拟鼠标左键按下