vb.net - 設定時間後にフォームを閉じる

Question

以下のコードを使用すると、開いたり閉じたりするときにフェードインおよびフェードアウトできます。これが私が望んでいることです。ただし、フェードが始まる前にフォームを 10 秒間開いたままにしておきたいと思います。私はその部分を完成させるのに苦労しています。

これが私がこれまでに持っているものです：

Public Class frmDefinitions

    Private Sub Button1_Click(sender As Object, e As EventArgs) _
                    Handles Button1.Click
        tmr_out.Enabled = True
    End Sub

    Private Sub frmDefinitions_Load(sender As Object, e As EventArgs) _
                    Handles MyBase.Load
        Me.Opacity = 100
        tmr_in.Enabled = True
    End Sub

    Private Sub tmr_in_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                    Handles tmr_in.Tick
        Me.Opacity += 0.05
        If Me.Opacity = 1 Then
            tmr_in.Enabled = False
        End If
    End Sub

    Private Sub tmr_out_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                    Handles tmr_out.Tick
        Me.Opacity -= 0.05
        If Me.Opacity = 0 Then
            tmr_out.Enabled = False
            Me.Close()
        End If
    End Sub

End Class