VB .NET - POP-UP Window From Taskbar

Public Class Form1

    Dim a, b, i As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        a = Screen.PrimaryScreen.Bounds.Width

        b = Screen.PrimaryScreen.Bounds.Height

        a = a - 227       

        i = 27

        Timer1.Start()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer2.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If i > 31 Then

            Timer1.Stop()

        End If

        b = b - i

        Me.Location = New System.Drawing.Point(a, b)

        i = i + 1

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        If i < 25 Then

            Timer2.Stop()

            Me.Close()

        End If

        b = b + i

        Me.Location = New System.Drawing.Point(a, b)

        i = i - 1

    End Sub

End Class

 Espero ter ajudado... Abraços!

Pegue o projeto neste link: http://www.mediafire.com/?f5tvffiv9ze83c6