' Show a form with an explosion effect.' the numSteps parameter is the number of steps to increase the form size from ' 0 to the original size' the stepDuration argument is the number of milliseconds between each step' Example:' Private Sub Form1_Activated(...) Handles MyBase.Activated' ExplodeForm(Me)' End SubSub ExplodeForm(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 origHeight As Integer = frm.Height Dim origWidth As Integer = frm.Width Dim stepHeight = origHeight / numSteps Dim stepWidth = origWidth / numSteps Dim newHeight, newWidth As Integer Dim i As Integer For i = 1 To numSteps 'calc the new height/width newHeight += stepHeight newWidth += stepWidth ' display the form frm.SetBounds(origLeft, origTop, newWidth, newHeight) ' pause if so is requested System.Threading.Thread.CurrentThread.Sleep(stepDuration) Next ' ensure that the form is completely visible frm.SetBounds(origLeft, origTop, origWidth, origHeight)End Sub


GM Creates Open Source uProtocol and Invites Automakers to Adopt It: Revolutionizing Automotive Software Development.
General Motors (GM) recently announced its entry into the Eclipse Foundation. The Eclipse Foundation is a prominent open-source software foundation. In addition, GMC announced its contribution of “uProtocol” to facilitate