Option Explicit

Private Sub Timer1_Timer()
If Me.Height >= 100 Then
Me.Height = Me.Height - 30
Me.Width = Me.Width - 30
Me.Left = Me.Left + 15
Me.Top = Me.Top + 15
Option1.Left = Option1.Left - 15
Option1.Top = Option1.Top - 15
End If
End Sub



一个窗体，height与width均为6000，加了一个timer控件和一个optbutton控件，optbutton控件放在窗体中心，原意是要让窗体实现自动缩放功能，optbutton控件随着窗体缩放始终保持在窗体中心位置，写了这些实现了缩小的功能，但是放大不会写了，求高手指点。另请问flagstop为0或1分别是什么意思。

不需要在Timer里写.在Resize事件里写代码就行了.