不过用起来 ，确实很不方便
剪贴一段代码过来
懒得多分析
Dim i As Integer, iYadder As Integer, iXadder As Integer
Dim iBottom As Integer, iLeft As Integer, iTop As Integer, iRight As Integer
iTop = 15000
iBottom = 14000
iLeft = -15000
iRight = -13000
iYadder = -16
iXadder = 16
For i = 1 To 400
If recRectangle1.Top > iTop - 60 Then iYadder = -16
If recRectangle1.Top < iBottom + 60 Then iYadder = 16
If recRectangle1.Left < iLeft + 60 Then iXadder = 16
If recRectangle1.Left > iRight - 60 Then iXadder = -16
recRectangle1.Top = recRectangle1.Top + iYadder
recRectangle1.Left = recRectangle1.Left + iXadder
Next i
这个东西，曾经做过一个按钮得 看起来漂亮一点而已
美化的东西
有任务的时候再动
