Incraese the Opacity on Form Load

'Incraese the Opacity on Form Load

Public Class frrmOpacity

    Private Sub frrmOpacity_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Set The Form Opacity as 0.1 on Load()
        Me.Opacity = 0.1
    End Sub

    'Increase the Opacity on Timer_Tick
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.Opacity < 1 Then
            Me.Opacity += 0.1
        End If
    End Sub

End Class