VB Opacity Changer

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TrackBar1.SetRange(0, 100)
    End Sub

    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
        Opacity = TrackBar1.Value / 100
        Label1.Text = TrackBar1.Value
    End Sub
End Class