13518219792
新建窗体，把maximizebox属性和MinimizeBox 属性设为false，再添加一个Label1放置文字一个Picturebox1放图片。
10多年的佳木斯网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。营销型网站的优势是能够根据用户设备显示端的尺寸不同，自动调整佳木斯建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联建站从事“佳木斯网站设计”,“佳木斯网站推广”以来，每个客户项目都认真落实执行。
在窗体的load事件中：
Private Sub Form1_Load() Handles Me.Load
Text="我的VB.NET程序"
PuctureBox1.Image=Image.FromFile(图片路径如e:\pic.jpg)
End Sub
窗体Click事件：
Private Sub Form1_Click() Handles Me.Click
Text="单击窗体"
Label1.Text="欢迎使用VB.NET"
End Sub
窗体DoubleClick事件
Private Sub Form1_DoubleClick() Handles Me.DoubleClick
Text="双击窗体"
Label1.Text = "谢谢使用！"
End Sub
这个还是要放在窗体中，因为是窗体发生的事件，我猜你觉得乱的原因是你每个控件都写好几个鼠标进入、离开之类的事件？其实很多类似的控件，可以合并成一个事件，只要handle后面带上多个控件名称即可。
简单啊
第一个问题
在鼠标的 move事件里面 得到鼠标的坐标点，然后更改label的，left 和top属性。具体的值你自己去算。
第二个问题
其实跟地一次差不多，只不过过加个标记，判断鼠标是否在按钮上进行了点击操作，鼠标按下时变成TRUE 然后也是在鼠标MOVE的时候，更改按钮的坐标点。当鼠标弹起的时候将这个标记置换成FALSE
回答完毕
onMouseOver="javascript:showLayer(idname1)" onMouseOut="idname1.style.visibility='hidden'"
DIV id="idname2" style="background-color:yellow;TOP:0px; VISIBILITY: hidden; OVERFLOW: visible; POSITION: absolute;PADDING-TOP: 3px;margin-bottom:9px"
table width="300" class="t1"
tr td width="20"/td
td width="160" align="center"b即时提示：所有知识/b/td
td width="20"/td /tr tr td/td
td
此处显示系统中所有的知识列表。任何人提交的知识都可以在这里显示。系统默认的显示方式是按照时间倒排显示。您可以选择按提交人，知识类型进行排序。
br/
还可以通过输入检索词来查询知识。方法是在输入框中输入内容，然后按检索。
br/br/bfont color="blue"特别提示：因为知识管理系统是不属于特定项目的，因此无论登陆任何项目，按所有知识所得到的结果都是一样的。/font/b
/td
td/td /tr tr td/td td/td td/td /tr /table /DIV
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
Dim postion1 As New Point
mouse_event(H1 Or H8000, postion1.X * 65535 / 1366, postion1.Y * 65535 / 768, 0, 0)
'按绝对位置移动鼠标
'在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元，
'当前所用显示屏分辨率为1366*768
'所以要进行如上转换
mouse_event(H2, 0, 0, 0, 0) '鼠标左键按下
mouse_event(H4, 0, 0, 0, 0) '鼠标左键弹起
msdn上有 mouse_event 的详解，大致使用如上
