VB.NET de Formu Saydamlaştırma

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TrackBar1.Maximum = 100
        TrackBar1.Minimum = 50 'Ben 50'ye kadar yaptım 0'a kadar insem formu göremem dimi :D
        TrackBar1.Value = 100 ' Value'yi 100 yapalım ki ilk açlışta tam gözüksün.
        Me.Opacity = TrackBar1.Value / 100 'Bu da formu saydamlaştırmak için.
    End Sub

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