哦 刚没有理解你的意思 还要先放大再缩小窗口啊
Private Sub Command1_Click()
For i = 0 To 50
Me.Move Me.Left - 10, Me.Top - 10, Me.Width + 20, Me.Height + 20
DoEvents
Next
For i = 0 To 100
Me.Move Me.Left + 10, Me.Top + 10, Me.Width - 20, Me.Height - 20
DoEvents
Next
End
End Sub