动画问题

'ms=1时隐藏主窗体，frame=1显示窗体
Public Sub MyShow(Ms As Long, frame As Integer)
    Dim IStyle As Long

    IStyle = GetWindowLong(forms, GWL_STYLE)

    If Ms = 1 Then
        IStyle = IStyle And Not WS_VISIBLE And Not WS_POPUP
    Else
        IStyle = IStyle Or WS_VISIBLE Or WS_POPUP
    End If

    SetWindowLong forms, GWL_STYLE, IStyle
    IStyle = GetWindowLong(forms, GWL_EXSTYLE)

    If frame = 1 Then _
       IStyle = IStyle Or WS_EX_APPWINDOW _
       Else IStyle = IStyle And Not WS_EX_APPWINDOW

    If frame = 2 Then ShowWindow forms, SW_HIDE

    SetWindowLong forms, GWL_EXSTYLE, IStyle
    ShowWindow forms, SW_SHOW

End Sub

上面的MYSHOW是一个自定义函数