Binaryworld - ImplodeForm - Hiding a form with an implosion effect ... [ VB.net -> WinForms ]

' Hiding a form with an implosion effect.
' the numSteps parameter is the number of steps to decrease the form size from
' the current size to 0
' the stepDuration argument is the number of milliseconds between each step

' Example:
' Private Sub Form1_Closing(...) Handles MyBase.Closing
'   ImplodeForm(Me)
' End Sub

Sub ImplodeForm(ByVal frm As Form, Optional ByVal numSteps As Integer = 25, _
  Optional ByVal stepDuration As Integer = 10)
  ' do nothing if the form is minimized or maximized
  If frm.WindowState <> FormWindowState.Normal Then Exit Sub

  Dim origLeft As Integer = frm.Left
  Dim origTop As Integer = frm.Top
  Dim currHeight As Integer = frm.Height
  Dim currWidth As Integer = frm.Width
  Dim stepHeight = currHeight / numSteps
  Dim stepWidth = currWidth / numSteps

  Dim i As Integer
  For i = 1 To numSteps
    'calc the new height/width
    currHeight -= stepHeight
    currWidth -= stepWidth
    ' display the form
    frm.SetBounds(origLeft, origTop, currWidth, currHeight)
    ' pause if so is requested
    System.Threading.Thread.CurrentThread.Sleep(stepDuration)
  Next
End Sub