反思：简单或复杂、平凡或高深？

所以,这段代码哲学在哪里.

尝试运行了一下代码……
简单总结一下我认为的程序“亮点”吧：
用一个图片框代替了一堆按钮（而不是楼主所说的滚动条，毕竟看到这个类似按钮的界面不可能往滚动条上想）
左键和右键点击同一区域实现相反功能（因此这一个“替代按钮”等于两个按钮，不过这似乎与普通***作习惯不太一致……）
用Timer函数代替了Timer控件（抱歉我只能看到这样的层次，我不认为这是什么“MouseDown和MouseUp之间的通信”）
用GoTo语句实现了一个循环
这些“亮点”，简单还是复杂？平凡还是高深？我不想多作评论

嗯，能相互讨论是件好事
关于“通信”这个概念，可能我之前的理解有点不同，后来想了想，全局变量确实可以说是用来在各个过程之间通信的，那么你说的通信也没什么问题，但这（全局变量）就不是什么高深的东西了
你说的“连续赋值”是指功能上，我单纯看的视觉效果，你的界面显然更像按钮
鼠标靠左和靠右，这个其实也属于区域的划分了，所以我并没有单独提出
如果用定时器控件来实现，其实也简单，把主要代码都写在定时器中，MouseDown打开定时器，MouseUp关闭，就可以了；当然，具体实现哪个功能，也有必要用全局变量在MouseDown和定时器之间通信（基于这一点，我才改变了之前对“通信”的看法）
另外，通过延时循环改变时序，使得某个过程在另一个过程之前开始，并且在它之后结束，这一点我认为确实是一件很有趣的事情

嘛……你觉得你的“时间循环代码”写得很好，但是我却认为用了GoTo是这个代码最大的败笔
其实只要改成这样，完全没必要用GoTo嘛：
Do While uu '“等待鼠标弹起”改为外层循环的条件
'主要代码
'以下为延时循环
Do Until Abs(Timer - tt) > 0.22
DoEvents
Loop
Loop

这段代码的实现方式真的非常基础,写的也混乱,你所谓的亮点在我看到许多都是糟粕.
用代码实现一个功能很简单,思维方式才是最重要的.它决定代码的 效率 维护性 复用性 扩展性.
你还在入门阶段,别坐井观天.

楼主，我觉得你有必要从自身找一下原因，为什么这里的人都在针对你
这个不多说，我把你的代码改成了使用定时器控件实现“连续赋值”，主要的改动有两点：
1.定义了一个新的Shape型变量（名称为Shape1），把你用代码添加的图形控件赋值给它，代码中用到Control(1)的地方都改成了Shape1
2.把你用来表示鼠标按钮状态的通信变量uu改成了Integer型，用来表示功能编号以及左右键、粗调或细调的选择——是的，一个变量就够了
另外，还修了一点小bug，就是你重新输出图形宽度和高度数值时定位出错了，给你进行了更正
代码如下：（定时器控件需要设置属性，Enabled设为False，Interval设为220，这些没有在代码中体现）
Option Explicit
Private Shape1 As Shape
Private uu As Integer
Private Sub Form_Load()
Me.ScaleMode = 3: Picture1.ScaleMode = 3 '像素单位
Me.Caption = "椭圆形状与位置的调整"
Picture1.AutoRedraw = True '避免闪烁
Set Shape1 = Controls.Add("Vb.Shape", "Sha1", Me) '添加椭圆形
Shape1.Shape = 2: Picture1.BorderStyle = 0
End Sub
Private Sub Form_Resize()
If Picture1.BackColor <> &HFFFF80 Then '首次成形
Picture1.Move 0, 0, 60, 60
Shape1.Move 150, 80, 100, 80
Picture1.BackColor = &HFFFF80: Shape1.Visible = True
Picture1.Line (0, 19)-(60, 19), 255
Picture1.Line (0, 39)-(60, 39), 255
Picture1.Line (30, 0)-(30, 75), 255
Picture1.CurrentX = 3: Picture1.CurrentY = 3
Picture1.Print "宽窄 " & CStr(Shape1.Width)
Picture1.CurrentX = 3: Picture1.CurrentY = 23
Picture1.Print "高矮 " & CStr(Shape1.Height)
Picture1.CurrentX = 3: Picture1.CurrentY = 43
Picture1.Print "横移 纵移" '完成界面设计
End If
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
uu = Y \ 20 '功能编号，0-宽窄，1-高矮，2-横移，3-纵移
If Y >= 40 And X >= 30 Then
uu = 3
If X >= 40 Then uu = uu Or 4 '粗调细调标志位
Else
If X >= 10 Then uu = uu Or 4
End If
If Button = 2 Then uu = uu Or 8 '左右键标志位
Timer1.Enabled = True
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False '鼠标弹起
End Sub
Private Sub Timer1_Timer()
Dim rr As Integer
rr = 1: If uu And 8 Then rr = -1 '左右键
Select Case uu And 3
Case 0
rr = rr * 2: If uu And 4 Then rr = rr * 10 '细调与粗调
If Shape1.Width + rr < 6 Then
Shape1.Width = 6 '极限
Else
Shape1.Width = Shape1.Width + rr '变化
End If 'v_显示数值
Picture1.Line (32, 1)-(58, 17), &HFFFF80, BF
Picture1.CurrentX = 3 + Picture1.TextWidth(Space(4)): Picture1.CurrentY = 3
Picture1.Print Shape1.Width
Case 1
rr = rr * 2: If uu And 4 Then rr = rr * 10
If Shape1.Height + rr < 6 Then
Shape1.Height = 6
Else
Shape1.Height = Shape1.Height + rr
End If
Picture1.Line (32, 21)-(58, 37), &HFFFF80, BF
Picture1.CurrentX = 3 + Picture1.TextWidth(Space(4)): Picture1.CurrentY = 23
Picture1.Print Shape1.Height
Case 2
If uu And 4 Then rr = rr * 10
If Shape1.Left + rr < 0 Then
Shape1.Left = 0
ElseIf Shape1.Left + rr > Width / 15 - 0.6 * Shape1.Width Then
Shape1.Left = Width / 15 - Int(0.6 * Shape1.Width)
Else
Shape1.Left = Shape1.Left + rr
End If
Case 3
If uu And 4 Then rr = rr * 10
If Shape1.Top + rr < 0 Then
Shape1.Top = 0
ElseIf Shape1.Top + rr > Height / 15 - 0.6 * Shape1.Height Then
Shape1.Top = Height / 15 - Int(0.6 * Shape1.Height)
Else
Shape1.Top = Shape1.Top + rr
End If
End Select
End Sub

'加一个Shape一个PictureBox
Option Explicit
Dim uu As Boolean
Dim nX As Long, nY As Long, nW As Long, nH As Long
Private Sub Form_Load()
Me.ScaleMode = 3
Picture1.ScaleMode = 3 '像素单位
Me.Caption = "椭圆形状与位置的调整"
Picture1.Move 0, 0, 60, 60
Picture1.AutoRedraw = True '避免闪烁
Picture1.BorderStyle = 0
Picture1.BackColor = &HFFFF80
Shape1.Shape = 2
nX = 150
nY = 80
nW = 100
nH = 80
Shape1.Move nX, nY, nW, nH
Call picCtnRedraw
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim rr As Integer, tt As Single
uu = True '鼠标按下
If Button = 1 Then
rr = 1
Else
rr = -1
End If
Do
If Abs(Timer - tt) > 0.01 Then
Select Case picCtnXYMapping(X, Y)
Case 12 '第一行第二个区域被按下.宽窄
nW = nW + rr
If nW < 6 Then nW = 6: uu = False
Case 22 '第二行第二个区域被按下.高矮
nH = nH + rr
If nH < 6 Then nH = 6: uu = False
Case 31 '第三行第一个区域被按下.横移
nX = nX + rr
Case 32 '第三行第二个区域被按下.纵移
nY = nY + rr
End Select
Shape1.Move nX, nY, nW, nH
Call picCtnRedraw
tt = Timer
End If
DoEvents
Loop While uu '等待鼠标弹起
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
uu = False '鼠标弹起
End Sub
Private Function picCtnXYMapping(ByVal X As Single, ByVal Y As Single) As Long
picCtnXYMapping = ((Int(Y / 20) + 1) * 10) + (Int(X / 30) + 1)
End Function
Private Sub picCtnRedraw()
Picture1.Cls
Picture1.Line (0, 19)-(60, 19), 255
Picture1.Line (0, 39)-(60, 39), 255
Picture1.Line (30, 0)-(30, 75), 255
Picture1.CurrentX = 3
Picture1.CurrentY = 3
Picture1.Print "宽窄 " & nW
Picture1.CurrentY = 23
Picture1.Print "高矮 " & nH
Picture1.CurrentY = 43
Picture1.Print "横移 纵移" '完成界面设计
End Sub