Эффект Сворачивания и Разворачивания формы

    Dim A As Integer = 538 '538 Координата Y формы
    Dim B As Integer = 470 '470 Координата Y PictureBox1
    Dim com As Integer
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        Timer1.Interval = 1
        If Me.Height < A Then
            Button1.Text = "Свернуть"
            com = 1
        Else
            Button1.Text = "Развернуть"
            com = 2
        End If
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Button1.Text = "Развернуть"
        Me.Height = A - B
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If com = 1 Then
            Me.Height = Me.Height + 1
            If Me.Height = A Then
                Timer1.Enabled = False
            End If
        ElseIf com = 2 Then
            Me.Height = Me.Height - 1
            If Me.Height = A - B Then
                Timer1.Enabled = False
            End If
        End If
        Label2.Text = Me.Height 'Это не обязательно
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim BM As New Bitmap(Width, Height)
        Me.DrawToBitmap(BM, Me.ClientRectangle)
        Me.BackgroundImage = BM
        Me.BackgroundImageLayout = ImageLayout.Stretch
        For Each C As Control In Me.Controls
            C.Visible = False
        Next
        Me.BackColor = Color.Red
        Me.TransparencyKey = Color.Red
        Timer1.Start()
    End Sub
 
   
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If Me.Width < 10 Then
            Close()
        End If
        Width -= 4
        Left += 2
        Height -= 4
        Top += 2
    End Sub