VB .Net - Opacidade com ScrollBar

Public Class frmOpacidade

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click

        Timer1.Enabled = True

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Me.Opacity = Me.Opacity - 0.1

        If Me.Opacity <= 0 Then Me.Close()

    End Sub

    Private Sub hbarOpacity_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles ScrollBarOpacity.Scroll

        Me.Opacity = 0.1 + ScrollBarOpacity.Value / 100

        Me.lblOpacity.Text = Me.Opacity.ToString

    End Sub

End Class

 Espero ter ajudado, até mais, abraços.

Pegue o projeto neste link: http://www.mediafire.com/?azwsew16lh91n4d