Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TrackBar1.Scroll
        Me.Opacity = ((Me.TrackBar1.Maximum - Me.TrackBar1.Value) / _
        Me.TrackBar1.Maximum)
        Me.Text = (Me.TrackBar1.Maximum - Me.TrackBar1.Value).ToString + "%"
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.TrackBar1.Maximum = 100
        Me.TrackBar1.Minimum = 0
    End Sub