Не раскрывается формы после сворачивания

   Sub before_flow_SWF(ByVal iod As IO.DirectoryInfo)
        SWf(iod) процедура поиска. Сразу за ее исполнением выскакивает форма с результатом. Все операции через поток
                Me.Invoke(New MethodInvoker(AddressOf Anime_Show))
    End Sub

появление второй формы
  Private Sub Anime_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Me.SetBounds(Form1.Left + (Form1.ClientSize.Width - Me.ClientSize.Width) / 2, Form1.Top + (Form1.ClientSize.Height - Me.Height) / 2, Me.Width, Me.Height, BoundsSpecified.All)
        Me.Location = New Point(Form1.Left + (Form1.ClientSize.Width - Me.ClientSize.Width) / 2, Form1.Top + (Form1.ClientSize.Height - Me.Height) / 2) ', Me.Width, Me.Height, BoundsSpecified.All)))
        Me.Label1.Text = "Поиск окончен! Найденно: " & Form1.ListView1.Items.Count
        Dim WindowAnimater As New AnimeForm
        WindowAnimater.AnimationDirection = AnimeForm.AnimateDirection.Horizontal_Positive
        WindowAnimater.AnimationStyle = AnimeForm.AnimateStyles.Center
        WindowAnimater.WindowHandle = Me.Handle
        WindowAnimater.AnimateWindow()
    End Sub

Imports System.ComponentModel
 
Public Class AnimeForm
    Private Declare Function AnimateWindow Lib "USER32.DLL" (ByVal hwnd As IntPtr, ByVal time As Integer, ByVal flags As Integer) As Boolean
 
    Public Enum AnimateStyles
        Slide = 262144
        Activate = 131072
        Blend = 524288
        Hide = 65536
        Center = 16
    End Enum
 
    Public Enum AnimateDirection
        Horizontal_Positive = 1
        Horizontal_Negative = 2
        Vertical_Positive = 4
        Vertical_Negative = 8
    End Enum
 
    Private AniTime As Integer = 400
    Private WinHandle As IntPtr
    Private AniStyle As AnimateStyles = AnimateStyles.Blend
    Private AniDirection As AnimateDirection = AnimateDirection.Horizontal_Negative
 
    <Category("Window Animator")> _
    <Description("Gets/Sets the animation time in milliseconds.")> _
    Public Property AnimationTime() As Integer
        Get
            AnimationTime = AniTime
        End Get
        Set(ByVal Value As Integer)
            AniTime = Value
        End Set
    End Property
 
    Public Property WindowHandle() As IntPtr
        Get
            WindowHandle = WinHandle
        End Get
        Set(ByVal Value As IntPtr)
            WinHandle = Value
        End Set
    End Property
 
 
    Public Property AnimationStyle() As AnimateStyles
        Get
            AnimationStyle = AniStyle
        End Get
        Set(ByVal Value As AnimateStyles)
            AniStyle = Value
        End Set
    End Property
 
 
    Public Property AnimationDirection() As AnimateDirection
        Get
            AnimationDirection = AniDirection
        End Get
        Set(ByVal Value As AnimateDirection)
            AniDirection = Value
        End Set
    End Property
 
    Public Function AnimateWindow()
        AnimateWindow(WindowHandle, AniTime, AniDirection Or AniStyle)
        Return 0
    End Function
 
End Class

    Sub Anime_Show()
        Anime.ShowDialog()
    End Sub