Shrink the window and exit to the right in 15 lines of code
Shrink the window and exit to the right in 15 lines of code
Rate Shrink the window and exit to the right in 15 lines of code
(1(1 Vote))
Private Sub Form_Unload(Cancel As Integer)
Do
Me.Height = Me.Height - 20
DoEvents
Loop Until Me.Height = 405
Do
Me.top = Me.top + 20
Me.Move Me.Left, Me.top
DoEvents
Loop Until Me.top > Screen.Height - 500
Do
Me.Left = Me.Left + 20
Me.Move Me.Left, Me.top
DoEvents
Loop Until Me.Left > Screen.Width
End
End Sub
Shrink the window and exit to the right in 15 lines of code Comments
No comments yet — be the first to post one!
Post a Comment