ArOZ/Utilities/ArOZ Music Sorter/Music Sorter/Background.vb

Public Class Background
    Dim screenWidth As Integer = Screen.PrimaryScreen.Bounds.Width
    Dim screenHeight As Integer = Screen.PrimaryScreen.Bounds.Height
    Private Sub Background_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Top = 0
        Me.Left = 0
        Me.Width = screenWidth
        Me.Height = screenHeight

        Panel1.Width = Me.Width / 2
        Panel2.Width = Me.Width / 2
        Panel1.Left = 0
        Panel2.Left = 0 + Panel1.Width
        For FadeIn = 0.0 To 1.1 Step 0.02
            Me.Opacity = FadeIn
            Me.Refresh()
            Threading.Thread.Sleep(10)
        Next

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        screenWidth = Screen.PrimaryScreen.Bounds.Width
        screenHeight = Screen.PrimaryScreen.Bounds.Height

        Me.Top = 0
        Me.Left = 0
        Me.Width = screenWidth
        Me.Height = screenHeight
    End Sub


    Private Sub Panel1_MouseClick(sender As Object, e As MouseEventArgs) Handles Panel1.MouseClick
        On Error Resume Next
        If Main.CheckBox2.Checked = True Then
            Main.MainVolDown()
        End If
    End Sub

    Private Sub Panel2_MouseClick(sender As Object, e As MouseEventArgs) Handles Panel2.MouseClick
        On Error Resume Next
        If Main.CheckBox2.Checked = True Then
            Main.MainVolUP()

        End If
    End Sub
End Class