[RESOLVED] How to Animate resizing of the main form?

[newbiekid]

Is there a way to ANIMATE the re-sizing of the main form?
I attempted to the below, but it's a failure.

    Private Sub dropDownToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Dim x As Integer = 454
        Dim y As Integer = 355

        If state Then
            While y <= 589
                ClientSize = New System.Drawing.Size(x, y = y + 1)
                Me.Refresh()
            End While

            ToolStripButton1.Image.RotateFlip(RotateFlipType.Rotate180FlipNone)
            state = False
        Else
            While y >= 355
                ClientSize = New System.Drawing.Size(x, y = y - 1)
                Me.Refresh()
            End While


            ToolStripButton1.Image.RotateFlip(RotateFlipType.Rotate180FlipNone)
            state = True
        End If
    End Sub

Any ideas is appreciated!

Thanks,

Newbiekid