Плавное изменение размеров компонента

    Private Sub resize(ByVal obj As Control, ByVal WidthInt As Integer, ByVal HeigthInt As Integer, Optional newWidthInt As Integer = 0, Optional newHeigthInt As Integer = Nothing)
        If newWidthInt <> Nothing Then
            If WidthInt < newWidthInt Then
                For i As Double = WidthInt To newWidthInt Step 0.01
                    obj.Size = New Size(width:=i, height:=HeigthInt)
                Next
            Else
                For i As Double = WidthInt To newWidthInt Step -0.01
                    obj.Size = New Size(width:=i, height:=HeigthInt)
                Next
            End If
        End If
        If newHeigthInt <> Nothing Then
            If HeigthInt < newHeigthInt Then
                For i As Double = HeigthInt To newHeigthInt Step 0.01
                    obj.Size = New Size(width:=WidthInt, height:=i)
                Next
            Else
                For i As Double = HeigthInt To newHeigthInt Step -0.01
                    obj.Size = New Size(width:=WidthInt, height:=i)
                Next
            End If
        End If
    End Sub

        If listBox1.Visible = True Then
            Dim now As Int32 = Me.Width
 
            listBox1.Visible = False
            For i As Integer = now To 361 Step -1
                Me.Width = i
            Next
 
            Me.Height = 201
        Else
            Dim now As Int32 = Me.Width
 
            For i As Integer = now To 641
                Me.Width = i
            Next
 
            Me.Height = 201
            listBox1.Visible = True
        End If

    Public Class Form1
    Dim Increase As Boolean = Nothing
    Dim AniCTRL As Object = Nothing
    Dim newWidth, oldWith As Integer
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs)
        If Increase Then
            If AniCTRL.Width < newWidth And AniCTRL.Width <> newWidth Then
                AniCTRL.Width += 5
            Else
                sender.Stop
                Increase = Nothing
            End If
        Else
            If AniCTRL.Width > oldWith And AniCTRL.Width <> oldWith Then
                AniCTRL.Width -= 5
            Else
                sender.Stop
                Increase = Nothing
            End If
        End If
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        AniCTRL = Me
 
        If sender.Text = "Увеличить" Then
            sender.Text = "Уменьшить"
            Increase = True
            newWidth = Me.Width + 100
            oldWith = Me.Width
        ElseIf sender.Text = "Уменьшить" Then
            Increase = False
            sender.Text = "Увеличить"
        End If
 
        Dim Timer1 As New Timer With {.Interval = 1, .Enabled = False}
        AddHandler Timer1.Tick, AddressOf Timer1_Tick : Timer1.Start()
    End Sub