求vb写的一个简单的小程序解决方案

求vb写的一个简单的小程序
exe在这：

http://dl.dbank.com/c0j39g6r0y

易语言做的窗口特效

根据截图再放大缩小

求vb代码

[解决办法]
最简单的是放在image控件里,设置参数可以自动随image控件的大小而缩放
[解决办法]
Private Sub Command1_Click()
For i = 0 To Me.Height \ 15
Me.Move Me.Left + 10, Me.Top + 10, Me.Width - 20, Me.Height - 20
DoEvents
Next
End
End Sub

[解决办法]
哦 刚没有理解你的意思 还要先放大再缩小窗口啊
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


我看人家做的还有淡出功能 这个我有代码 但不在这个机器里