Public Class Form1
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：空间域名、网络空间、营销软件、网站建设、乌兰察布网站维护、网站推广。
Dim 初始化控件自动大小调整与窗口的宽度比例 As Integer
Dim 初始化控件自动大小调整与窗口的高度比例 As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
初始化控件自动大小调整与窗口的宽度比例 = Me.Width / 控件自动大小调整.Width
初始化控件自动大小调整与窗口的高度比例 = Me.Height / 控件自动大小调整.Height
显示控件的位置坐标()
End Sub
Private Sub Form1_ResizeEnd(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeEnd
' Form1_ResizeEnd 这个事件是 窗口大小变化完成后 再进行操作的
控件自动大小调整.Location = New Point(控件自动大小调整.Left, 控件自动大小调整.Top)
'设置控件的初始左位置坐标 与 上位置坐标
控件自动大小调整.Size = New Point(Int(Me.Width / 初始化控件自动大小调整与窗口的宽度比例), Int(Me.Height / 初始化控件自动大小调整与窗口的高度比例))
'更改控件的大小 按第一次窗口的比例 进行调整
显示控件的位置坐标()
End Sub
Private Sub 显示控件的位置坐标()
Label1.Text = "控件的上边距坐标： " 控件自动大小调整.Top
Label2.Text = "控件的左边距坐标： " 控件自动大小调整.Left
Label3.Text = "控件的宽度大小： " 控件自动大小调整.Width
Label4.Text = "控件的高度大小： " 控件自动大小调整.Height
End Sub
End Class
还有好多方法 慢慢研究吧兄弟 希望能帮到你
Dim g As Graphics = PictureBox1.CreateGraphics
g.TranslateTransform(2, 2) ‘定义原点坐标
g.ScaleTransform(1, -1) ’X轴不变，反转Y轴
以PictureBox1中（2,2）点为新的原点（0,0）
向右为X轴正方向 向上为Y轴正方向
两种方法，一种是固定窗口大小，一种是控件在窗口大小改变时，自动按窗口位置进行改变；
以上为个人看法，手打很辛苦，希望采纳，谢谢您的支持。
谢谢您的支持，有任何疑问欢迎您再次通过此渠道提问，让大家共同解决，共同进步！
以上回答仅为“百度规则”，没有任何违法行为，请楼主采纳，谢谢！
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 100
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static i
i = i + 1
TextBox1.Text = i
End Sub
End Class
你试试上面吗的代码，应该可以的呀。vb 2010上 0.1s可以显示 的呀。
VB.net和VB5、6的区别是相当大的。首先，\VB.net的结构更为严谨，更接近VC语言的标准;同时给予程序员的发挥空间也更大了，许多函数的调用虽然复杂了，但更容易理解;开发环境更有效率，从开发界面到编译库都有了性能的极大提高。
从VB6到VB.net的转变的确不是轻松的事情。各方面的变化总让人觉得比较别扭。有个建议:将你在VB6下的各方面的工程选几个用的函数、方法、
API比较多的，用VB.net打开进行升级，升级前后的对比一下，就很容易知道变化在哪了。另外，个人觉得最容易出问题的就是Integer和Long
的变化，需要注意.
重庆分公司
重庆分公司
