Programming Forums - Ha! It slides into eternity!

I have a context menu on my tray icon with the words show and hide depending upon where the form is it will either show or hide the form by sliding it by the system tray.

Below is code I have so far it didn't work but I made an attempt. It just slides and never stops I believe.

How do I accomplish this task. Thank you

    Dim workingArea As Rectangle = Screen.PrimaryScreen.WorkingArea

    Dim LocationTop, LocationBottom As Point

    Dim FormShown As Boolean

    Dim VerticalLocation, i As Integer

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

        VerticalLocation = Me.Height

        LocationTop = New Point(workingArea.Width - Me.Width, workingArea.Height - Me.Height)

        LocationBottom = New Point(workingArea.Width - Me.Width, workingArea.Height)

        Me.Location = LocationTop

        FormShown = True

        MenuItem1.Text = "Hide"

    End Sub

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click

        If FormShown = True Then

            SlideTimer.Start()

            Do While i <= 64

                VerticalLocation = VerticalLocation - 2

                Me.Location = New Point(workingArea.Width - Me.Width, workingArea.Height - VerticalLocation)

            Loop

            FormShown = False

            Me.Hide()

            MenuItem1.Text = "Show"

        Else

            Me.Show()

            SlideTimer.Start()

            Do While i <= 64

                VerticalLocation = VerticalLocation + 2

                Me.Location = New Point(workingArea.Width - Me.Width, workingArea.Height - VerticalLocation)

            Loop

            Me.Location = LocationTop

            FormShown = True

            MenuItem1.Text = "Hide"

        End If

    End Sub



    Private Sub SlideTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SlideTimer.Tick

        i = 0

        Do While i < 64

            i = i + 1

        Loop

             SlideTimer.Stop()

    End Sub