VB “改变大小”程序的设计

请新建一个工程，完成“改变大小”程序的设计。具体要求如下：
（1）窗体的标题为“改变大小”，固定边框。
（2）窗体上引入一个红色的圆形形状控件（Shape1），圆的直径为3400Twips。
（3）窗体的下面有一个水平滚动条Hscroll1，将它的最大值设置为与圆的直径相同，初始值为最大值，SmallChange和LargeChange均为100Twips。
（4）水平滚动条的下面有两个标签控件，Label1的标题为“圆直径为：”，Label2的标题为“3400”，两个标签均为固定边框。
（5）改变滚动条的值可以控制圆形的直径，同时在标签Label2中动态显示圆形的直径。
（6）要求圆形直径在变化时要保持圆心位置不变。

你先在属性窗口设置Form的BorderStyle为1，然后按照要求，把控件放好，其他就用程序来实现

Private Sub Form_Load()
Me.Caption = "改变大小"
Shape1.Shape = 3
Shape1.BorderColor = vbRed
Shape1.Width = 3400
Shape1.Height = 3400
HScroll1.Min = 0
HScroll1.Max = 3400
HScroll1.SmallChange = 100
HScroll1.LargeChange = 100
HScroll1.Value = 3400
Label1.Caption = "圆直径为："
Label1.BorderStyle = 1
Label2.Caption = 3400
Label2.BorderStyle = 1
End Sub

Private Sub HScroll1_Change()
Call HScroll1_Scroll
End Sub

Private Sub HScroll1_Scroll()
Shape1.Width = HScroll1.Value
Shape1.Height = HScroll1.Value
Shape1.Move (Me.ScaleWidth - Shape1.Width) / 2, (HScroll1.Top - Shape1.Height) / 2
Label2.Caption = HScroll1.Value
End Sub

这么简单的问题还不自己做？

这个对非专业IT是非常难的，再说这仅仅用文字表达不出来

Option Explicit

Dim ShapeTop As Long
Dim ShapeLeft As Long
Dim TempLength As Long