form2.vb

来自「用VB.NET开发的记事本,功能强大 用VB.NET开发的记事本,功能强大」· VB 代码 · 共 13 行

Public Class Form2

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.Opacity > 0.01 Then
            Me.Opacity -= 0.1
        Else
            Me.Timer1.Enabled = False
            Me.Hide()
            Dim a As New form1
            a.Show()
        End If
    End Sub
End Class