VB Code:
Imports System.Windows.Forms, System.Windows.Forms.SystemInformation
Public Class Form1
Inherits System.Windows.Forms.Form
Const nSteps As Integer = 50
Private stepX As Integer = WorkingArea.Width \ (nSteps - 1)
Private stepY As Integer = WorkingArea.Height \ (nSteps - 1)
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static counter As Integer
If counter < nSteps Then
Width += stepX
Height += stepY
Me.CenterToScreen()
counter += 1
Else
counter = Nothing
Timer1.Enabled = False
WindowState = FormWindowState.Maximized
Opacity = 0.75
End If
End Sub
End Class
Needs some tweaking... but seems a bit slow for me, but with nSteps lower seems jerky. Prolly a better way of doing it but that's my 2 minute answer!