[mini]

大概有兩種思維
.數學算式

Private Sub Command1_Click()
Dim x As Integer

For i = 3 To 0 Step -1
    x = CInt(Text1(i).Text)
    x = x - 1
    If x < 1 Then x = 4
    Text1(i) = x
Next

End Sub

.移動控制項
這裡多用了個 Shape1控制項，其 Shape1.Left 與 Shape1.Top 一開始與 12點鐘位置的
TextBox相同 (這裡就是 Text1(0))

Private Sub Command2_Click()

For i = 0 To 2
    Text1(i).Move Text1(i + 1).Left, Text1(i + 1).Top
Next
Text1(i).Move Shape1.Left, Shape1.Top
Shape1.Move Text1(0).Left, Text1(0).Top

End Sub

不過你也可以用變數 X,Y來替代 Shape1.Left, Shape1.Top
不過如此一來
Shape1.Move Text1(0).Left, Text1(0).Top
就要改成兩行
X = Text1(0).Left
Y = Text1(0).Top
且在For之前也需定位 X,Y的初始值
程式碼的行數也跟著增加了