VB 编写的窗体淡入淡出

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
              Me.Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
               If Me.Opacity > 0.01 Then
            Me.Timer1.Enabled = True
            Me.Opacity = Me.Opacity - 0.01
        Else
            Me.Close()
            ' Me.Timer1.Enabled = False
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If Me.Opacity < 1 Then
            Me.Timer2.Enabled = True
            Me.Opacity = Me.Opacity + 0.01
        Else
            Me.Timer2.Enabled = False

        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Opacity = 0
    End Sub
End Class

Public Class Sheet1

    Private Sub Sheet1_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
        Dim Frm As Form1
        Frm = New Form1
        Frm.Show()
        Frm.Timer2.Start()
    End Sub

    Private Sub Sheet1_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown

    End Sub

End Class