ShiftOS-Rewind/ShiftOS/Shifter.vb

Public Class Shifter
    Public rolldownsize As Integer
    Public oldbordersize As Integer
    Public oldtitlebarheight As Integer
    Public justopened As Boolean = False
    Public needtorollback As Boolean = False
    Public minimumsizewidth As Integer = 0
    Public minimumsizeheight As Integer = 0
    Public ShiftOSPath As String = "C:\ShiftOS"

    Public skinlines(200) As String

    Public titlebarcolour As Color
    Public windowbordercolour As Color
    Public windowbordersize As Integer
    Public titlebarheight As Integer
    Public closebuttoncolour As Color
    Public closebuttonheight As Integer
    Public closebuttonwidth As Integer
    Public closebuttonside As Integer
    Public closebuttontop As Integer
    Public titletextcolour As Color
    Public titletexttop As Integer
    Public titletextside As Integer
    Public titletextsize As Integer
    Public titletextfont As String
    Public titletextstyle As FontStyle
    Public desktoppanelcolour As Color
    Public desktopbackgroundcolour As Color
    Public desktoppanelheight As Integer
    Public desktoppanelposition As String
    Public clocktextcolour As Color
    Public clockbackgroundcolor As Color
    Public panelclocktexttop As Integer
    Public panelclocktextsize As Integer
    Public panelclocktextfont As String
    Public panelclocktextstyle As FontStyle
    Public applauncherbuttoncolour As Color
    Public applauncherbuttonclickedcolour As Color
    Public applauncherbackgroundcolour As Color
    Public applaunchermouseovercolour As Color
    Public applicationsbuttontextcolour As Color
    Public applicationbuttonheight As Integer
    Public applicationbuttontextsize As Integer
    Public applicationbuttontextfont As String
    Public applicationbuttontextstyle As FontStyle
    Public applicationlaunchername As String
    Public titletextposition As String
    Public rollupbuttoncolour As Color
    Public rollupbuttonheight As Integer
    Public rollupbuttonwidth As Integer
    Public rollupbuttonside As Integer
    Public rollupbuttontop As Integer
    Public titlebariconside As Integer
    Public titlebaricontop As Integer
    Public showwindowcorners As Boolean
    Public titlebarcornerwidth As Integer
    Public titlebarrightcornercolour As Color
    Public titlebarleftcornercolour As Color
    Public applaunchermenuholderwidth As Integer = 100
    Public windowborderleftcolour As Color
    Public windowborderrightcolour As Color
    Public windowborderbottomcolour As Color
    Public windowborderbottomrightcolour As Color
    Public windowborderbottomleftcolour As Color
    Public panelbuttonicontop As Integer
    Public panelbuttoniconside As Integer
    Public panelbuttoniconsize As Integer
    Public panelbuttonheight As Integer
    Public panelbuttonwidth As Integer
    Public panelbuttoncolour As Color
    Public panelbuttontextcolour As Color
    Public panelbuttontextsize As Integer
    Public panelbuttontextfont As String
    Public panelbuttontextstyle As FontStyle
    Public panelbuttontextside As Integer
    Public panelbuttontexttop As Integer
    Public panelbuttongap As Integer
    Public panelbuttonfromtop As Integer
    Public panelbuttoninitialgap As Integer
    Public minimizebuttoncolour As Color
    Public minimizebuttonheight As Integer
    Public minimizebuttonwidth As Integer
    Public minimizebuttonside As Integer
    Public minimizebuttontop As Integer
    Public icontextcolor As Color

    'skins
    Public shifterskinimages(100) As String
    Public skinclosebutton(2) As Image
    Public skinclosebuttonstyle As ImageLayout
    Public shifterskintitlebar(2) As Image
    Public skintitlebarstyle As ImageLayout
    Public skindesktopbackground(2) As Image
    Public skindesktopbackgroundstyle As ImageLayout
    Public skinrollupbutton(2) As Image
    Public skinrollupbuttonstyle As ImageLayout
    Public skintitlebarrightcorner(2) As Image
    Public skintitlebarrightcornerstyle As ImageLayout = ImageLayout.Stretch
    Public skintitlebarleftcorner(2) As Image
    Public skintitlebarleftcornerstyle As ImageLayout = ImageLayout.Stretch
    Public skindesktoppanel(2) As Image
    Public skindesktoppanelstyle As ImageLayout = ImageLayout.Stretch
    Public skindesktoppaneltime(2) As Image
    Public skindesktoppaneltimestyle As ImageLayout = ImageLayout.Stretch
    Public skinapplauncherbutton(2) As Image
    Public skinapplauncherbuttonstyle As ImageLayout = ImageLayout.Stretch
    Public skinwindowborderleft(2) As Image
    Public skinwindowborderleftstyle As ImageLayout = ImageLayout.Stretch
    Public skinwindowborderright(2) As Image
    Public skinwindowborderrightstyle As ImageLayout = ImageLayout.Stretch
    Public skinwindowborderbottom(2) As Image
    Public skinwindowborderbottomstyle As ImageLayout = ImageLayout.Stretch
    Public skinwindowborderbottomright(2) As Image
    Public skinwindowborderbottomrightstyle As ImageLayout = ImageLayout.Stretch
    Public skinwindowborderbottomleft(2) As Image
    Public skinwindowborderbottomleftstyle As ImageLayout = ImageLayout.Stretch
    Public skinpanelbutton(2) As Image
    Public skinpanelbuttonstyle As ImageLayout = ImageLayout.Stretch
    Public skinminimizebutton(2) As Image
    Public skinminimizebuttonstyle As ImageLayout = ImageLayout.Stretch
    Public skinuserpanel(2) As Image
    Public skinshutdownbutton(2) As Image

    Public customizationtimepoints As Integer
    Public customizationsdone As Integer
    Public customizationpointsearned As Integer
    Dim bmp As Bitmap

    'DevX's ADV. App Launcher

    Public startWidth As Integer = Skins.startWidth
    Public startHeight As Integer = Skins.startHeight
    Public usernametextcolor As Color = Skins.usernametextcolor
    Public shutdowntextcolor As Color = Skins.shutdownTextColor
    Public usernamebgcolor As Color = Skins.userNamePanelBackgroundColor
    Public powerpanelbgcolor As Color = Skins.powerPanelBackgroundColor
    Public powerpanelbgimage As Image = Skins.powerPanelBackgroundImage
    Public usernamebgimage As Image = Skins.userNamePanelBackground
    Public usernamefont As String = Skins.usernamefont
    Public usernamefontsize As Integer = Skins.usernamefontsize
    Public usernamefontstyle As FontStyle = Skins.usernamefontstyle
    Public ShutDownString As String = Skins.shutdownstring
    Public powerpanelfont As String = Skins.shutdownTextFont
    Public powerpanelfontsize As Integer = Skins.shutdownTextSize
    Public powerpanelfontstyle As FontStyle = Skins.shutdownTextStyle
    Public usrbglayout As ImageLayout = Skins.usrPanelBackgroundLayout
    Public pwrbglayout As ImageLayout = Skins.pwrPanelBackgroundLayout




#Region "Template Code"
    Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        justopened = True
        Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
        Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
        setupall()
        'ShiftOSDesktop.setcolours()
        setupbuttons()
        initialsetup()
        determinevisibleobjects()
        AddFonts()
        If ShiftOSDesktop.ShifterCorrupted Then Me.Close() : infobox.showinfo("The Plague.", Me.Name & "has been corrupted by The Plague.")

        setuppreshifterstuff()

        ShiftOSDesktop.pnlpanelbuttonshifter.SendToBack() 'CHANGE NAME
        ShiftOSDesktop.setuppanelbuttons()
        ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonshifter, ShiftOSDesktop.tbshiftericon, ShiftOSDesktop.tbshiftertext, True) 'modify to proper name
        ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1

        'Display the shifter intro
        pnlshifterintro.Location = New Point(133, 6)
        pnlshifterintro.Size = New Size(458, 297)
        pnlshifterintro.Show()
        pnlshifterintro.BringToFront()

        'Display window intro
        pnlwindowsintro.Show()
        pnlwindowsintro.Size = New Size(317, 134)
        pnlwindowsintro.Location = New Point(136, 159)
        pnlwindowsintro.BringToFront()

        'Display desktop intro
        pnldesktopintro.Show()
        pnldesktopintro.Size = New Size(317, 134)
        pnldesktopintro.Location = New Point(136, 159)
        pnldesktopintro.BringToFront()

    End Sub

    Public Sub setupall()
        setuptitlebar()
        setupborders()
        setskin()
    End Sub

    Public Sub loadclone()
        setuptitlebar()
        setupborders()
        'ShiftOSDesktop.setcolours()
        setskin()
        setupbuttons()
        initialsetup()
        determinevisibleobjects()
        setuppreshifterstuff()
        AddFonts()
    End Sub

    Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        'Make terminal appear
        If e.KeyCode = Keys.T AndAlso e.Control Then
            Terminal.Show()
            Terminal.Visible = True
            Terminal.BringToFront()
        End If

        'Movable Windows
        If ShiftOSDesktop.boughtmovablewindows = True Then
            If e.KeyCode = Keys.A AndAlso e.Control Then
                e.Handled = True
                Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y)
            End If
            If e.KeyCode = Keys.D AndAlso e.Control Then
                e.Handled = True
                Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y)
            End If
            If e.KeyCode = Keys.W AndAlso e.Control Then
                e.Handled = True
                Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber)
            End If
            If e.KeyCode = Keys.S AndAlso e.Control Then
                e.Handled = True
                Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber)
            End If
            ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine
        End If
    End Sub

    Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown
        ' Handle Draggable Windows
        If ShiftOSDesktop.boughtdraggablewindows = True Then
            If e.Button = MouseButtons.Left Then
                titlebar.Capture = False
                lbtitletext.Capture = False
                pnlicon.Capture = False
                pgtoplcorner.Capture = False
                pgtoprcorner.Capture = False
                Const WM_NCLBUTTONDOWN As Integer = &HA1S
                Const HTCAPTION As Integer = 2
                Dim msg As Message = _
                    Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
                        New IntPtr(HTCAPTION), IntPtr.Zero)
                Me.DefWndProc(msg)
            End If
            ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine
        End If
    End Sub

    Public Sub setupborders()
        If ShiftOSDesktop.boughtwindowborders = False Then
            pgleft.Hide()
            pgbottom.Hide()
            pgright.Hide()
            Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height)
        End If
    End Sub

    Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click
        Me.Close()
    End Sub

    Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
        closebutton.BackgroundImage = Skins.closebtnhover
    End Sub

    Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
        closebutton.BackgroundImage = Skins.closebtn
    End Sub

    Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
        closebutton.BackgroundImage = Skins.closebtnclick
    End Sub

    Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
        ShiftOSDesktop.minimizeprogram(Me, False)
    End Sub

    'Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter
    '    If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then  Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1)
    'End Sub

    'Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave
    '    If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then  Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0)
    'End Sub

    Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click
        rollupanddown()
    End Sub

    Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp
        rollupbutton.BackgroundImage = Skins.rollbtnhover
    End Sub

    Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
        rollupbutton.BackgroundImage = Skins.rollbtn
    End Sub

    Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
        rollupbutton.BackgroundImage = Skins.rollbtnclick
    End Sub

    Public Sub setuptitlebar()

        setupborders()

        If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
        pgleft.Width = Skins.borderwidth
        pgright.Width = Skins.borderwidth
        pgbottom.Height = Skins.borderwidth
        titlebar.Height = Skins.titlebarheight

        If justopened = True Then
            Me.Size = New Size(600, 339) 'put the default size of your window here
            Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
            Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
            oldbordersize = Skins.borderwidth
            oldtitlebarheight = Skins.titlebarheight
            justopened = False
        Else
            If Me.Visible = True Then
                'Me.Hide()
                Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
                'Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) 'Just put a little algebra in the first size setting and comment out the mess
                oldbordersize = Skins.borderwidth
                oldtitlebarheight = Skins.titlebarheight
                'Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
                'Me.Size = New Size(Me.Width + Skins. borderwidth + Skins. borderwidth, Me.Height + Skins. borderwidth)
                'rolldownsize = Me.Height
                If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
                'Me.Show()
            End If
        End If

        If Skins.enablecorners = True Then
            pgtoplcorner.Show()
            pgtoprcorner.Show()
            pgtoprcorner.Width = Skins.titlebarcornerwidth
            pgtoplcorner.Width = Skins.titlebarcornerwidth
        Else
            pgtoplcorner.Hide()
            pgtoprcorner.Hide()
        End If

        If ShiftOSDesktop.boughttitlebar = False Then
            titlebar.Hide()
            Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height)
        End If

        If ShiftOSDesktop.boughttitletext = False Then
            lbtitletext.Hide()
        Else
            lbtitletext.Font = New Font(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
            lbtitletext.Text = ShiftOSDesktop.shiftername 'Remember to change to name of program!!!!
            lbtitletext.Show()
        End If

        If ShiftOSDesktop.boughtclosebutton = False Then
            closebutton.Hide()
        Else
            closebutton.BackColor = Skins.closebtncolour
            closebutton.Size = Skins.closebtnsize
            closebutton.Show()
        End If

        If ShiftOSDesktop.boughtrollupbutton = False Then
            rollupbutton.Hide()
        Else
            rollupbutton.BackColor = Skins.rollbtncolour
            rollupbutton.Size = Skins.rollbtnsize
            rollupbutton.Show()
        End If

        If ShiftOSDesktop.boughtminimizebutton = False Then
            minimizebutton.Hide()
        Else
            minimizebutton.BackColor = Skins.minbtncolour
            minimizebutton.Size = Skins.minbtnsize
            minimizebutton.Show()
        End If

        If ShiftOSDesktop.boughtwindowborders = True Then
            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
            Select Case Skins.titletextpos
                Case "Left"
                    lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
                Case "Centre"
                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
            End Select
            lbtitletext.ForeColor = Skins.titletextcolour
        Else
            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
            Select Case Skins.titletextpos
                Case "Left"
                    lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
                Case "Centre"
                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
            End Select
            lbtitletext.ForeColor = Skins.titletextcolour
        End If

        'Change when Icon skinning complete
        If ShiftOSDesktop.boughtshiftericon = True Then ' Change to program's icon
            pnlicon.Visible = True
            pnlicon.Location = New Point(Skins.titleiconfromside, Skins.titleiconfromtop)
            pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
            pnlicon.Image = ShiftOSDesktop.shiftericontitlebar  'Replace with the correct icon for the program.
        End If

    End Sub

    Public Sub rollupanddown()
        If Me.Height = Me.titlebar.Height Then
            pgleft.Show()
            pgbottom.Show()
            pgright.Show()
            Me.Height = rolldownsize
            Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight)
        Else
            Me.MinimumSize = New Size(0, 0)
            pgleft.Hide()
            pgbottom.Hide()
            pgright.Hide()
            rolldownsize = Me.Height
            Me.Height = Me.titlebar.Height
        End If
    End Sub

    Public Sub resettitlebar()
        If ShiftOSDesktop.boughtwindowborders = True Then
            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
            Select Case Skins.titletextpos
                Case "Left"
                    lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
                Case "Centre"
                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
            End Select
            lbtitletext.ForeColor = Skins.titletextcolour
        Else
            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
            Select Case Skins.titletextpos
                Case "Left"
                    lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
                Case "Centre"
                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
            End Select
            lbtitletext.ForeColor = Skins.titletextcolour
        End If
    End Sub

    Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter
        If ShiftOSDesktop.boughtresizablewindows = True Then
            Cursor = Cursors.SizeWE
        End If
    End Sub

    Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter
        If ShiftOSDesktop.boughtresizablewindows = True Then
            Cursor = Cursors.SizeNS
        End If
    End Sub

    Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter
        If ShiftOSDesktop.boughtresizablewindows = True Then
            Cursor = Cursors.SizeNWSE
        End If
    End Sub

    Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave
        If ShiftOSDesktop.boughtresizablewindows = True Then
            Cursor = Cursors.Default
        End If
    End Sub

    Public Sub setskin()
        'disposals
        closebutton.BackgroundImage = Nothing
        titlebar.BackgroundImage = Nothing
        rollupbutton.BackgroundImage = Nothing
        pgtoplcorner.BackgroundImage = Nothing
        pgtoprcorner.BackgroundImage = Nothing
        minimizebutton.BackgroundImage = Nothing
        'apply new skin
        If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
        closebutton.BackgroundImageLayout = Skins.closebtnlayout
        If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
        titlebar.BackgroundImageLayout = Skins.titlebarlayout
        If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
        rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
        If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
        pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
        If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
        pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
        If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
        minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
        If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
        pgleft.BackgroundImageLayout = Skins.borderleftlayout
        If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
        pgleft.BackgroundImageLayout = Skins.borderrightlayout
        If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
        pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
        If enablebordercorners = True Then
            If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
            pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
            If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
            pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
        Else
            pgbottomlcorner.BackColor = Skins.borderrightcolour
            pgbottomrcorner.BackColor = Skins.borderrightcolour
            pgbottomlcorner.BackgroundImage = Nothing
            pgbottomrcorner.BackgroundImage = Nothing
        End If

        'set bottom border corner size
        pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
        pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
        pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
        pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)

        Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour
    End Sub

    Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1
        Me.Hide()
        ShiftOSDesktop.setuppanelbuttons()
    End Sub
#End Region


    Private Sub initialsetup()
        titlebarcolour = Skins.titlebarcolour
        windowbordercolour = Skins.borderbottomcolour
        windowbordersize = Skins.borderwidth
        titlebarheight = Skins.titlebarheight
        closebuttoncolour = Skins.closebtncolour
        closebuttonheight = Skins.closebtnsize.Height
        closebuttonwidth = Skins.closebtnsize.Width
        closebuttontop = Skins.closebtnfromtop
        closebuttonside = Skins.closebtnfromside
        titletextcolour = Skins.titletextcolour
        titletexttop = Skins.titletextfromtop
        titletextside = Skins.titletextfromside
        titletextsize = Skins.titletextfontsize
        titletextfont = Skins.titletextfontfamily
        titletextstyle = Skins.titletextfontstyle
        desktoppanelcolour = Skins.desktoppanelcolour
        desktopbackgroundcolour = Skins.desktopbackgroundcolour
        desktoppanelheight = Skins.desktoppanelheight
        desktoppanelposition = Skins.desktoppanelposition
        clocktextcolour = Skins.clocktextcolour
        clockbackgroundcolor = Skins.clockbackgroundcolor
        panelclocktexttop = Skins.panelclocktexttop
        panelclocktextsize = Skins.panelclocktextsize
        panelclocktextfont = Skins.panelclocktextfont
        panelclocktextstyle = Skins.panelclocktextstyle
        applauncherbuttoncolour = Skins.applauncherbuttoncolour
        applauncherbuttonclickedcolour = Skins.applauncherbuttonclickedcolour
        applauncherbackgroundcolour = Skins.applauncherbackgroundcolour
        applaunchermouseovercolour = Skins.applaunchermouseovercolour
        applicationsbuttontextcolour = Skins.applicationsbuttontextcolour
        applicationbuttonheight = Skins.applicationbuttonheight
        applicationbuttontextsize = Skins.applicationbuttontextsize
        applicationbuttontextfont = Skins.applicationbuttontextfont
        applicationbuttontextstyle = Skins.applicationbuttontextstyle
        applicationlaunchername = Skins.applicationlaunchername
        titletextposition = Skins.titletextposition
        rollupbuttoncolour = Skins.rollbtncolour
        rollupbuttonheight = Skins.rollbtnsize.Height
        rollupbuttonwidth = Skins.rollbtnsize.Width
        rollupbuttonside = Skins.rollbtnfromside
        rollupbuttontop = Skins.rollbtnfromtop
        titlebariconside = Skins.titleiconfromside
        titlebaricontop = Skins.titleiconfromtop
        titlebarcornerwidth = Skins.titlebarcornerwidth
        titlebarrightcornercolour = Skins.rightcornercolour
        titlebarleftcornercolour = Skins.leftcornercolour
        showwindowcorners = Skins.enablecorners
        applaunchermenuholderwidth = Skins.applaunchermenuholderwidth
        windowborderleftcolour = Skins.borderleftcolour
        windowborderrightcolour = Skins.borderrightcolour
        windowborderbottomcolour = Skins.borderbottomcolour
        windowborderbottomrightcolour = Skins.bottomrightcornercolour
        windowborderbottomleftcolour = Skins.bottomleftcornercolour
        panelbuttonicontop = Skins.panelbuttonicontop
        panelbuttoniconside = Skins.panelbuttoniconside
        panelbuttoniconsize = Skins.panelbuttoniconsize
        panelbuttoniconsize = Skins.panelbuttoniconsize
        panelbuttonheight = Skins.panelbuttonheight
        panelbuttonwidth = Skins.panelbuttonwidth
        panelbuttoncolour = Skins.panelbuttoncolour
        panelbuttontextcolour = Skins.panelbuttontextcolour
        panelbuttontextsize = Skins.panelbuttontextsize
        panelbuttontextfont = Skins.panelbuttontextfont
        panelbuttontextstyle = Skins.panelbuttontextstyle
        panelbuttontextside = Skins.panelbuttontextside
        panelbuttontexttop = Skins.panelbuttontexttop
        panelbuttongap = Skins.panelbuttongap
        panelbuttonfromtop = Skins.panelbuttonfromtop
        panelbuttoninitialgap = Skins.panelbuttoninitialgap
        minimizebuttoncolour = Skins.minbtncolour
        minimizebuttonheight = Skins.minbtnsize.Height
        minimizebuttonwidth = Skins.minbtnsize.Width
        minimizebuttonside = Skins.minbtnfromside
        minimizebuttontop = Skins.minbtnfromtop
        txtlauncheritemtxtsize.Text = Skins.launcheritemsize
        launcheritemtxtcolour.BackColor = Skins.launcheritemcolour
        launcheritemfont.Text = Skins.launcheritemfont
        icontextcolor = Skins.icontextcolor

        skinuserpanel(0) = userNamePanelBackground
        skinshutdownbutton(0) = powerpanelbgimage

        'Uncomment when I (The Ultimate Hacker) have gotten the Shiftnet Download for
        'Desktop++ Done:

        'If ShiftOSDesktop.boughtdesktopicons = True Then
        '    btndeskdoubleplus.Visible = True
        'End If

        desktopiconspreview.BackColor = Skins.desktopbackgroundcolour
        If Skins.desktopbackground Is Nothing Then desktopiconspreview.BackgroundImage = Nothing Else desktopiconspreview.BackgroundImage = Skins.desktopbackground
        desktopiconspreview.BackgroundImageLayout = Skins.desktopbackgroundlayout
        desktopiconspreview.ForeColor = Skins.icontextcolor
        CheckBox1.Checked = Skins.enabledraggableicons
        refreshIcons()

        'Adv. App Launcher Setup Code

        Dim fStyleForAAL As String 'Just for simplicity, ignore.
        cmbaalusrfont.Text = usernamefont
        Select Case usernamefontstyle
            Case FontStyle.Regular
                fStyleForAAL = "Regular"
            Case FontStyle.Bold
                fStyleForAAL = "Bold"
            Case FontStyle.Italic
                fStyleForAAL = "Italic"
            Case FontStyle.Underline
                fStyleForAAL = "Underline"
            Case Else
                fStyleForAAL = "Regular"
        End Select
        cmbaalusrstyle.Text = fStyleForAAL
        nudusrsize.Value = usernamefontsize
        btnaalpwrpnlbg.BackColor = powerpanelbgcolor
        If powerpanelbgimage Is Nothing Then btnaalpwrpnlbg.BackgroundImage = Nothing Else btnaalpwrpnlbg.BackgroundImage = powerpanelbgimage
        btnaalpwrpnlbg.BackgroundImageLayout = pwrbglayout
        btnaalusrpnlbg.BackColor = usernamebgcolor
        If usernamebgimage Is Nothing Then btnaalusrpnlbg.BackgroundImage = Nothing Else btnaalusrpnlbg.BackgroundImage = usernamebgimage
        btnaalusrpnlbg.BackgroundImageLayout = usrbglayout






        'skins
        'Array.Copy(ShiftOSDesktop.skinimages, shifterskinimages, shifterskinimages.Length)

        If Skins.closebtn Is Nothing Then  Else skinclosebutton(0) = Skins.closebtn.Clone
        If Skins.closebtnhover Is Nothing Then  Else skinclosebutton(1) = Skins.closebtnhover.Clone
        If Skins.closebtnclick Is Nothing Then  Else skinclosebutton(2) = Skins.closebtnclick.Clone
        skinclosebuttonstyle = Skins.closebtnlayout

        If Skins.titlebar Is Nothing Then  Else shifterskintitlebar(0) = Skins.titlebar.Clone
        ' Are we really doing states for the titlebar?
        'If ShiftOSDesktop.skintitlebar(1) Is Nothing Then  Else shifterskintitlebar(1) = ShiftOSDesktop.skintitlebar(1).Clone
        'If ShiftOSDesktop.skintitlebar(2) Is Nothing Then  Else shifterskintitlebar(2) = ShiftOSDesktop.skintitlebar(2).Clone
        skintitlebarstyle = Skins.titlebarlayout

        If Skins.desktopbackground Is Nothing Then  Else skindesktopbackground(0) = Skins.desktopbackground.Clone
        'If ShiftOSDesktop.skindesktopbackground(1) Is Nothing Then  Else skindesktopbackground(1) = ShiftOSDesktop.skindesktopbackground(1).Clone
        'If ShiftOSDesktop.skindesktopbackground(2) Is Nothing Then  Else skindesktopbackground(2) = ShiftOSDesktop.skindesktopbackground(2).Clone
        skindesktopbackgroundstyle = Skins.desktopbackgroundlayout

        If Skins.rollbtn Is Nothing Then  Else skinrollupbutton(0) = Skins.rollbtn.Clone
        If Skins.rollbtnhover Is Nothing Then  Else skinrollupbutton(1) = rollbtnhover.Clone
        If Skins.rollbtnclick Is Nothing Then  Else skinrollupbutton(2) = rollbtnclick.Clone
        skinrollupbuttonstyle = Skins.rollbtnlayout

        If Skins.rightcorner Is Nothing Then  Else skintitlebarrightcorner(0) = Skins.rightcorner.Clone
        'If ShiftOSDesktop.skintitlebarrightcorner(1) Is Nothing Then  Else skintitlebarrightcorner(1) = ShiftOSDesktop.skintitlebarrightcorner(1).Clone
        'If ShiftOSDesktop.skintitlebarrightcorner(2) Is Nothing Then  Else skintitlebarrightcorner(2) = ShiftOSDesktop.skintitlebarrightcorner(2).Clone
        skintitlebarrightcornerstyle = Skins.rightcornerlayout

        If Skins.leftcorner Is Nothing Then  Else skintitlebarleftcorner(0) = Skins.leftcorner.Clone
        'If ShiftOSDesktop.skintitlebarleftcorner(1) Is Nothing Then  Else skintitlebarleftcorner(1) = ShiftOSDesktop.skintitlebarleftcorner(1).Clone
        'If ShiftOSDesktop.skintitlebarleftcorner(2) Is Nothing Then  Else skintitlebarleftcorner(2) = ShiftOSDesktop.skintitlebarleftcorner(2).Clone
        skintitlebarleftcornerstyle = Skins.leftcornerlayout

        If Skins.desktoppanel Is Nothing Then  Else skindesktoppanel(0) = Skins.desktoppanel.Clone
        'If ShiftOSDesktop.skindesktoppanel(1) Is Nothing Then  Else skindesktoppanel(1) = ShiftOSDesktop.skindesktoppanel(1).Clone
        'If ShiftOSDesktop.skindesktoppanel(2) Is Nothing Then  Else skindesktoppanel(2) = ShiftOSDesktop.skindesktoppanel(2).Clone
        skindesktoppanelstyle = Skins.desktoppanellayout

        If Skins.panelclock Is Nothing Then  Else skindesktoppaneltime(0) = Skins.panelclock.Clone
        'If ShiftOSDesktop.skindesktoppaneltime(1) Is Nothing Then  Else skindesktoppaneltime(1) = ShiftOSDesktop.skindesktoppaneltime(1).Clone
        'If ShiftOSDesktop.skindesktoppaneltime(2) Is Nothing Then  Else skindesktoppaneltime(2) = ShiftOSDesktop.skindesktoppaneltime(2).Clone
        skindesktoppaneltimestyle = Skins.panelclocklayout

        If Skins.applauncher Is Nothing Then  Else skinapplauncherbutton(0) = Skins.applauncher.Clone
        If Skins.applaunchermouseover Is Nothing Then  Else skinapplauncherbutton(1) = Skins.applaunchermouseover.Clone
        If Skins.applauncherclick Is Nothing Then  Else skinapplauncherbutton(2) = Skins.applauncherclick.Clone
        skinapplauncherbuttonstyle = Skins.applauncherlayout

        If Skins.borderleft Is Nothing Then  Else skinwindowborderleft(0) = Skins.borderleft.Clone
        'If ShiftOSDesktop.skinwindowborderleft(1) Is Nothing Then  Else skinwindowborderleft(1) = ShiftOSDesktop.skinwindowborderleft(1).Clone
        'If ShiftOSDesktop.skinwindowborderleft(2) Is Nothing Then  Else skinwindowborderleft(2) = ShiftOSDesktop.skinwindowborderleft(2).Clone
        skinwindowborderleftstyle = Skins.borderleftlayout

        If Skins.borderright Is Nothing Then  Else skinwindowborderright(0) = Skins.borderright.Clone
        'If ShiftOSDesktop.skinwindowborderright(1) Is Nothing Then  Else skinwindowborderright(1) = ShiftOSDesktop.skinwindowborderright(1).Clone
        'If ShiftOSDesktop.skinwindowborderright(2) Is Nothing Then  Else skinwindowborderright(2) = ShiftOSDesktop.skinwindowborderright(2).Clone
        skinwindowborderrightstyle = Skins.borderrightlayout

        If Skins.borderbottom Is Nothing Then  Else skinwindowborderbottom(0) = Skins.borderbottom.Clone
        'If ShiftOSDesktop.skinwindowborderbottom(1) Is Nothing Then  Else skinwindowborderbottom(1) = ShiftOSDesktop.skinwindowborderbottom(1).Clone
        'If ShiftOSDesktop.skinwindowborderbottom(2) Is Nothing Then  Else skinwindowborderbottom(2) = ShiftOSDesktop.skinwindowborderbottom(2).Clone
        skinwindowborderbottomstyle = Skins.borderbottomlayout

        If Skins.bottomrightcorner Is Nothing Then  Else skinwindowborderbottomright(0) = Skins.bottomrightcorner
        'If ShiftOSDesktop.skinwindowborderbottomright(1) Is Nothing Then  Else skinwindowborderbottomright(1) = ShiftOSDesktop.skinwindowborderbottomright(1).Clone
        'If ShiftOSDesktop.skinwindowborderbottomright(2) Is Nothing Then  Else skinwindowborderbottomright(2) = ShiftOSDesktop.skinwindowborderbottomright(2).Clone
        skinwindowborderbottomrightstyle = Skins.bottomrightcornerlayout

        If Skins.bottomleftcorner Is Nothing Then  Else skinwindowborderbottomleft(0) = Skins.bottomleftcorner
        'If ShiftOSDesktop.skinwindowborderbottomleft(1) Is Nothing Then  Else skinwindowborderbottomleft(1) = ShiftOSDesktop.skinwindowborderbottomleft(1).Clone
        'If ShiftOSDesktop.skinwindowborderbottomleft(2) Is Nothing Then  Else skinwindowborderbottomleft(2) = ShiftOSDesktop.skinwindowborderbottomleft(2).Clone
        skinwindowborderbottomleftstyle = Skins.bottomleftcornerlayout

        If Skins.panelbutton Is Nothing Then  Else skinpanelbutton(0) = Skins.panelbutton.Clone
        'If ShiftOSDesktop.skinpanelbutton(1) Is Nothing Then  Else skinpanelbutton(1) = ShiftOSDesktop.skinpanelbutton(1).Clone
        'If ShiftOSDesktop.skinpanelbutton(2) Is Nothing Then  Else skinpanelbutton(2) = ShiftOSDesktop.skinpanelbutton(2).Clone
        skinpanelbuttonstyle = Skins.panelbuttonlayout

        If Skins.minbtn Is Nothing Then  Else skinminimizebutton(0) = Skins.minbtn.Clone
        If Skins.minbtnhover Is Nothing Then  Else skinminimizebutton(1) = Skins.minbtnhover.Clone
        If Skins.minbtnclick Is Nothing Then  Else skinminimizebutton(2) = Skins.minbtnclick.Clone
        skinminimizebuttonstyle = Skins.minbtnlayout

        Select Case Skins.launcheritemstyle
            Case FontStyle.Bold
                launcheritemstyle.Text = "Bold"
            Case FontStyle.Italic
                launcheritemstyle.Text = "Italic"
            Case FontStyle.Regular
                launcheritemstyle.Text = "Regular"
            Case FontStyle.Strikeout
                launcheritemstyle.Text = "Strikeout"
            Case FontStyle.Underline
                launcheritemstyle.Text = "Underline"
        End Select

    End Sub

    Public Sub determinevisibleobjects()
        If ShiftOSDesktop.boughttitlebar = True Then pretitlebar.Show() Else pretitlebar.Hide()
        If ShiftOSDesktop.boughtwindowborders = True Then
            prepgright.Show()
            prepgleft.Show()
            prepgbottom.Show()
        Else
            prepgright.Hide()
            prepgleft.Hide()
            prepgbottom.Hide()
        End If
        If ShiftOSDesktop.boughtclosebutton = True Then preclosebutton.Show() Else preclosebutton.Hide()
        If ShiftOSDesktop.boughttitletext = True Then pretitletext.Show() Else pretitletext.Hide()
        If ShiftOSDesktop.boughtdesktoppanel = True Then predesktoppanel.Show() Else predesktoppanel.Hide()
        If ShiftOSDesktop.boughtdesktoppanelclock = True Then prepaneltimetext.Show() Else prepaneltimetext.Hide()
        If ShiftOSDesktop.boughtapplaunchermenu = True Then preapplaunchermenuholder.Show() Else preapplaunchermenuholder.Hide()
        If ShiftOSDesktop.boughtrollupbutton = True Then prerollupbutton.Show() Else prerollupbutton.Hide()
        If ShiftOSDesktop.boughtknowledgeinputicon = True Then prepnlicon.Show() Else prepnlicon.Hide()
        If ShiftOSDesktop.boughtpanelbuttons = True Then prepnlpanelbutton.Show() Else prepnlpanelbutton.Hide()
        If ShiftOSDesktop.boughtminimizebutton = True Then preminimizebutton.Show() Else preminimizebutton.Hide()
    End Sub

    Public Sub setupbuttons()
        If ShiftOSDesktop.boughttitlebar = True Then
            btntitlebar.Text = "Title Bar"
        Else
            btntitlebar.Text = "???"
        End If
        If ShiftOSDesktop.boughttitletext = True Then
            btntitletext.Text = "Title Text"
        Else
            btntitletext.Text = "???"
        End If
        If ShiftOSDesktop.boughtclosebutton = True OrElse ShiftOSDesktop.boughtrollupbutton = True Then
            btnbuttons.Text = "Buttons"
            combobuttonoption.Items.Clear()
            If ShiftOSDesktop.boughtclosebutton = True Then combobuttonoption.Items.Add("Close Button")
            If ShiftOSDesktop.boughtrollupbutton = True Then combobuttonoption.Items.Add("Roll Up Button")
            If ShiftOSDesktop.boughtminimizebutton = True Then combobuttonoption.Items.Add("Minimize Button")
        Else
            btnbuttons.Text = "???"
        End If
        If ShiftOSDesktop.boughtwindowborders = True Then
            btnborders.Text = "Borders"
        Else
            btnborders.Text = "???"
        End If
        If ShiftOSDesktop.boughtdesktoppanel = True Then
            btndesktoppanel.Text = "Desktop Panel"
        Else
            btndesktoppanel.Text = "???"
        End If
        If ShiftOSDesktop.boughtapplaunchermenu = True Then
            btnapplauncher.Text = "App Launcher"
        Else
            btnapplauncher.Text = "???"
        End If
        If ShiftOSDesktop.boughtdesktoppanelclock = True Then
            btnpanelclock.Text = "Panel Clock"
        Else
            btnpanelclock.Text = "???"
        End If
        If ShiftOSDesktop.boughtpanelbuttons = True Then
            btnpanelbuttons.Show()
        Else
            btnpanelbuttons.Hide()
        End If
        If ShiftOSDesktop.boughtknowledgeinputicon Then
            Label78.Show()
            Label79.Show()
            Label80.Show()
            Label81.Show()
            txticonfromside.Show()
            txticonfromtop.Show()
        Else
            Label78.Hide()
            Label79.Hide()
            Label80.Hide()
            Label81.Hide()
            txticonfromside.Hide()
            txticonfromtop.Hide()
        End If
        cbindividualbordercolours.Checked = Skins.enablebordercorners
    End Sub

    Public Sub setuppreshifterstuff()
        pretitlebar.BackColor = titlebarcolour
        prepgtoplcorner.BackColor = titlebarcolour
        prepgtoprcorner.BackColor = titlebarcolour
        prepgleft.BackColor = windowborderleftcolour
        prepgright.BackColor = windowborderrightcolour
        prepgbottom.BackColor = windowborderbottomcolour
        prepgbottomlcorner.BackColor = windowborderbottomleftcolour
        prepgbottomrcorner.BackColor = windowborderbottomrightcolour
        pretitlebar.Height = titlebarheight
        preclosebutton.BackColor = closebuttoncolour
        preclosebutton.Height = closebuttonheight
        preclosebutton.Width = closebuttonwidth
        prepgleft.Width = windowbordersize
        prepgright.Width = windowbordersize
        prepgbottom.Height = windowbordersize
        preminimizebutton.BackColor = minimizebuttoncolour
        preminimizebutton.Height = minimizebuttonheight
        preminimizebutton.Width = minimizebuttonwidth
        Select Case titletextposition
            Case "Left"
                pretitletext.Location = New Point(titletextside, titletexttop)
            Case "Centre"
                pretitletext.Location = New Point((pretitlebar.Width / 2) - pretitletext.Width / 2, titletexttop)
        End Select
        pretitletext.ForeColor = titletextcolour

        On Error Resume Next
        pretitletext.Font = New Font(titletextfont, titletextsize, titletextstyle)

        pnldesktoppreview.BackColor = desktopbackgroundcolour
        predesktoppanel.Height = desktoppanelheight
        setclocktime()
        prepaneltimetext.ForeColor = clocktextcolour
        pretimepanel.BackColor = clockbackgroundcolor
        prepaneltimetext.Font = New Font(panelclocktextfont, panelclocktextsize, panelclocktextstyle)
        prepaneltimetext.Location = New Point()
        pretimepanel.Size = New Size(prepaneltimetext.Width + 3, pretimepanel.Height)
        prepaneltimetext.Location = New Point(0, panelclocktexttop)
        ApplicationsToolStripMenuItem.Text = applicationlaunchername
        ApplicationsToolStripMenuItem.Font = New Font(applicationbuttontextfont, applicationbuttontextsize, applicationbuttontextstyle)
        preapplaunchermenuholder.Size = ApplicationsToolStripMenuItem.Size
        ToolStripManager.Renderer = New MyPreviewToolStripRenderer()
        'ShiftOSDesktop.ApplicationsToolStripMenuItem.BackColor = ShiftOSDesktop.applauncherbuttoncolour
        ApplicationsToolStripMenuItem.BackColor = Color.Transparent
        ApplicationsToolStripMenuItem.ForeColor = applicationsbuttontextcolour
        preapplaunchermenuholder.Height = applicationbuttonheight
        predesktopappmenu.Height = applicationbuttonheight
        ApplicationsToolStripMenuItem.Height = applicationbuttonheight
        prerollupbutton.BackColor = rollupbuttoncolour
        prerollupbutton.Height = rollupbuttonheight
        prerollupbutton.Width = rollupbuttonwidth
        predesktoppanel.BackColor = desktoppanelcolour
        pnldesktoppreview.BackColor = desktopbackgroundcolour
        prepnlicon.Location = New Point(titlebariconside, titlebaricontop)
        prepgtoplcorner.BackColor = titlebarleftcornercolour
        prepgtoprcorner.BackColor = titlebarrightcornercolour
        prepgtoplcorner.Width = titlebarcornerwidth
        prepgtoprcorner.Width = titlebarcornerwidth

        If ShiftOSDesktop.boughtpanelbuttons = True Then prepnlpanelbutton.Show()
        pretbicon.Location = New Point(panelbuttoniconside, panelbuttonicontop)
        pretbicon.Size = New Size(panelbuttoniconsize, panelbuttoniconsize)
        prepnlpanelbutton.Size = New Size(panelbuttonwidth, panelbuttonheight)
        prepnlpanelbutton.BackColor = panelbuttoncolour
        If skinpanelbutton(0) Is Nothing Then  Else prepnlpanelbutton.BackgroundImage = skinpanelbutton(0)
        prepnlpanelbutton.BackgroundImageLayout = skinpanelbuttonstyle
        pretbctext.ForeColor = panelbuttontextcolour
        pretbctext.Font = New Font(panelbuttontextfont, panelbuttontextsize, panelbuttontextstyle)
        pretbctext.Location = New Point(panelbuttontextside, panelbuttontexttop)
        prepnlpanelbuttonholder.Padding = New Padding(panelbuttoninitialgap, 0, 0, 0)
        prepnlpanelbutton.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0)
        If skinpanelbutton(0) Is Nothing Then  Else prepnlpanelbutton.BackColor = Color.Transparent

        Select Case desktoppanelposition
            Case "Top"
                predesktoppanel.Dock = DockStyle.Top
                predesktopappmenu.Dock = DockStyle.Top
            Case "Bottom"
                predesktoppanel.Dock = DockStyle.Bottom
                predesktopappmenu.Dock = DockStyle.Bottom
        End Select

        If skindesktoppanel(0) Is Nothing Then
            predesktoppanel.BackColor = desktoppanelcolour
            predesktoppanel.BackgroundImage = Nothing
        Else
            predesktoppanel.BackgroundImage = skindesktoppanel(0)
            predesktoppanel.BackgroundImageLayout = skindesktoppanelstyle
            predesktoppanel.BackColor = Color.Transparent
        End If

        If ShiftOSDesktop.boughtdesktoppanelclock = True Then
            setclocktime()
            prepaneltimetext.ForeColor = clocktextcolour
            If skindesktoppaneltime(0) Is Nothing Then
                pretimepanel.BackColor = clockbackgroundcolor
                pretimepanel.BackgroundImage = Nothing
            Else
                pretimepanel.BackColor = Color.Transparent
                If skindesktoppaneltime(0) Is Nothing Then  Else pretimepanel.BackgroundImage = skindesktoppaneltime(0)
                pretimepanel.BackgroundImageLayout = skindesktoppaneltimestyle
            End If
            prepaneltimetext.Font = New Font(panelclocktextfont, panelclocktextsize, panelclocktextstyle)
            pretimepanel.Size = New Size(prepaneltimetext.Width + 3, pretimepanel.Height)
            prepaneltimetext.Location = New Point(0, panelclocktexttop)
            pretimepanel.Show()
        Else
            pretimepanel.Hide()
        End If

        If showwindowcorners = True Then
            cboxtitlebarcorners.CheckState = CheckState.Checked
        Else
            cboxtitlebarcorners.CheckState = CheckState.Unchecked
        End If

        If cboxtitlebarcorners.CheckState = CheckState.Checked Then
            prepgtoplcorner.Show()
            prepgtoprcorner.Show()
            pnltitlebarleftcornercolour.Show()
            pnltitlebarrightcornercolour.Show()
            txttitlebarcornerwidth.Show()
            lbcornerwidth.Show()
            lbcornerwidthpx.Show()
            lbleftcornercolor.Show()
            lbrightcornercolor.Show()
        Else
            prepgtoplcorner.Hide()
            prepgtoprcorner.Hide()
            pnltitlebarleftcornercolour.Hide()
            pnltitlebarrightcornercolour.Hide()
            txttitlebarcornerwidth.Hide()
            lbcornerwidth.Hide()
            lbcornerwidthpx.Hide()
            lbleftcornercolor.Hide()
            lbrightcornercolor.Hide()
        End If

        If cbindividualbordercolours.CheckState = CheckState.Checked Then
            Label73.Show()
            Label74.Show()
            Label75.Show()
            Label76.Show()
            Label77.Show()
            pnlborderleftcolour.Show()
            pnlborderrightcolour.Show()
            pnlborderbottomcolour.Show()
            pnlborderbottomrightcolour.Show()
            pnlborderbottomleftcolour.Show()
        Else
            Label73.Hide()
            Label74.Hide()
            Label75.Hide()
            Label76.Hide()
            Label77.Hide()
            pnlborderleftcolour.Hide()
            pnlborderrightcolour.Hide()
            pnlborderbottomcolour.Hide()
            pnlborderbottomrightcolour.Hide()
            pnlborderbottomleftcolour.Hide()
        End If

        If ShiftOSDesktop.boughtwindowborders = True Then
            preclosebutton.Location = New Point(pretitlebar.Size.Width - closebuttonside - preclosebutton.Size.Width, closebuttontop)
            prerollupbutton.Location = New Point(pretitlebar.Size.Width - rollupbuttonside - prerollupbutton.Size.Width, rollupbuttontop)
            preminimizebutton.Location = New Point(pretitlebar.Size.Width - minimizebuttonside - preminimizebutton.Size.Width, minimizebuttontop)
        Else
            preclosebutton.Location = New Point(pretitlebar.Size.Width - closebuttonside - prepgtoplcorner.Width - prepgtoprcorner.Width - preclosebutton.Size.Width, closebuttontop)
            prerollupbutton.Location = New Point(pretitlebar.Size.Width - rollupbuttonside - prepgtoplcorner.Width - prepgtoprcorner.Width - prerollupbutton.Size.Width, rollupbuttontop)
            preminimizebutton.Location = New Point(pretitlebar.Size.Width - minimizebuttonside - prepgtoplcorner.Width - prepgtoprcorner.Width - preminimizebutton.Size.Width, minimizebuttontop)
        End If

        preapplaunchermenuholder.Width = applaunchermenuholderwidth
        predesktopappmenu.Width = applaunchermenuholderwidth
        ApplicationsToolStripMenuItem.Width = applaunchermenuholderwidth

        If skinapplauncherbutton(0) Is Nothing Then
            ApplicationsToolStripMenuItem.BackgroundImage = Nothing
            ApplicationsToolStripMenuItem.BackColor = applauncherbuttoncolour
        Else
            ApplicationsToolStripMenuItem.BackColor = Color.Transparent
            predesktopappmenu.BackColor = Color.Transparent
            ApplicationsToolStripMenuItem.BackgroundImage = skinapplauncherbutton(0)
            ApplicationsToolStripMenuItem.Text = ""
        End If

        pnltitlebarcolour.BackColor = titlebarcolour
        pnlbordercolour.BackColor = windowbordercolour
        pnlclosebuttoncolour.BackColor = closebuttoncolour
        pnltitletextcolour.BackColor = titletextcolour
        pnldesktoppanelcolour.BackColor = desktoppanelcolour
        pnldesktopcolour.BackColor = desktopbackgroundcolour
        pnlpanelclocktextcolour.BackColor = clocktextcolour
        pnlclockbackgroundcolour.BackColor = clockbackgroundcolor
        pnlmaintextcolour.BackColor = applicationsbuttontextcolour
        pnlmainbuttoncolour.BackColor = applauncherbuttoncolour
        pnlmainbuttonactivated.BackColor = applauncherbuttonclickedcolour
        pnlmenuitemscolour.BackColor = applauncherbackgroundcolour
        pnlmenuitemsmouseover.BackColor = applaunchermouseovercolour
        pnlrollupbuttoncolour.BackColor = rollupbuttoncolour
        pnltitlebarleftcornercolour.BackColor = titlebarleftcornercolour
        pnltitlebarrightcornercolour.BackColor = titlebarrightcornercolour
        pnlborderleftcolour.BackColor = windowborderleftcolour
        pnlborderrightcolour.BackColor = windowborderrightcolour
        pnlborderbottomcolour.BackColor = windowborderbottomcolour
        pnlborderbottomrightcolour.BackColor = windowborderbottomrightcolour
        pnlborderbottomleftcolour.BackColor = windowborderbottomleftcolour
        pnlminimizebuttoncolour.BackColor = minimizebuttoncolour
        pnlpanelbuttoncolour.BackColor = panelbuttoncolour
        pnlpanelbuttontextcolour.BackColor = panelbuttontextcolour

        'skins
        preclosebutton.BackgroundImage = skinclosebutton(0)
        preclosebutton.BackgroundImageLayout = skinclosebuttonstyle
        pretitlebar.BackgroundImage = shifterskintitlebar(0)
        pretitlebar.BackgroundImageLayout = skintitlebarstyle
        pnldesktoppreview.BackgroundImage = skindesktopbackground(0)
        pnldesktoppreview.BackgroundImageLayout = skindesktopbackgroundstyle
        pnlmainbuttoncolour.BackgroundImage = skinapplauncherbutton(0)
        pnlmainbuttoncolour.BackgroundImageLayout = skinapplauncherbuttonstyle
        prerollupbutton.BackgroundImage = skinrollupbutton(0)
        prerollupbutton.BackgroundImageLayout = skinrollupbuttonstyle
        prepgtoprcorner.BackgroundImage = skintitlebarrightcorner(0)
        prepgtoprcorner.BackgroundImageLayout = skintitlebarrightcornerstyle
        prepgtoplcorner.BackgroundImage = skintitlebarleftcorner(0)
        prepgtoplcorner.BackgroundImageLayout = skintitlebarleftcornerstyle
        predesktoppanel.BackgroundImage = skindesktoppanel(0)
        predesktoppanel.BackgroundImageLayout = skindesktoppanelstyle
        pretimepanel.BackgroundImage = skindesktoppaneltime(0)
        pretimepanel.BackgroundImageLayout = skindesktoppaneltimestyle
        prepgleft.BackgroundImage = skinwindowborderleft(0)
        prepgleft.BackgroundImageLayout = skinwindowborderleftstyle
        prepgright.BackgroundImage = skinwindowborderright(0)
        prepgright.BackgroundImageLayout = skinwindowborderrightstyle
        prepgbottom.BackgroundImage = skinwindowborderbottom(0)
        prepgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
        prepgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
        prepgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
        prepgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
        prepgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
        prepgbottomlcorner.Height = windowbordersize
        prepgbottomrcorner.Height = windowbordersize
        preminimizebutton.BackgroundImage = skinminimizebutton(0)
        preminimizebutton.BackgroundImageLayout = skinminimizebuttonstyle

        'invisible backgrounds
        If preclosebutton.BackgroundImage Is Nothing Then  Else preclosebutton.BackColor = Color.Transparent
        If pretitlebar.BackgroundImage Is Nothing Then  Else pretitlebar.BackColor = Color.Transparent
        If prerollupbutton.BackgroundImage Is Nothing Then  Else prerollupbutton.BackColor = Color.Transparent
        If prepgtoplcorner.BackgroundImage Is Nothing Then  Else prepgtoplcorner.BackColor = Color.Transparent
        If prepgtoprcorner.BackgroundImage Is Nothing Then  Else prepgtoprcorner.BackColor = Color.Transparent
        If prepnlpanelbutton.BackgroundImage Is Nothing Then  Else prepnlpanelbutton.BackColor = Color.Transparent
        If preminimizebutton.BackgroundImage Is Nothing Then  Else preminimizebutton.BackColor = Color.Transparent

        'pallet skins
        pnlclosebuttoncolour.BackgroundImage = skinclosebutton(0)
        pnltitlebarcolour.BackgroundImage = shifterskintitlebar(0)
        pnldesktopcolour.BackgroundImage = skindesktopbackground(0)
        pnlrollupbuttoncolour.BackgroundImage = skinrollupbutton(0)
        pnltitlebarrightcornercolour.BackgroundImage = skintitlebarrightcorner(0)
        pnltitlebarleftcornercolour.BackgroundImage = skintitlebarleftcorner(0)
        pnldesktoppanelcolour.BackgroundImage = skindesktoppanel(0)
        pnlclockbackgroundcolour.BackgroundImage = skindesktoppaneltime(0)
        pnlborderbottomcolour.BackgroundImage = skinwindowborderbottom(0)
        pnlborderleftcolour.BackgroundImage = skinwindowborderleft(0)
        pnlborderrightcolour.BackgroundImage = skinwindowborderright(0)
        pnlborderbottomrightcolour.BackgroundImage = skinwindowborderbottomright(0)
        pnlborderbottomleftcolour.BackgroundImage = skinwindowborderbottomleft(0)
        pnlminimizebuttoncolour.BackgroundImage = skinminimizebutton(0)
        pnlpanelbuttoncolour.BackgroundImage = skinpanelbutton(0)

        txttitlebarheight.Text = titlebarheight
        txtclosebuttonheight.Text = closebuttonheight
        txtclosebuttonwidth.Text = closebuttonwidth
        txtclosebuttonfromtop.Text = closebuttontop
        txtclosebuttonfromside.Text = closebuttonside
        txtbordersize.Text = windowbordersize
        txttitletexttop.Text = titletexttop
        txttitletextside.Text = titletextside
        txttitletextsize.Text = titletextsize
        combotitletextfont.Text = titletextfont
        txtdesktoppanelheight.Text = desktoppanelheight
        combodesktoppanelposition.Text = desktoppanelposition
        comboclocktextfont.Text = panelclocktextfont
        txtclocktextsize.Text = panelclocktextsize
        txtclocktextfromtop.Text = panelclocktexttop
        txtappbuttonlabel.Text = applicationlaunchername
        txtapplicationsbuttonheight.Text = applicationbuttonheight
        txtappbuttontextsize.Text = applicationbuttontextsize
        comboappbuttontextfont.Text = applicationbuttontextfont
        txtrollupbuttonheight.Text = rollupbuttonheight
        txtrollupbuttonwidth.Text = rollupbuttonwidth
        txtrollupbuttontop.Text = rollupbuttontop
        txtrollupbuttonside.Text = rollupbuttonside
        txttitlebarcornerwidth.Text = titlebarcornerwidth
        txtapplauncherwidth.Text = applaunchermenuholderwidth
        txticonfromside.Text = titlebariconside
        txticonfromtop.Text = titlebaricontop
        txtpanelbuttoninitalgap.Text = panelbuttoninitialgap
        txtpanelbuttontop.Text = panelbuttonfromtop
        txtpanelbuttonwidth.Text = panelbuttonwidth
        txtpanelbuttonheight.Text = panelbuttonheight
        txtpanelbuttongap.Text = panelbuttongap
        cbpanelbuttonfont.Text = panelbuttontextfont
        txtpaneltextbuttonsize.Text = panelbuttontextsize
        cbpanelbuttontextstyle.Text = panelbuttontextstyle
        txtpanelbuttontextside.Text = panelbuttontextside
        txtpanelbuttontexttop.Text = panelbuttontexttop
        txtpanelbuttoniconsize.Text = panelbuttoniconsize
        txtpanelbuttoniconsize.Text = panelbuttoniconsize
        txtpanelbuttoniconside.Text = panelbuttoniconside
        txtpanelbuttonicontop.Text = panelbuttonicontop

        txtminimizebuttonheight.Text = minimizebuttonheight
        txtminimizebuttonwidth.Text = minimizebuttonwidth
        txtminimizebuttontop.Text = minimizebuttontop
        txtminimizebuttonside.Text = minimizebuttonside

        Select Case titletextstyle
            Case FontStyle.Bold
                combotitletextstyle.Text = "Bold"
            Case FontStyle.Italic
                combotitletextstyle.Text = "Italic"
            Case FontStyle.Regular
                combotitletextstyle.Text = "Regular"
            Case FontStyle.Strikeout
                combotitletextstyle.Text = "Strikeout"
            Case FontStyle.Underline
                combotitletextstyle.Text = "Underline"
        End Select

        Select Case panelclocktextstyle
            Case FontStyle.Bold
                comboclocktextstyle.Text = "Bold"
            Case FontStyle.Italic
                comboclocktextstyle.Text = "Italic"
            Case FontStyle.Regular
                comboclocktextstyle.Text = "Regular"
            Case FontStyle.Strikeout
                comboclocktextstyle.Text = "Strikeout"
            Case FontStyle.Underline
                comboclocktextstyle.Text = "Underline"
        End Select

        Select Case applicationbuttontextstyle
            Case FontStyle.Bold
                comboappbuttontextstyle.Text = "Bold"
            Case FontStyle.Italic
                comboappbuttontextstyle.Text = "Italic"
            Case FontStyle.Regular
                comboappbuttontextstyle.Text = "Regular"
            Case FontStyle.Strikeout
                comboappbuttontextstyle.Text = "Strikeout"
            Case FontStyle.Underline
                comboappbuttontextstyle.Text = "Underline"
        End Select

        Select Case panelbuttontextstyle
            Case FontStyle.Bold
                cbpanelbuttontextstyle.Text = "Bold"
            Case FontStyle.Italic
                cbpanelbuttontextstyle.Text = "Italic"
            Case FontStyle.Regular
                cbpanelbuttontextstyle.Text = "Regular"
            Case FontStyle.Strikeout
                cbpanelbuttontextstyle.Text = "Strikeout"
            Case FontStyle.Underline
                cbpanelbuttontextstyle.Text = "Underline"
        End Select

        Select Case titletextposition
            Case "Left"
                combotitletextposition.Text = "Left"
            Case "Centre"
                combotitletextposition.Text = "Centre"
        End Select

        If combotitletextposition.Text = "Centre" Then
            txttitletextside.Visible = False
        Else
            txttitletextside.Visible = True
        End If

        Dim itemstyle As FontStyle = FontStyle.Regular
        Select Case launcheritemstyle.SelectedItem.ToString
            Case "Bold"
                itemstyle = FontStyle.Bold
            Case "Italic"
                itemstyle = FontStyle.Italic
            Case "Regular"
                itemstyle = FontStyle.Regular
            Case "Strikeout"
                itemstyle = FontStyle.Strikeout
            Case "Underline"
                itemstyle = FontStyle.Underline
        End Select

        Dim itemsize As Integer
        If Not txtlauncheritemtxtsize.Text = "" Then itemsize = txtlauncheritemtxtsize.Text Else itemsize = Skins.launcheritemsize

        KnowledgeInputToolStripMenuItem.Font = New Font(launcheritemfont.Text, itemsize, itemstyle)
        TerminalToolStripMenuItem.Font = New Font(launcheritemfont.Text, itemsize, itemstyle)
        ClockToolStripMenuItem.Font = New Font(launcheritemfont.Text, itemsize, itemstyle)
        ShiftoriumToolStripMenuItem.Font = New Font(launcheritemfont.Text, itemsize, itemstyle)
        ShifterToolStripMenuItem.Font = New Font(launcheritemfont.Text, itemsize, itemstyle)
        ShutdownToolStripMenuItem.Font = New Font(launcheritemfont.Text, itemsize, itemstyle)
        KnowledgeInputToolStripMenuItem.ForeColor = launcheritemtxtcolour.BackColor
        TerminalToolStripMenuItem.ForeColor = launcheritemtxtcolour.BackColor
        ClockToolStripMenuItem.ForeColor = launcheritemtxtcolour.BackColor
        ShiftoriumToolStripMenuItem.ForeColor = launcheritemtxtcolour.BackColor
        ShifterToolStripMenuItem.ForeColor = launcheritemtxtcolour.BackColor
        ShutdownToolStripMenuItem.ForeColor = launcheritemtxtcolour.BackColor

        customizationsdone = customizationsdone + 1
    End Sub

    Private Sub AddFonts()
        ' Get the installed fonts collection.
        Dim allFonts As New Drawing.Text.InstalledFontCollection

        ' Get an array of the system's font familiies.
        Dim fontFamilies() As FontFamily = allFonts.Families()

        ' Display the font families.
        For Each myFont As FontFamily In fontFamilies
            combotitletextfont.Items.Add(myFont.Name)
            comboclocktextfont.Items.Add(myFont.Name)
            comboappbuttontextfont.Items.Add(myFont.Name)
            cbpanelbuttonfont.Items.Add(myFont.Name)
            launcheritemfont.Items.Add(myFont.Name)
            cmbaalusrfont.Items.Add(myFont.Name)
        Next 'font_family
    End Sub

    Private Sub btnapply_Click(sender As Object, e As EventArgs) Handles btnapply.Click
        If Skin_Loader.Visible = True Then
            infobox.title = "Shifter - Error"
            infobox.textinfo = "It appears that the Skin Loader application is currently open." & Environment.NewLine & Environment.NewLine & "Due to system stability issues you must close it before applying your changes!"
            infobox.Show()
        Else
            ' Set skinning varibles to new values
            ' WINDOWS
            ' Image
            If Not IsNothing(pretitlebar.BackgroundImage) Then Skins.titlebar = pretitlebar.BackgroundImage Else Skins.titlebar = Nothing
            Skins.titlebarlayout = pretitlebar.BackgroundImageLayout
            If Not IsNothing(prepgleft.BackgroundImage) Then Skins.borderleft = prepgleft.BackgroundImage Else Skins.borderleft = Nothing
            Skins.borderleftlayout = prepgleft.BackgroundImageLayout
            If Not IsNothing(prepgright.BackgroundImage) Then Skins.borderright = prepgright.BackgroundImage Else Skins.borderright = Nothing
            Skins.borderrightlayout = prepgright.BackgroundImageLayout
            If Not IsNothing(prepgbottom.BackgroundImage) Then Skins.borderbottom = prepgbottom.BackgroundImage Else Skins.borderbottom = Nothing
            Skins.borderbottomlayout = prepgbottom.BackgroundImageLayout
            If Not IsNothing(preclosebutton.BackgroundImage) Then Skins.closebtn = preclosebutton.BackgroundImage Else Skins.closebtn = Nothing
            Skins.closebtnlayout = preclosebutton.BackgroundImageLayout
            If Not IsNothing(preclosebutton.BackgroundImage) Then Skins.closebtnhover = preclosebutton.BackgroundImage Else Skins.closebtnhover = Nothing
            If Not IsNothing(preclosebutton.BackgroundImage) Then Skins.closebtnclick = preclosebutton.BackgroundImage Else Skins.closebtnclick = Nothing
            If Not IsNothing(prerollupbutton.BackgroundImage) Then Skins.rollbtn = prerollupbutton.BackgroundImage Else Skins.rollbtn = Nothing
            Skins.rollbtnlayout = prerollupbutton.BackgroundImageLayout
            If Not IsNothing(prerollupbutton.BackgroundImage) Then Skins.rollbtnhover = prerollupbutton.BackgroundImage Else Skins.rollbtnhover = Nothing
            If Not IsNothing(prerollupbutton.BackgroundImage) Then Skins.rollbtnclick = prerollupbutton.BackgroundImage Else Skins.rollbtnclick = Nothing
            If Not IsNothing(preminimizebutton.BackgroundImage) Then Skins.minbtn = preminimizebutton.BackgroundImage Else Skins.minbtn = Nothing
            Skins.minbtnlayout = preminimizebutton.BackgroundImageLayout
            If Not IsNothing(preminimizebutton.BackgroundImage) Then Skins.minbtnhover = preminimizebutton.BackgroundImage Else Skins.minbtnhover = Nothing
            If Not IsNothing(preminimizebutton.BackgroundImage) Then Skins.minbtnclick = preminimizebutton.BackgroundImage Else Skins.minbtnclick = Nothing
            If Not IsNothing(prepgbottomrcorner.BackgroundImage) Then Skins.rightcorner = prepgbottomrcorner.BackgroundImage Else Skins.rightcorner = Nothing
            Skins.rightcornerlayout = prepgbottomrcorner.BackgroundImageLayout
            If Not IsNothing(prepgbottomlcorner.BackgroundImage) Then Skins.leftcorner = prepgbottomlcorner.BackgroundImage Else Skins.leftcorner = Nothing
            Skins.leftcornerlayout = prepgbottomlcorner.BackgroundImageLayout
            'Colours
            Skins.titlebarcolour = pretitlebar.BackColor
            Skins.borderleftcolour = prepgleft.BackColor
            Skins.borderrightcolour = prepgright.BackColor
            Skins.borderbottomcolour = prepgbottom.BackColor
            Skins.closebtncolour = preclosebutton.BackColor
            Skins.closebtnhovercolour = preclosebutton.BackColor
            Skins.closebtnclickcolour = preclosebutton.BackColor
            Skins.rollbtncolour = prerollupbutton.BackColor
            Skins.rollbtnhovercolour = prerollupbutton.BackColor
            Skins.rollbtnclickcolour = prerollupbutton.BackColor
            Skins.minbtncolour = preminimizebutton.BackColor
            Skins.minbtnhovercolour = preminimizebutton.BackColor
            Skins.minbtnclickcolour = preminimizebutton.BackColor
            Skins.rightcornercolour = prepgtoprcorner.BackColor
            Skins.leftcornercolour = prepgtoplcorner.BackColor
            Skins.bottomrightcornercolour = prepgbottomrcorner.BackColor
            Skins.bottomleftcornercolour = prepgbottomlcorner.BackColor
            ' Settings
            Skins.closebtnsize = preclosebutton.Size
            Skins.rollbtnsize = prerollupbutton.Size
            Skins.minbtnsize = preminimizebutton.Size
            Skins.titlebarheight = pretitlebar.Height
            Skins.closebtnfromtop = closebuttontop
            Skins.closebtnfromside = closebuttonside
            Skins.rollbtnfromtop = rollupbuttontop
            Skins.rollbtnfromside = rollupbuttonside
            Skins.minbtnfromtop = minimizebuttontop
            Skins.minbtnfromside = minimizebuttonside
            Skins.borderwidth = prepgleft.Width
            Skins.titlebarcornerwidth = prepgtoplcorner.Width
            Skins.enablecorners = showwindowcorners
            ' Text
            Skins.titletextfontfamily = pretitletext.Font.FontFamily.Name
            Skins.titletextfontsize = pretitletext.Font.Size
            Skins.titletextfontstyle = pretitletext.Font.Style
            Skins.titletextpos = titletextposition
            Skins.titletextfromtop = titletexttop
            Skins.titletextfromside = titletextside
            Skins.titletextcolour = pretitletext.ForeColor

            Skins.launcheritemcolour = launcheritemtxtcolour.BackColor
            Skins.launcheritemfont = launcheritemfont.Text
            Select Case launcheritemstyle.SelectedItem.ToString
                Case "Bold"
                    Skins.launcheritemstyle = FontStyle.Bold
                Case "Italic"
                    Skins.launcheritemstyle = FontStyle.Italic
                Case "Regular"
                    Skins.launcheritemstyle = FontStyle.Regular
                Case "Strikeout"
                    Skins.launcheritemstyle = FontStyle.Strikeout
                Case "Underline"
                    Skins.launcheritemstyle = FontStyle.Underline
            End Select
            Skins.launcheritemsize = txtlauncheritemtxtsize.Text

            ' DESKTOP
            Skins.desktoppanelcolour = desktoppanelcolour
            Skins.desktopbackgroundcolour = desktopbackgroundcolour
            Skins.desktoppanelheight = desktoppanelheight
            Skins.desktoppanelposition = desktoppanelposition
            Skins.clocktextcolour = clocktextcolour
            Skins.clockbackgroundcolor = clockbackgroundcolor
            Skins.panelclocktexttop = panelclocktexttop
            Skins.panelclocktextsize = panelclocktextsize
            Skins.panelclocktextfont = panelclocktextfont
            Skins.panelclocktextstyle = panelclocktextstyle
            Skins.applauncherbuttoncolour = applauncherbuttoncolour
            Skins.applauncherbuttonclickedcolour = applauncherbuttonclickedcolour
            Skins.applauncherbackgroundcolour = applauncherbackgroundcolour
            Skins.applaunchermouseovercolour = applaunchermouseovercolour
            Skins.applicationsbuttontextcolour = applicationsbuttontextcolour
            Skins.applicationbuttonheight = applicationbuttonheight
            Skins.applicationbuttontextsize = applicationbuttontextsize
            Skins.applicationbuttontextfont = applicationbuttontextfont
            Skins.applicationbuttontextstyle = applicationbuttontextstyle
            Skins.applicationlaunchername = applicationlaunchername
            Skins.titletextposition = titletextposition
            Skins.applaunchermenuholderwidth = applaunchermenuholderwidth
            Skins.panelbuttonicontop = panelbuttonicontop
            Skins.panelbuttoniconside = panelbuttoniconside
            Skins.panelbuttoniconsize = panelbuttoniconsize
            Skins.panelbuttonheight = panelbuttonheight
            Skins.panelbuttonwidth = panelbuttonwidth
            Skins.panelbuttoncolour = panelbuttoncolour
            Skins.panelbuttontextcolour = panelbuttontextcolour
            Skins.panelbuttontextsize = panelbuttontextsize
            Skins.panelbuttontextfont = panelbuttontextfont
            Skins.panelbuttontextstyle = panelbuttontextstyle
            Skins.panelbuttontextside = panelbuttontextside
            Skins.panelbuttontexttop = panelbuttontexttop
            Skins.panelbuttongap = panelbuttongap
            Skins.panelbuttonfromtop = panelbuttonfromtop
            Skins.panelbuttoninitialgap = panelbuttoninitialgap
            ' images
            Skins.desktoppanel = predesktoppanel.BackgroundImage
            Skins.desktoppanellayout = predesktoppanel.BackgroundImageLayout
            Skins.desktopbackground = pnldesktoppreview.BackgroundImage
            Skins.desktopbackgroundlayout = pnldesktoppreview.BackgroundImageLayout
            Skins.panelclock = pretimepanel.BackgroundImage
            Skins.panelclocklayout = pretimepanel.BackgroundImageLayout
            Skins.applaunchermouseover = skinapplauncherbutton(1)
            Skins.applauncher = skinapplauncherbutton(0)
            Skins.applauncherlayout = skinapplauncherbuttonstyle
            Skins.applauncherclick = skinapplauncherbutton(2)
            Skins.panelbutton = prepnlpanelbutton.BackgroundImage
            Skins.panelbuttonlayout = prepnlpanelbutton.BackgroundImageLayout
            Skins.leftcorner = prepgtoplcorner.BackgroundImage
            Skins.rightcorner = prepgtoprcorner.BackgroundImage

            Skins.bottomleftcorner = prepgbottomlcorner.BackgroundImage
            Skins.bottomleftcornerlayout = prepgbottomlcorner.BackgroundImageLayout
            Skins.bottomrightcorner = prepgbottomrcorner.BackgroundImage
            Skins.bottomrightcornerlayout = prepgbottomrcorner.BackgroundImageLayout
            Skins.enablebordercorners = cbindividualbordercolours.Checked
            Skins.titleiconfromside = titlebariconside
            Skins.titleiconfromtop = titlebaricontop
            Skins.enabledraggableicons = CheckBox1.Checked
            Skins.icontextcolor = icontextcolor

            'Adv App Launcher - Suggested by DevX

            Skins.usernametextcolor = usernametextcolor
            Skins.usernamefont = usernamefont
            Skins.usernamefontsize = usernamefontsize
            Skins.usernamefontstyle = usernamefontstyle
            Skins.userNamePanelBackgroundColor = usernamebgcolor
            Try
                Skins.userNamePanelBackground = skinuserpanel(0)
            Catch
                Skins.userNamePanelBackground = Nothing
            End Try
            Skins.powerPanelBackgroundColor = powerpanelbgcolor
            Try
                Skins.powerPanelBackgroundImage = skinshutdownbutton(0)
            Catch
                Skins.powerPanelBackgroundImage = Nothing
            End Try
            Skins.pwrPanelBackgroundLayout = pwrbglayout
            ' APPLY
            Skins.saveskinfiles(True)
            'windows resize fix
            ' earn code points
            customizationpointsearned = customizationtimepoints
            If customizationsdone < 0 Then customizationpointsearned = customizationpointsearned - Math.Abs(customizationsdone)
            ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + customizationpointsearned
            btnapply.Text = "Earned " & customizationpointsearned & " CP"
            btnapply.BackColor = Color.Black
            btnapply.ForeColor = Color.White
            customizationtimepoints = 0
            customizationsdone = 0
            customizationpointsearned = 0
            timerearned.Start()
        End If

    End Sub

    Dim timingissuefixer As Integer = 0
    Public Sub applysettings()
        If My.Computer.FileSystem.DirectoryExists(ShiftOSPath + "Shiftum42\Skins\CurrentCopy\") Then My.Computer.FileSystem.DeleteDirectory(ShiftOSPath + "Shiftum42\Skins\CurrentCopy\", FileIO.DeleteDirectoryOption.DeleteAllContents)
        saveskintocurrentskin()

        'delay fixes timing issue
        tmrdelay.Start()
        If timingissuefixer > 10 Then
            tmrdelay.Stop()

            'quick fixes
            If titlebarheight > 500 Then
                titlebarheight = 500
                txttitlebarheight.Text = "500"
            End If

            If windowbordersize > 500 Then
                windowbordersize = 500
                txtbordersize.Text = "500"
            End If

            If desktoppanelheight > 500 Then
                desktoppanelheight = 500
                txtdesktoppanelheight.Text = "500"
            End If

            'ShiftOSDesktop.titlebarcolour = titlebarcolour
            'ShiftOSDesktop.windowbordercolour = windowbordercolour
            'ShiftOSDesktop.windowbordersize = windowbordersize
            'ShiftOSDesktop.titlebarheight = titlebarheight
            'ShiftOSDesktop.closebuttoncolour = closebuttoncolour
            'ShiftOSDesktop.closebuttonheight = closebuttonheight
            'ShiftOSDesktop.closebuttonwidth = closebuttonwidth
            'ShiftOSDesktop.closebuttontop = closebuttontop
            'ShiftOSDesktop.closebuttonside = closebuttonside
            'ShiftOSDesktop.titletextcolour = titletextcolour
            'ShiftOSDesktop.titletexttop = titletexttop
            'ShiftOSDesktop.titletextside = titletextside
            'ShiftOSDesktop.titletextsize = titletextsize
            'ShiftOSDesktop.titletextfont = titletextfont
            'ShiftOSDesktop.titletextstyle = titletextstyle
            'ShiftOSDesktop.desktoppanelcolour = desktoppanelcolour
            'ShiftOSDesktop.desktopbackgroundcolour = desktopbackgroundcolour
            'ShiftOSDesktop.desktoppanelheight = desktoppanelheight
            'ShiftOSDesktop.desktoppanelposition = desktoppanelposition
            'ShiftOSDesktop.clocktextcolour = clocktextcolour
            'ShiftOSDesktop.clockbackgroundcolor = clockbackgroundcolor
            'ShiftOSDesktop.panelclocktexttop = panelclocktexttop
            'ShiftOSDesktop.panelclocktextsize = panelclocktextsize
            'ShiftOSDesktop.panelclocktextfont = panelclocktextfont
            'ShiftOSDesktop.panelclocktextstyle = panelclocktextstyle
            'ShiftOSDesktop.applauncherbuttoncolour = applauncherbuttoncolour
            'ShiftOSDesktop.applauncherbuttonclickedcolour = applauncherbuttonclickedcolour
            'ShiftOSDesktop.applauncherbackgroundcolour = applauncherbackgroundcolour
            'ShiftOSDesktop.applaunchermouseovercolour = applaunchermouseovercolour
            'ShiftOSDesktop.ApplicationsToolStripMenuItem.BackColor = Color.Transparent
            'ShiftOSDesktop.applicationsbuttontextcolour = applicationsbuttontextcolour
            'ShiftOSDesktop.applicationbuttonheight = applicationbuttonheight
            'ShiftOSDesktop.applicationbuttontextsize = applicationbuttontextsize
            'ShiftOSDesktop.applicationbuttontextfont = applicationbuttontextfont
            'ShiftOSDesktop.applicationbuttontextstyle = applicationbuttontextstyle
            'ShiftOSDesktop.applicationlaunchername = applicationlaunchername
            'ShiftOSDesktop.titletextposition = titletextposition
            'ShiftOSDesktop.rollupbuttoncolour = rollupbuttoncolour
            'ShiftOSDesktop.rollupbuttonheight = rollupbuttonheight
            'ShiftOSDesktop.rollupbuttonwidth = rollupbuttonwidth
            'ShiftOSDesktop.rollupbuttonside = rollupbuttonside
            'ShiftOSDesktop.rollupbuttontop = rollupbuttontop
            'ShiftOSDesktop.titlebariconside = titlebariconside
            'ShiftOSDesktop.titlebaricontop = titlebaricontop
            'ShiftOSDesktop.showwindowcorners = showwindowcorners
            'ShiftOSDesktop.titlebarcornerwidth = titlebarcornerwidth
            'ShiftOSDesktop.titlebarrightcornercolour = titlebarrightcornercolour
            'ShiftOSDesktop.titlebarleftcornercolour = titlebarleftcornercolour
            'ShiftOSDesktop.applaunchermenuholderwidth = applaunchermenuholderwidth
            'ShiftOSDesktop.windowborderleftcolour = windowborderleftcolour
            'ShiftOSDesktop.windowborderrightcolour = windowborderrightcolour
            'ShiftOSDesktop.windowborderbottomcolour = windowborderbottomcolour
            'ShiftOSDesktop.windowborderbottomrightcolour = windowborderbottomrightcolour
            'ShiftOSDesktop.windowborderbottomleftcolour = windowborderbottomleftcolour
            'ShiftOSDesktop.panelbuttonicontop = panelbuttonicontop
            'ShiftOSDesktop.panelbuttoniconside = panelbuttoniconside
            'ShiftOSDesktop.panelbuttoniconsize = panelbuttoniconsize
            'ShiftOSDesktop.panelbuttoniconsize = panelbuttoniconsize
            'ShiftOSDesktop.panelbuttonheight = panelbuttonheight
            'ShiftOSDesktop.panelbuttonwidth = panelbuttonwidth
            'ShiftOSDesktop.panelbuttoncolour = panelbuttoncolour
            'ShiftOSDesktop.panelbuttontextcolour = panelbuttontextcolour
            'ShiftOSDesktop.panelbuttontextsize = panelbuttontextsize
            'ShiftOSDesktop.panelbuttontextfont = panelbuttontextfont
            'ShiftOSDesktop.panelbuttontextstyle = panelbuttontextstyle
            'ShiftOSDesktop.panelbuttontextside = panelbuttontextside
            'ShiftOSDesktop.panelbuttontexttop = panelbuttontexttop
            'ShiftOSDesktop.panelbuttongap = panelbuttongap
            'ShiftOSDesktop.panelbuttonfromtop = panelbuttonfromtop
            'ShiftOSDesktop.panelbuttoninitialgap = panelbuttoninitialgap
            'ShiftOSDesktop.minimizebuttoncolour = minimizebuttoncolour
            'ShiftOSDesktop.minimizebuttonheight = minimizebuttonheight
            'ShiftOSDesktop.minimizebuttonwidth = minimizebuttonwidth
            'ShiftOSDesktop.minimizebuttonside = minimizebuttonside
            'ShiftOSDesktop.minimizebuttontop = minimizebuttontop

            If shifterskinimages(0) = Nothing Then  Else skinclosebutton(0) = GetImage(shifterskinimages(0))
            If shifterskinimages(1) = Nothing Then  Else skinclosebutton(1) = GetImage(shifterskinimages(1))
            If shifterskinimages(2) = Nothing Then  Else skinclosebutton(2) = GetImage(shifterskinimages(2))
            If shifterskinimages(3) = Nothing Then  Else shifterskintitlebar(0) = GetImage(shifterskinimages(3))
            If shifterskinimages(4) = Nothing Then  Else shifterskintitlebar(1) = GetImage(shifterskinimages(4))
            If shifterskinimages(5) = Nothing Then  Else shifterskintitlebar(2) = GetImage(shifterskinimages(5))
            If shifterskinimages(6) = Nothing Then  Else skindesktopbackground(0) = GetImage(shifterskinimages(6))
            If shifterskinimages(7) = Nothing Then  Else skindesktopbackground(1) = GetImage(shifterskinimages(7))
            If shifterskinimages(8) = Nothing Then  Else skindesktopbackground(2) = GetImage(shifterskinimages(8))
            If shifterskinimages(9) = Nothing Then  Else skinrollupbutton(0) = GetImage(shifterskinimages(9))
            If shifterskinimages(10) = Nothing Then  Else skinrollupbutton(1) = GetImage(shifterskinimages(10))
            If shifterskinimages(11) = Nothing Then  Else skinrollupbutton(2) = GetImage(shifterskinimages(11))
            If shifterskinimages(12) = Nothing Then  Else skintitlebarrightcorner(0) = GetImage(shifterskinimages(12))
            If shifterskinimages(13) = Nothing Then  Else skintitlebarrightcorner(1) = GetImage(shifterskinimages(13))
            If shifterskinimages(14) = Nothing Then  Else skintitlebarrightcorner(2) = GetImage(shifterskinimages(14))
            If shifterskinimages(15) = Nothing Then  Else skintitlebarleftcorner(0) = GetImage(shifterskinimages(15))
            If shifterskinimages(16) = Nothing Then  Else skintitlebarleftcorner(1) = GetImage(shifterskinimages(16))
            If shifterskinimages(17) = Nothing Then  Else skintitlebarleftcorner(2) = GetImage(shifterskinimages(17))
            If shifterskinimages(18) = Nothing Then  Else skindesktoppanel(0) = GetImage(shifterskinimages(18))
            If shifterskinimages(19) = Nothing Then  Else skindesktoppanel(1) = GetImage(shifterskinimages(19))
            If shifterskinimages(20) = Nothing Then  Else skindesktoppanel(2) = GetImage(shifterskinimages(20))
            If shifterskinimages(21) = Nothing Then  Else skindesktoppaneltime(0) = GetImage(shifterskinimages(21))
            If shifterskinimages(22) = Nothing Then  Else skindesktoppaneltime(1) = GetImage(shifterskinimages(22))
            If shifterskinimages(23) = Nothing Then  Else skindesktoppaneltime(2) = GetImage(shifterskinimages(23))
            If shifterskinimages(24) = Nothing Then  Else skinapplauncherbutton(0) = GetImage(shifterskinimages(24))
            If shifterskinimages(25) = Nothing Then  Else skinapplauncherbutton(1) = GetImage(shifterskinimages(25))
            If shifterskinimages(26) = Nothing Then  Else skinapplauncherbutton(2) = GetImage(shifterskinimages(26))
            If shifterskinimages(27) = Nothing Then  Else skinwindowborderleft(0) = GetImage(shifterskinimages(27))
            If shifterskinimages(28) = Nothing Then  Else skinwindowborderleft(1) = GetImage(shifterskinimages(28))
            If shifterskinimages(29) = Nothing Then  Else skinwindowborderleft(2) = GetImage(shifterskinimages(29))
            If shifterskinimages(30) = Nothing Then  Else skinwindowborderright(0) = GetImage(shifterskinimages(30))
            If shifterskinimages(31) = Nothing Then  Else skinwindowborderright(1) = GetImage(shifterskinimages(31))
            If shifterskinimages(32) = Nothing Then  Else skinwindowborderright(2) = GetImage(shifterskinimages(32))
            If shifterskinimages(33) = Nothing Then  Else skinwindowborderbottom(0) = GetImage(shifterskinimages(33))
            If shifterskinimages(34) = Nothing Then  Else skinwindowborderbottom(1) = GetImage(shifterskinimages(34))
            If shifterskinimages(35) = Nothing Then  Else skinwindowborderbottom(2) = GetImage(shifterskinimages(35))
            If shifterskinimages(36) = Nothing Then  Else skinwindowborderbottomright(0) = GetImage(shifterskinimages(36))
            If shifterskinimages(37) = Nothing Then  Else skinwindowborderbottomright(1) = GetImage(shifterskinimages(37))
            If shifterskinimages(38) = Nothing Then  Else skinwindowborderbottomright(2) = GetImage(shifterskinimages(38))
            If shifterskinimages(39) = Nothing Then  Else skinwindowborderbottomleft(0) = GetImage(shifterskinimages(39))
            If shifterskinimages(40) = Nothing Then  Else skinwindowborderbottomleft(1) = GetImage(shifterskinimages(40))
            If shifterskinimages(41) = Nothing Then  Else skinwindowborderbottomleft(2) = GetImage(shifterskinimages(41))
            If shifterskinimages(42) = Nothing Then  Else skinminimizebutton(0) = GetImage(shifterskinimages(42))
            If shifterskinimages(43) = Nothing Then  Else skinminimizebutton(1) = GetImage(shifterskinimages(43))
            If shifterskinimages(44) = Nothing Then  Else skinminimizebutton(2) = GetImage(shifterskinimages(44))
            If shifterskinimages(45) = Nothing Then  Else skinpanelbutton(0) = GetImage(shifterskinimages(45))
            If shifterskinimages(46) = Nothing Then  Else skinpanelbutton(1) = GetImage(shifterskinimages(46))
            If shifterskinimages(47) = Nothing Then  Else skinpanelbutton(2) = GetImage(shifterskinimages(47))

            ''skins
            'Array.Copy(shifterskinimages, ShiftOSDesktop.skinimages, ShiftOSDesktop.skinimages.Length)

            'If skinclosebutton(0) Is Nothing Then  Else ShiftOSDesktop.skinclosebutton(0) = skinclosebutton(0).Clone
            'If skinclosebutton(1) Is Nothing Then  Else ShiftOSDesktop.skinclosebutton(1) = skinclosebutton(1).Clone
            'If skinclosebutton(2) Is Nothing Then  Else ShiftOSDesktop.skinclosebutton(2) = skinclosebutton(2).Clone
            'ShiftOSDesktop.skinclosebuttonstyle = skinclosebuttonstyle

            'If shifterskintitlebar(0) Is Nothing Then  Else ShiftOSDesktop.skintitlebar(0) = shifterskintitlebar(0).Clone
            'If shifterskintitlebar(1) Is Nothing Then  Else ShiftOSDesktop.skintitlebar(1) = shifterskintitlebar(1).Clone
            'If shifterskintitlebar(2) Is Nothing Then  Else ShiftOSDesktop.skintitlebar(2) = shifterskintitlebar(2).Clone
            'ShiftOSDesktop.skintitlebarstyle = skintitlebarstyle

            'If skindesktopbackground(0) Is Nothing Then  Else ShiftOSDesktop.skindesktopbackground(0) = skindesktopbackground(0).Clone
            'If skindesktopbackground(1) Is Nothing Then  Else ShiftOSDesktop.skindesktopbackground(1) = skindesktopbackground(1).Clone
            'If skindesktopbackground(2) Is Nothing Then  Else ShiftOSDesktop.skindesktopbackground(2) = skindesktopbackground(2).Clone
            'ShiftOSDesktop.skindesktopbackgroundstyle = skindesktopbackgroundstyle

            'If skinrollupbutton(0) Is Nothing Then  Else ShiftOSDesktop.skinrollupbutton(0) = skinrollupbutton(0).Clone
            'If skinrollupbutton(1) Is Nothing Then  Else ShiftOSDesktop.skinrollupbutton(1) = skinrollupbutton(1).Clone
            'If skinrollupbutton(2) Is Nothing Then  Else ShiftOSDesktop.skinrollupbutton(2) = skinrollupbutton(2).Clone
            'ShiftOSDesktop.skinrollupbuttonstyle = skinrollupbuttonstyle

            'If skintitlebarrightcorner(0) Is Nothing Then  Else ShiftOSDesktop.skintitlebarrightcorner(0) = skintitlebarrightcorner(0).Clone
            'If skintitlebarrightcorner(1) Is Nothing Then  Else ShiftOSDesktop.skintitlebarrightcorner(1) = skintitlebarrightcorner(1).Clone
            'If skintitlebarrightcorner(2) Is Nothing Then  Else ShiftOSDesktop.skintitlebarrightcorner(2) = skintitlebarrightcorner(2).Clone
            'ShiftOSDesktop.skintitlebarrightcornerstyle = skintitlebarrightcornerstyle

            'If skintitlebarleftcorner(0) Is Nothing Then  Else ShiftOSDesktop.skintitlebarleftcorner(0) = skintitlebarleftcorner(0).Clone
            'If skintitlebarleftcorner(1) Is Nothing Then  Else ShiftOSDesktop.skintitlebarleftcorner(1) = skintitlebarleftcorner(1).Clone
            'If skintitlebarleftcorner(2) Is Nothing Then  Else ShiftOSDesktop.skintitlebarleftcorner(2) = skintitlebarleftcorner(2).Clone
            'ShiftOSDesktop.skintitlebarleftcornerstyle = skintitlebarleftcornerstyle

            'If skindesktoppanel(0) Is Nothing Then  Else ShiftOSDesktop.skindesktoppanel(0) = skindesktoppanel(0).Clone
            'If skindesktoppanel(1) Is Nothing Then  Else ShiftOSDesktop.skindesktoppanel(1) = skindesktoppanel(1).Clone
            'If skindesktoppanel(2) Is Nothing Then  Else ShiftOSDesktop.skindesktoppanel(2) = skindesktoppanel(2).Clone
            'ShiftOSDesktop.skindesktoppanelstyle = skindesktoppanelstyle

            'If skindesktoppaneltime(0) Is Nothing Then  Else ShiftOSDesktop.skindesktoppaneltime(0) = skindesktoppaneltime(0).Clone
            'If skindesktoppaneltime(1) Is Nothing Then  Else ShiftOSDesktop.skindesktoppaneltime(1) = skindesktoppaneltime(1).Clone
            'If skindesktoppaneltime(2) Is Nothing Then  Else ShiftOSDesktop.skindesktoppaneltime(2) = skindesktoppaneltime(2).Clone
            'ShiftOSDesktop.skindesktoppaneltimestyle = skindesktoppaneltimestyle

            'If skinapplauncherbutton(0) Is Nothing Then  Else ShiftOSDesktop.skinapplauncherbutton(0) = skinapplauncherbutton(0).Clone
            'If skinapplauncherbutton(1) Is Nothing Then  Else ShiftOSDesktop.skinapplauncherbutton(1) = skinapplauncherbutton(1).Clone
            'If skinapplauncherbutton(2) Is Nothing Then  Else ShiftOSDesktop.skinapplauncherbutton(2) = skinapplauncherbutton(2).Clone
            'ShiftOSDesktop.skinapplauncherbuttonstyle = skinapplauncherbuttonstyle

            'If skinwindowborderleft(0) Is Nothing Then  Else ShiftOSDesktop.skinwindowborderleft(0) = skinwindowborderleft(0).Clone
            'If skinwindowborderleft(1) Is Nothing Then  Else ShiftOSDesktop.skinwindowborderleft(1) = skinwindowborderleft(1).Clone
            'If skinwindowborderleft(2) Is Nothing Then  Else ShiftOSDesktop.skinwindowborderleft(2) = skinwindowborderleft(2).Clone
            'ShiftOSDesktop.skinwindowborderleftstyle = skinwindowborderleftstyle

            'If skinwindowborderright(0) Is Nothing Then  Else ShiftOSDesktop.skinwindowborderright(0) = skinwindowborderright(0).Clone
            'If skinwindowborderright(1) Is Nothing Then  Else ShiftOSDesktop.skinwindowborderright(1) = skinwindowborderright(1).Clone
            'If skinwindowborderright(2) Is Nothing Then  Else ShiftOSDesktop.skinwindowborderright(2) = skinwindowborderright(2).Clone
            'ShiftOSDesktop.skinwindowborderrightstyle = skinwindowborderrightstyle

            'If skinwindowborderbottom(0) Is Nothing Then  Else ShiftOSDesktop.skinwindowborderbottom(0) = skinwindowborderbottom(0).Clone
            'If skinwindowborderbottom(1) Is Nothing Then  Else ShiftOSDesktop.skinwindowborderbottom(1) = skinwindowborderbottom(1).Clone
            'If skinwindowborderbottom(2) Is Nothing Then  Else ShiftOSDesktop.skinwindowborderbottom(2) = skinwindowborderbottom(2).Clone
            'ShiftOSDesktop.skinwindowborderbottomstyle = skinwindowborderbottomstyle

            'If skinwindowborderbottomright(0) Is Nothing Then  Else ShiftOSDesktop.skinwindowborderbottomright(0) = skinwindowborderbottomright(0).Clone
            'If skinwindowborderbottomright(1) Is Nothing Then  Else ShiftOSDesktop.skinwindowborderbottomright(1) = skinwindowborderbottomright(1).Clone
            'If skinwindowborderbottomright(2) Is Nothing Then  Else ShiftOSDesktop.skinwindowborderbottomright(2) = skinwindowborderbottomright(2).Clone
            'ShiftOSDesktop.skinwindowborderbottomrightstyle = skinwindowborderbottomrightstyle

            'If skinwindowborderbottomleft(0) Is Nothing Then  Else ShiftOSDesktop.skinwindowborderbottomleft(0) = skinwindowborderbottomleft(0).Clone
            'If skinwindowborderbottomleft(1) Is Nothing Then  Else ShiftOSDesktop.skinwindowborderbottomleft(1) = skinwindowborderbottomleft(1).Clone
            'If skinwindowborderbottomleft(2) Is Nothing Then  Else ShiftOSDesktop.skinwindowborderbottomleft(2) = skinwindowborderbottomleft(2).Clone
            'ShiftOSDesktop.skinwindowborderbottomleftstyle = skinwindowborderbottomleftstyle

            'If skinpanelbutton(0) Is Nothing Then  Else ShiftOSDesktop.skinpanelbutton(0) = skinpanelbutton(0).Clone
            'If skinpanelbutton(1) Is Nothing Then  Else ShiftOSDesktop.skinpanelbutton(1) = skinpanelbutton(1).Clone
            'If skinpanelbutton(2) Is Nothing Then  Else ShiftOSDesktop.skinpanelbutton(2) = skinpanelbutton(2).Clone
            'ShiftOSDesktop.skinpanelbuttonstyle = skinpanelbuttonstyle

            'If skinminimizebutton(0) Is Nothing Then  Else ShiftOSDesktop.skinminimizebutton(0) = skinminimizebutton(0).Clone
            'If skinminimizebutton(1) Is Nothing Then  Else ShiftOSDesktop.skinminimizebutton(1) = skinminimizebutton(1).Clone
            'If skinminimizebutton(2) Is Nothing Then  Else ShiftOSDesktop.skinminimizebutton(2) = skinminimizebutton(2).Clone
            'ShiftOSDesktop.skinminimizebuttonstyle = skinminimizebuttonstyle

            'GC.Collect()

            'ShiftOSDesktop.setcolours()
            ShiftOSDesktop.setupdesktop()
            ShiftOSDesktop.setuppanelbuttons()
            ShiftOSDesktop.Invalidate()

            customizationpointsearned = customizationtimepoints
            If customizationsdone < 0 Then customizationpointsearned = customizationpointsearned - Math.Abs(customizationsdone)
            ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + customizationpointsearned
            btnapply.Text = "Earned " & customizationpointsearned & " CP"
            btnapply.BackColor = Color.Black
            btnapply.ForeColor = Color.White
            customizationtimepoints = 0
            customizationsdone = 0
            customizationpointsearned = 0
            timerearned.Start()

            If My.Computer.FileSystem.DirectoryExists(ShiftOSPath + "Shiftum42\Skins\CurrentCopy\") Then My.Computer.FileSystem.DeleteDirectory(ShiftOSPath + "Shiftum42\Skins\CurrentCopy\", FileIO.DeleteDirectoryOption.DeleteAllContents)
            loadclone()

            Me.Invalidate()

        End If

    End Sub

    Private Function GetImage(ByVal fileName As String) As Bitmap
        Dim ret As Bitmap
        Using img As Image = Image.FromFile(fileName)
            ret = New Bitmap(img)
        End Using
        Return ret
    End Function

    Public Sub saveskintocurrentskin()
        If My.Computer.FileSystem.DirectoryExists(ShiftOSPath + "Shiftum42\Skins\Current\") Then  Else My.Computer.FileSystem.CreateDirectory(ShiftOSPath + "Shiftum42\Skins\Current\")
        My.Computer.FileSystem.CopyDirectory(ShiftOSPath + "Shiftum42\Skins\Current\", ShiftOSPath + "Shiftum42\Skins\CurrentCopy\")
        'ShiftOSDesktop.disposeoldskindata("shifterapply")

        For i = 0 To 50
            If shifterskinimages(i) Is Nothing Then  Else If shifterskinimages(i).Contains(ShiftOSPath + "Shiftum42\Skins\Current\") Then shifterskinimages(i) = shifterskinimages(i).Replace("Current", "CurrentCopy")
        Next

        'My.Computer.FileSystem.CopyDirectory(ShiftOSPath + "Shiftum42\Skins\ChangeOverTempFiles", ShiftOSPath + "Shiftum42\Skins\Current\")



        skinlines(0) = titlebarcolour.ToArgb
        skinlines(1) = windowbordercolour.ToArgb
        skinlines(2) = windowbordersize
        skinlines(3) = titlebarheight
        skinlines(4) = closebuttoncolour.ToArgb
        skinlines(5) = closebuttonheight
        skinlines(6) = closebuttonwidth
        skinlines(7) = closebuttonside
        skinlines(8) = closebuttontop
        skinlines(9) = titletextcolour.ToArgb
        skinlines(10) = titletexttop
        skinlines(11) = titletextside
        skinlines(12) = titletextsize
        skinlines(13) = titletextfont
        skinlines(14) = titletextstyle
        skinlines(15) = desktoppanelcolour.ToArgb
        skinlines(16) = desktopbackgroundcolour.ToArgb
        skinlines(17) = desktoppanelheight
        skinlines(18) = desktoppanelposition
        skinlines(19) = clocktextcolour.ToArgb
        skinlines(20) = clockbackgroundcolor.ToArgb
        skinlines(21) = panelclocktexttop
        skinlines(22) = panelclocktextsize
        skinlines(23) = panelclocktextfont
        skinlines(24) = panelclocktextstyle
        skinlines(25) = applauncherbuttoncolour.ToArgb
        skinlines(26) = applauncherbuttonclickedcolour.ToArgb
        skinlines(27) = applauncherbackgroundcolour.ToArgb
        skinlines(28) = applaunchermouseovercolour.ToArgb
        skinlines(29) = applicationsbuttontextcolour.ToArgb
        skinlines(30) = applicationbuttonheight
        skinlines(31) = applicationbuttontextsize
        skinlines(32) = applicationbuttontextfont
        skinlines(33) = applicationbuttontextstyle
        skinlines(34) = applicationlaunchername
        skinlines(35) = titletextposition
        skinlines(36) = rollupbuttoncolour.ToArgb
        skinlines(37) = rollupbuttonheight
        skinlines(38) = rollupbuttonwidth
        skinlines(39) = rollupbuttonside
        skinlines(40) = rollupbuttontop
        skinlines(41) = titlebariconside
        skinlines(42) = titlebaricontop
        skinlines(43) = showwindowcorners
        skinlines(44) = titlebarcornerwidth
        skinlines(45) = titlebarrightcornercolour.ToArgb
        skinlines(46) = titlebarleftcornercolour.ToArgb
        skinlines(47) = applaunchermenuholderwidth
        skinlines(48) = windowborderleftcolour.ToArgb
        skinlines(49) = windowborderrightcolour.ToArgb
        skinlines(50) = windowborderbottomcolour.ToArgb
        skinlines(51) = windowborderbottomrightcolour.ToArgb
        skinlines(52) = windowborderbottomleftcolour.ToArgb
        skinlines(50) = windowborderbottomcolour.ToArgb
        skinlines(51) = windowborderbottomrightcolour.ToArgb
        skinlines(52) = windowborderbottomleftcolour.ToArgb
        skinlines(50) = windowborderbottomcolour.ToArgb
        skinlines(51) = windowborderbottomrightcolour.ToArgb
        skinlines(52) = windowborderbottomleftcolour.ToArgb
        skinlines(50) = windowborderbottomcolour.ToArgb
        skinlines(51) = windowborderbottomrightcolour.ToArgb
        skinlines(52) = windowborderbottomleftcolour.ToArgb
        skinlines(50) = windowborderbottomcolour.ToArgb
        skinlines(51) = windowborderbottomrightcolour.ToArgb
        skinlines(52) = windowborderbottomleftcolour.ToArgb
        skinlines(50) = windowborderbottomcolour.ToArgb
        skinlines(51) = windowborderbottomrightcolour.ToArgb
        skinlines(52) = windowborderbottomleftcolour.ToArgb
        skinlines(53) = panelbuttonicontop
        skinlines(54) = panelbuttoniconside
        skinlines(55) = panelbuttoniconsize
        skinlines(56) = panelbuttoniconsize
        skinlines(57) = panelbuttonheight
        skinlines(58) = panelbuttonwidth
        skinlines(59) = panelbuttoncolour.ToArgb
        skinlines(60) = panelbuttontextcolour.ToArgb
        skinlines(61) = panelbuttontextsize
        skinlines(62) = panelbuttontextfont
        skinlines(63) = panelbuttontextstyle
        skinlines(64) = panelbuttontextside
        skinlines(65) = panelbuttontexttop
        skinlines(66) = panelbuttongap
        skinlines(67) = panelbuttonfromtop
        skinlines(68) = panelbuttoninitialgap
        skinlines(69) = minimizebuttoncolour.ToArgb
        skinlines(70) = minimizebuttonheight
        skinlines(71) = minimizebuttonwidth
        skinlines(72) = minimizebuttonside
        skinlines(73) = minimizebuttontop

        'convert real locations to currentskin folder
        Dim folderdivider As String = "\"
        For i = 0 To 50
            If shifterskinimages(i) = "" Then
            Else
                If shifterskinimages(i).Contains("\") Then folderdivider = "\" Else folderdivider = "/"
                If IO.File.Exists(shifterskinimages(i)) = True Then
                    IO.File.Copy(shifterskinimages(i), ShiftOSPath + "Shiftum42\Skins\Current\" & shifterskinimages(i).Substring(shifterskinimages(i).LastIndexOf(folderdivider)), True)
                    shifterskinimages(i) = ShiftOSPath + "Shiftum42\Skins\Current\" & shifterskinimages(i).Substring(shifterskinimages(i).LastIndexOf(folderdivider) + 1)
                Else
                    infobox.showinfo("Skinning Error", "It seems that the images used by this skin have been deleted. The file " & shifterskinimages(i) & " cannot be found.")
                End If
            End If

        Next

        skinlines(100) = shifterskinimages(0)
        skinlines(101) = shifterskinimages(1)
        skinlines(102) = shifterskinimages(2)
        skinlines(103) = shifterskinimages(3)
        skinlines(104) = shifterskinimages(4)
        skinlines(105) = shifterskinimages(5)
        skinlines(106) = shifterskinimages(6)
        skinlines(107) = shifterskinimages(7)
        skinlines(108) = shifterskinimages(8)
        skinlines(109) = shifterskinimages(9)
        skinlines(110) = shifterskinimages(10)
        skinlines(111) = shifterskinimages(11)
        skinlines(112) = shifterskinimages(12)
        skinlines(113) = shifterskinimages(13)
        skinlines(114) = shifterskinimages(14)
        skinlines(115) = shifterskinimages(15)
        skinlines(116) = shifterskinimages(16)
        skinlines(117) = shifterskinimages(17)
        skinlines(118) = shifterskinimages(18)
        skinlines(119) = shifterskinimages(19)
        skinlines(120) = shifterskinimages(20)
        skinlines(121) = shifterskinimages(21)
        skinlines(122) = shifterskinimages(22)
        skinlines(123) = shifterskinimages(23)
        skinlines(124) = shifterskinimages(24)
        skinlines(125) = shifterskinimages(25)
        skinlines(126) = shifterskinimages(26)
        skinlines(127) = shifterskinimages(27)
        skinlines(128) = shifterskinimages(28)
        skinlines(129) = shifterskinimages(29)
        skinlines(130) = shifterskinimages(30)
        skinlines(131) = shifterskinimages(31)
        skinlines(132) = shifterskinimages(32)
        skinlines(133) = shifterskinimages(33)
        skinlines(134) = shifterskinimages(34)
        skinlines(135) = shifterskinimages(35)
        skinlines(136) = shifterskinimages(36)
        skinlines(137) = shifterskinimages(37)
        skinlines(138) = shifterskinimages(38)
        skinlines(139) = shifterskinimages(39)
        skinlines(140) = shifterskinimages(40)
        skinlines(141) = shifterskinimages(41)
        skinlines(142) = shifterskinimages(42)
        skinlines(143) = shifterskinimages(43)
        skinlines(144) = shifterskinimages(44)
        skinlines(145) = shifterskinimages(45)
        skinlines(146) = shifterskinimages(46)
        skinlines(147) = shifterskinimages(47)
        skinlines(148) = shifterskinimages(48)
        skinlines(149) = shifterskinimages(49)
        skinlines(150) = shifterskinimages(50)

        IO.File.WriteAllLines(ShiftOSPath + "Shiftum42\Skins\Current\skindata.dat", skinlines)
    End Sub

    Private Sub setclocktime()
        If ShiftOSDesktop.boughtsplitsecondtime = True Then
            prepaneltimetext.Text = TimeOfDay
        Else
            If ShiftOSDesktop.boughtminuteaccuracytime = True Then
                If Date.Now.Hour < 12 Then
                    prepaneltimetext.Text = TimeOfDay.Hour & ":" & Format(TimeOfDay.Minute, "00") & " AM"
                Else
                    prepaneltimetext.Text = TimeOfDay.Hour - 12 & ":" & Format(TimeOfDay.Minute, "00") & " PM"
                End If
            Else
                If ShiftOSDesktop.boughtpmandam = True Then
                    If Date.Now.Hour < 12 Then
                        prepaneltimetext.Text = TimeOfDay.Hour & " AM"
                    Else
                        prepaneltimetext.Text = TimeOfDay.Hour - 12 & " PM"
                    End If
                Else
                    If ShiftOSDesktop.boughthourspastmidnight = True Then
                        prepaneltimetext.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60 / 60)
                    Else
                        If ShiftOSDesktop.boughtminutespastmidnight = True Then
                            prepaneltimetext.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60)
                        Else
                            If ShiftOSDesktop.boughtsecondspastmidnight = True Then
                                prepaneltimetext.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds)
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End Sub

    Private Sub pnlwindowsoptions_Paint(sender As Object, e As PaintEventArgs) Handles pnlwindowsoptions.Paint
        'e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlwindowsobjects.ClientRectangle)
    End Sub

    Private Sub catholder_Paint(sender As Object, e As PaintEventArgs) Handles catholder.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), catholder.ClientRectangle)
    End Sub

    Private Sub btnwindows_Click(sender As Object, e As EventArgs) Handles btnwindows.Click
        pnlwindowsoptions.Location = New Point(133, 6)
        pnlwindowsoptions.Size = New Size(458, 297)
        pnlwindowsoptions.Show()
        pnlwindowsoptions.BringToFront()

    End Sub



    Private Sub btnreset_Click(sender As Object, e As EventArgs) Handles btnreset.Click
        pnlreset.Location = New Point(133, 6)
        pnlreset.Size = New Size(458, 297)
        pnlreset.Show()
        pnlreset.BringToFront()

    End Sub

    Private Sub pnltitlebarcolour_Click(sender As Object, e As MouseEventArgs) Handles pnltitlebarcolour.Click
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Colour_Picker.colourtochange = "Title Bar Colour"
            Colour_Picker.oldcolour = titlebarcolour
            Colour_Picker.Show()
        Else
            If ShiftOSDesktop.boughtskinning = True Then
                Graphic_Picker.graphictochange = "Title Bar"
                Graphic_Picker.Show()
            End If
        End If
    End Sub

    Private Sub pnlbordercolour_Click(sender As Object, e As EventArgs) Handles pnlbordercolour.Click
        Colour_Picker.colourtochange = "Window Border Colour"
        Colour_Picker.oldcolour = windowbordercolour
        Colour_Picker.Show()
    End Sub

    Private Sub pnlclosebuttoncolour_Click(sender As Object, e As MouseEventArgs) Handles pnlclosebuttoncolour.Click
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Colour_Picker.colourtochange = "Close Button Colour"
            Colour_Picker.oldcolour = closebuttoncolour
            Colour_Picker.Show()
        Else
            If ShiftOSDesktop.boughtskinning = True Then
                Graphic_Picker.graphictochange = "Close Button"
                Graphic_Picker.Show()
            End If
        End If
    End Sub

    Private Sub pnlborderrightcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlborderrightcolour.Click
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Colour_Picker.colourtochange = "Border Right Colour"
            Colour_Picker.oldcolour = windowborderrightcolour
            Colour_Picker.Show()
        Else
            If ShiftOSDesktop.boughtskinning = True Then
                Graphic_Picker.graphictochange = "Border Right"
                Graphic_Picker.Show()
            End If
        End If
    End Sub

    Private Sub pnlborderleftcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlborderleftcolour.Click
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Colour_Picker.colourtochange = "Border Left Colour"
            Colour_Picker.oldcolour = windowborderleftcolour
            Colour_Picker.Show()
        Else
            If ShiftOSDesktop.boughtskinning = True Then
                Graphic_Picker.graphictochange = "Border Left"
                Graphic_Picker.Show()
            End If
        End If
    End Sub

    Private Sub pnlborderbottomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlborderbottomcolour.Click
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Colour_Picker.colourtochange = "Border Bottom Colour"
            Colour_Picker.oldcolour = windowborderbottomcolour
            Colour_Picker.Show()
        Else
            If ShiftOSDesktop.boughtskinning = True Then
                Graphic_Picker.graphictochange = "Border Bottom"
                Graphic_Picker.Show()
            End If
        End If
    End Sub

    Private Sub pnlborderbottomleftcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlborderbottomleftcolour.Click
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Colour_Picker.colourtochange = "Border Bottom Left Colour"
            Colour_Picker.oldcolour = windowborderbottomleftcolour
            Colour_Picker.Show()
        Else
            If ShiftOSDesktop.boughtskinning = True Then
                Graphic_Picker.graphictochange = "Border Bottom Left"
                Graphic_Picker.Show()
            End If
        End If
    End Sub

    Private Sub pnlborderbottomrightcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlborderbottomrightcolour.Click
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Colour_Picker.colourtochange = "Border Bottom Right Colour"
            Colour_Picker.oldcolour = windowborderbottomrightcolour
            Colour_Picker.Show()
        Else
            If ShiftOSDesktop.boughtskinning = True Then
                Graphic_Picker.graphictochange = "Border Bottom Right"
                Graphic_Picker.Show()
            End If
        End If
    End Sub

    Private Sub pnltitletextcolour_click(sender As Object, e As EventArgs) Handles pnltitletextcolour.Click
        Colour_Picker.colourtochange = "Title Text Colour"
        Colour_Picker.oldcolour = titletextcolour
        Colour_Picker.Show()
    End Sub

    Private Sub pnldesktoppanelcolour_Click(sender As Object, e As MouseEventArgs) Handles pnldesktoppanelcolour.Click
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Colour_Picker.colourtochange = "Desktop Panel Colour"
            Colour_Picker.oldcolour = desktoppanelcolour
            Colour_Picker.Show()
        Else
            If ShiftOSDesktop.boughtskinning = True Then
                Graphic_Picker.graphictochange = "Desktop Panel"
                Graphic_Picker.Show()
            End If
        End If
    End Sub

    Private Sub pnlpanelclocktextcolour_Click(sender As Object, e As EventArgs) Handles pnlpanelclocktextcolour.Click
        Colour_Picker.colourtochange = "Clock Text Colour"
        Colour_Picker.oldcolour = clocktextcolour
        Colour_Picker.Show()
    End Sub

    Private Sub pnlclockbackgroundcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlclockbackgroundcolour.Click
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Colour_Picker.colourtochange = "Clock Background Colour"
            Colour_Picker.oldcolour = clockbackgroundcolor
            Colour_Picker.Show()
        Else
            If ShiftOSDesktop.boughtskinning = True Then
                Graphic_Picker.graphictochange = "Clock Background"
                Graphic_Picker.Show()
            End If
        End If
    End Sub

    Private Sub pnldesktopcolour_Click(sender As Object, e As MouseEventArgs) Handles pnldesktopcolour.Click
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Colour_Picker.colourtochange = "Desktop Background Colour"
            Colour_Picker.oldcolour = desktopbackgroundcolour
            Colour_Picker.Show()
        Else
            If ShiftOSDesktop.boughtskinning = True Then
                Graphic_Picker.graphictochange = "Desktop Background"
                Graphic_Picker.Show()
            End If
        End If
    End Sub

    Private Sub pnlmainbuttoncolour_Click(sender As Object, e As MouseEventArgs) Handles pnlmainbuttoncolour.Click
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Colour_Picker.colourtochange = "App Launcher Button Colour"
            Colour_Picker.oldcolour = applauncherbuttoncolour
            Colour_Picker.Show()
        Else
            If ShiftOSDesktop.boughtskinning = True Then
                Graphic_Picker.graphictochange = "App Launcher Button"
                Graphic_Picker.Show()
            End If
        End If
    End Sub

    Private Sub pnlmainbuttonactivated_Click(sender As Object, e As EventArgs) Handles pnlmainbuttonactivated.Click
        Colour_Picker.colourtochange = "App Launcher Button Clicked Colour"
        Colour_Picker.oldcolour = applauncherbuttonclickedcolour
        Colour_Picker.Show()
    End Sub

    Private Sub pnlmenuitemsmouseover_Click(sender As Object, e As EventArgs) Handles pnlmenuitemsmouseover.Click
        Colour_Picker.colourtochange = "App Launcher Mouse Over Colour"
        Colour_Picker.oldcolour = applaunchermouseovercolour
        Colour_Picker.Show()
    End Sub

    Private Sub pnlrollupbuttoncolour_Click(sender As Object, e As MouseEventArgs) Handles pnlrollupbuttoncolour.Click
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Colour_Picker.colourtochange = "Roll Up Button Colour"
            Colour_Picker.oldcolour = rollupbuttoncolour
            Colour_Picker.Show()
        Else
            If ShiftOSDesktop.boughtskinning = True Then
                Graphic_Picker.graphictochange = "Roll Up Button"
                Graphic_Picker.Show()
            End If
        End If
    End Sub

    Private Sub pnlmaintextcolour_Click(sender As Object, e As EventArgs) Handles pnlmaintextcolour.Click
        Colour_Picker.colourtochange = "App Launcher Button Text Colour"
        Colour_Picker.oldcolour = applicationsbuttontextcolour
        Colour_Picker.Show()
    End Sub

    Private Sub pnlpanelbuttontextcolour_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttontextcolour.Click
        Colour_Picker.colourtochange = "Panel Button Text Colour"
        Colour_Picker.oldcolour = panelbuttontextcolour
        Colour_Picker.Show()
    End Sub

    Private Sub pnlmenuitemscolour_Click(sender As Object, e As EventArgs) Handles pnlmenuitemscolour.Click
        Colour_Picker.colourtochange = "App Launcher Items Background Colour"
        Colour_Picker.oldcolour = applauncherbackgroundcolour
        Colour_Picker.Show()
    End Sub

    Private Sub pnltitlebarleftcornercolour_Click(sender As Object, e As MouseEventArgs) Handles pnltitlebarleftcornercolour.Click
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Colour_Picker.colourtochange = "Title Bar Left Corner Colour"
            Colour_Picker.oldcolour = titlebarleftcornercolour
            Colour_Picker.Show()
        Else
            If ShiftOSDesktop.boughtskinning = True Then
                Graphic_Picker.graphictochange = "Title Bar Left Corner"
                Graphic_Picker.Show()
            End If
        End If
    End Sub

    Private Sub pnltitlebarrightcornercolour_Click(sender As Object, e As MouseEventArgs) Handles pnltitlebarrightcornercolour.Click
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Colour_Picker.colourtochange = "Title Bar Right Corner Colour"
            Colour_Picker.oldcolour = titlebarrightcornercolour
            Colour_Picker.Show()
        Else
            If ShiftOSDesktop.boughtskinning = True Then
                Graphic_Picker.graphictochange = "Title Bar Right Corner"
                Graphic_Picker.Show()
            End If
        End If
    End Sub

    Private Sub pnlminimizebuttoncolour_Click(sender As Object, e As MouseEventArgs) Handles pnlminimizebuttoncolour.Click
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Colour_Picker.colourtochange = "Minimize Button Colour"
            Colour_Picker.oldcolour = minimizebuttoncolour
            Colour_Picker.Show()
        Else
            If ShiftOSDesktop.boughtskinning = True Then
                Graphic_Picker.graphictochange = "Minimize Button"
                Graphic_Picker.Show()
            End If
        End If
    End Sub

    Private Sub pnlpanelbuttoncolour_Click(sender As Object, e As MouseEventArgs) Handles pnlpanelbuttoncolour.Click
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Colour_Picker.colourtochange = "Panel Button Colour"
            Colour_Picker.oldcolour = panelbuttoncolour
            Colour_Picker.Show()
        Else
            If ShiftOSDesktop.boughtskinning = True Then
                Graphic_Picker.graphictochange = "Panel Button"
                Graphic_Picker.Show()
            End If
        End If
    End Sub

    Private Sub pnltitlebarcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnltitlebarcolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnltitlebarcolour.ClientRectangle)
    End Sub

    Private Sub pnltitlebaroptions_Paint(sender As Object, e As PaintEventArgs) Handles pnltitlebaroptions.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnltitlebaroptions.ClientRectangle)
    End Sub

    Private Sub pnlbordercolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlbordercolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlbordercolour.ClientRectangle)
    End Sub

    Private Sub pnlborderoptions_Paint(sender As Object, e As PaintEventArgs) Handles pnlborderoptions.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlborderoptions.ClientRectangle)
    End Sub

    Private Sub btntitlebar_Click(sender As Object, e As EventArgs) Handles btntitlebar.Click
        If ShiftOSDesktop.boughtshifttitlebar Then
            pnltitlebaroptions.Show()
            pnltitlebaroptions.Size = New Size(317, 134)
            pnltitlebaroptions.Location = New Point(136, 159)
            pnltitlebaroptions.BringToFront()
        Else
            infobox.title = "Shifter - Setting not found!"
            infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
            infobox.Show()
        End If
    End Sub

    Private Sub btnborders_Click(sender As Object, e As EventArgs) Handles btnborders.Click
        If ShiftOSDesktop.boughtshiftborders Then
            pnlborderoptions.Show()
            pnlborderoptions.Size = New Size(317, 134)
            pnlborderoptions.Location = New Point(136, 159)
            pnlborderoptions.BringToFront()
        Else
            infobox.title = "Shifter - Setting not found!"
            infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
            infobox.Show()
        End If
    End Sub

    Private Sub txttitlebarheight_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txttitlebarheight.KeyPress, txtclosebuttonheight.KeyPress, txtclosebuttonwidth.KeyPress, txtclosebuttonfromtop.KeyPress, txtclosebuttonfromside.KeyPress, txtbordersize.KeyPress, txttitletexttop.KeyPress, txttitletextside.KeyPress, txttitletextsize.KeyPress, txtdesktoppanelheight.KeyPress, txtclocktextsize.KeyPress, txtclocktextfromtop.KeyPress, txtapplicationsbuttonheight.KeyPress, txtappbuttontextsize.KeyPress, txtrollupbuttonheight.KeyPress, txtrollupbuttonwidth.KeyPress, txtrollupbuttontop.KeyPress, txtrollupbuttonside.KeyPress, txttitlebarcornerwidth.KeyPress, txtapplauncherwidth.KeyPress, txticonfromside.KeyPress, txticonfromtop.KeyPress, txtminimizebuttonheight.KeyPress, txtminimizebuttonwidth.KeyPress, txtminimizebuttonside.KeyPress, txtminimizebuttontop.KeyPress, txtpanelbuttoninitalgap.KeyPress, txtpanelbuttontop.KeyPress, txtpanelbuttonwidth.KeyPress, txtpanelbuttonheight.KeyPress, txtpanelbuttongap.KeyPress, txtpaneltextbuttonsize.KeyPress, txtpanelbuttontextside.KeyPress, txtpanelbuttontexttop.KeyPress, txtpanelbuttoniconsize.KeyPress, txtpanelbuttoniconsize.KeyPress, txtpanelbuttoniconside.KeyPress, txtpanelbuttonicontop.KeyPress

        If Asc(e.KeyChar) <> 8 Then
            If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then
                e.Handled = True
            End If
        End If
    End Sub

    Private Sub txttitlebarheight_TextChanged(sender As Object, e As EventArgs) Handles txttitlebarheight.TextChanged
        If txttitlebarheight.Text = "" Then
        Else
            titlebarheight = txttitlebarheight.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub btnclosebutton_Click(sender As Object, e As EventArgs) Handles btnbuttons.Click
        If ShiftOSDesktop.boughtshifttitlebuttons Then
            pnlbuttonoptions.Show()
            pnlbuttonoptions.Size = New Size(317, 134)
            pnlbuttonoptions.Location = New Point(136, 159)
            pnlbuttonoptions.BringToFront()
        Else
            infobox.title = "Shifter - Setting not found!"
            infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
            infobox.Show()
        End If
    End Sub

    Private Sub pnlclosebuttonoptions_Paint(sender As Object, e As PaintEventArgs) Handles pnlbuttonoptions.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlbuttonoptions.ClientRectangle)
    End Sub

    Private Sub pnlclosebuttoncolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlclosebuttoncolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlclosebuttoncolour.ClientRectangle)
    End Sub

    Private Sub txtclosebuttonheight_TextChanged(sender As Object, e As EventArgs) Handles txtclosebuttonheight.TextChanged
        If txtclosebuttonheight.Text = "" Then
        Else
            closebuttonheight = txtclosebuttonheight.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtclosebuttonwidth_TextChanged(sender As Object, e As EventArgs) Handles txtclosebuttonwidth.TextChanged
        If txtclosebuttonwidth.Text = "" Then
        Else
            closebuttonwidth = txtclosebuttonwidth.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtclosebuttonfromtop_TextChanged(sender As Object, e As EventArgs) Handles txtclosebuttonfromtop.TextChanged
        If txtclosebuttonfromtop.Text = "" Then
        Else
            closebuttontop = txtclosebuttonfromtop.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtclosebuttonfromside_TextChanged(sender As Object, e As EventArgs) Handles txtclosebuttonfromside.TextChanged
        If txtclosebuttonfromside.Text = "" Then
        Else
            closebuttonside = txtclosebuttonfromside.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtbordersize_TextChanged(sender As Object, e As EventArgs) Handles txtbordersize.TextChanged
        If txtbordersize.Text = "" Then
        Else
            windowbordersize = txtbordersize.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub btntitletext_Click(sender As Object, e As EventArgs) Handles btntitletext.Click
        If ShiftOSDesktop.boughtshifttitletext Then
            pnltitletextoptions.Show()
            pnltitletextoptions.Size = New Size(317, 134)
            pnltitletextoptions.Location = New Point(136, 159)
            pnltitletextoptions.BringToFront()
        Else
            infobox.title = "Shifter - Setting not found!"
            infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
            infobox.Show()
        End If
    End Sub

    Private Sub txttitletexttop_TextChanged(sender As Object, e As EventArgs) Handles txttitletexttop.TextChanged
        If txttitletexttop.Text = "" Then
        Else
            titletexttop = txttitletexttop.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txttitletextside_TextChanged(sender As Object, e As EventArgs) Handles txttitletextside.TextChanged
        If txttitletextside.Text = "" Then
        Else
            titletextside = txttitletextside.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub pnltitletextcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnltitletextcolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnltitletextcolour.ClientRectangle)
    End Sub

    Private Sub combotitletextfont_SelectedIndexChanged(sender As Object, e As EventArgs) Handles combotitletextfont.SelectedIndexChanged
        If combotitletextfont.Text = "" Then
        Else
            titletextfont = combotitletextfont.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub cbpanelbuttonfont_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbpanelbuttonfont.SelectedIndexChanged
        If cbpanelbuttonfont.Text = "" Then
        Else
            panelbuttontextfont = cbpanelbuttonfont.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub pnltitletextoptions_Paint(sender As Object, e As PaintEventArgs) Handles pnltitletextoptions.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnltitletextoptions.ClientRectangle)
    End Sub

    Private Sub txttitletextsize_TextChanged(sender As Object, e As EventArgs) Handles txttitletextsize.TextChanged
        If txttitletextsize.Text = "" OrElse txttitletextsize.Text = "0" Then
        Else
            titletextsize = txttitletextsize.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub combotitletextstyle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles combotitletextstyle.SelectedIndexChanged
        Select Case combotitletextstyle.Text
            Case "Bold"
                titletextstyle = FontStyle.Bold
            Case "Italic"
                titletextstyle = FontStyle.Italic
            Case "Regular"
                titletextstyle = FontStyle.Regular
            Case "Strikeout"
                titletextstyle = FontStyle.Strikeout
            Case "Underline"
                titletextstyle = FontStyle.Underline
        End Select
        setuppreshifterstuff()

    End Sub

    Private Sub btndesktop_Click(sender As Object, e As EventArgs) Handles btndesktop.Click
        pnldesktopoptions.Location = New Point(133, 6)
        pnldesktopoptions.Size = New Size(458, 297)
        pnldesktopoptions.Show()
        pnldesktopoptions.BringToFront()
    End Sub

    Private Sub btndesktoppanel_Click(sender As Object, e As EventArgs) Handles btndesktoppanel.Click
        If ShiftOSDesktop.boughtshiftdesktoppanel Then
            Try
                pnldesktoppaneloptions.Show()
                pnldesktoppaneloptions.Size = New Size(317, 134)
                pnldesktoppaneloptions.Location = New Point(136, 159)
                pnldesktoppaneloptions.BringToFront()
            Catch ex As OutOfMemoryException
                infobox.showinfo("Memory Error", "There has been a memory error while accessing the desktop settings. Operation aborted.")
            End Try
        Else
            infobox.title = "Shifter - Setting not found!"
            infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
            infobox.Show()
        End If
    End Sub

    Private Sub btnpanelbuttons_Click(sender As Object, e As EventArgs) Handles btnpanelbuttons.Click
        If ShiftOSDesktop.boughtshiftpanelbuttons Then
            pnlpanelbuttonsoptions.Show()
            pnlpanelbuttonsoptions.Size = New Size(317, 134)
            pnlpanelbuttonsoptions.Location = New Point(136, 159)
            pnlpanelbuttonsoptions.BringToFront()
        Else
            infobox.title = "Shifter - Setting not found!"
            infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
            infobox.Show()
        End If
    End Sub

    Private Sub pnldesktoppanelcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnldesktoppanelcolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnldesktoppanelcolour.ClientRectangle)
    End Sub

    Private Sub pnldesktoppaneloptions_Paint(sender As Object, e As PaintEventArgs) Handles pnldesktoppaneloptions.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnldesktoppaneloptions.ClientRectangle)
    End Sub

    Private Sub pnldesktopbackgroundoptions_Paint(sender As Object, e As PaintEventArgs) Handles pnldesktopbackgroundoptions.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnldesktopbackgroundoptions.ClientRectangle)
    End Sub

    Private Sub pnldesktopcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnldesktopcolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnldesktopcolour.ClientRectangle)
    End Sub

    Private Sub pnlpanelclockoptions_Paint(sender As Object, e As PaintEventArgs) Handles pnlpanelclockoptions.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlpanelclockoptions.ClientRectangle)
    End Sub

    Private Sub pnlpanelclockcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlpanelclocktextcolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlpanelclocktextcolour.ClientRectangle)
    End Sub

    Private Sub pnlclockbackgroundcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlclockbackgroundcolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlclockbackgroundcolour.ClientRectangle)
    End Sub

    Private Sub pnltitlebarleftcornercolour_Paint(sender As Object, e As PaintEventArgs) Handles pnltitlebarleftcornercolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnltitlebarleftcornercolour.ClientRectangle)
    End Sub

    Private Sub pnltitlebarrightcornercolour_Paint(sender As Object, e As PaintEventArgs) Handles pnltitlebarrightcornercolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnltitlebarrightcornercolour.ClientRectangle)
    End Sub

    Private Sub pnlapplauncheroptions_Paint(sender As Object, e As PaintEventArgs) Handles pnlapplauncheroptions.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlapplauncheroptions.ClientRectangle)
    End Sub

    Private Sub Panel5_Paint(sender As Object, e As PaintEventArgs) Handles pnlmainbuttoncolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlmainbuttoncolour.ClientRectangle)
    End Sub

    Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles pnlmainbuttonactivated.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlmainbuttonactivated.ClientRectangle)
    End Sub

    Private Sub Panel3_Paint(sender As Object, e As PaintEventArgs) Handles pnlmenuitemscolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlmenuitemscolour.ClientRectangle)
    End Sub

    Private Sub Panel2_Paint(sender As Object, e As PaintEventArgs) Handles pnlmenuitemsmouseover.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlmenuitemsmouseover.ClientRectangle)
    End Sub

    Private Sub pnlmaintextcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlmaintextcolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlmaintextcolour.ClientRectangle)
    End Sub

    Private Sub pnlborderbottomcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlborderbottomcolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlborderbottomcolour.ClientRectangle)
    End Sub

    Private Sub pnlborderleftcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlborderleftcolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlborderleftcolour.ClientRectangle)
    End Sub

    Private Sub pnlborderrightcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlborderrightcolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlborderrightcolour.ClientRectangle)
    End Sub

    Private Sub pnlborderbottomleftcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlborderbottomleftcolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlborderbottomleftcolour.ClientRectangle)
    End Sub

    Private Sub pnlborderbottomrightcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlborderbottomrightcolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlborderbottomrightcolour.ClientRectangle)
    End Sub

    Private Sub pnlpanelbuttonsoptions_Paint(sender As Object, e As PaintEventArgs) Handles pnlpanelbuttonsoptions.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlpanelbuttonsoptions.ClientRectangle)
    End Sub

    Private Sub pnlpanelbuttoncolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlpanelbuttoncolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlpanelbuttoncolour.ClientRectangle)
    End Sub

    Private Sub pnlpanelbuttontextcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlpanelbuttontextcolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlpanelbuttontextcolour.ClientRectangle)
    End Sub

    Private Sub btndesktopitself_Click(sender As Object, e As EventArgs) Handles btndesktopitself.Click
        If ShiftOSDesktop.boughtshiftdesktop Then
            pnldesktopbackgroundoptions.Show()
            pnldesktopbackgroundoptions.Size = New Size(317, 134)
            pnldesktopbackgroundoptions.Location = New Point(136, 159)
            pnldesktopbackgroundoptions.BringToFront()
        Else
            infobox.title = "Shifter - Setting not found!"
            infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
            infobox.Show()
        End If
    End Sub

    Private Sub txtdesktoppanelheight_TextChanged(sender As Object, e As EventArgs) Handles txtdesktoppanelheight.TextChanged
        If txtdesktoppanelheight.Text = "" Then
        Else
            desktoppanelheight = txtdesktoppanelheight.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub combodesktoppanelposition_SelectedIndexChanged(sender As Object, e As EventArgs) Handles combodesktoppanelposition.SelectedIndexChanged
        Select Case combodesktoppanelposition.Text
            Case "Top"
                desktoppanelposition = "Top"
            Case "Bottom"
                desktoppanelposition = "Bottom"
        End Select
        setuppreshifterstuff()
    End Sub

    Private Sub btnpanelclock_Click(sender As Object, e As EventArgs) Handles btnpanelclock.Click
        If ShiftOSDesktop.boughtshiftpanelclock Then
            pnlpanelclockoptions.Show()
            pnlpanelclockoptions.Size = New Size(317, 134)
            pnlpanelclockoptions.Location = New Point(136, 159)
            pnlpanelclockoptions.BringToFront()
        Else
            infobox.title = "Shifter - Setting not found!"
            infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
            infobox.Show()
        End If
    End Sub

    Private Sub comboclocktextfont_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboclocktextfont.SelectedIndexChanged
        If comboclocktextfont.Text = "" Then
        Else
            panelclocktextfont = comboclocktextfont.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub comboclocktextstyle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboclocktextstyle.SelectedIndexChanged
        Select Case comboclocktextstyle.Text
            Case "Bold"
                panelclocktextstyle = FontStyle.Bold
            Case "Italic"
                panelclocktextstyle = FontStyle.Italic
            Case "Regular"
                panelclocktextstyle = FontStyle.Regular
            Case "Strikeout"
                panelclocktextstyle = FontStyle.Strikeout
            Case "Underline"
                panelclocktextstyle = FontStyle.Underline
        End Select
        setuppreshifterstuff()
    End Sub

    Private Sub txtclocktextfromtop_TextChanged(sender As Object, e As EventArgs) Handles txtclocktextfromtop.TextChanged
        If txtclocktextfromtop.Text = "" Then
        Else
            panelclocktexttop = txtclocktextfromtop.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtclocktextsize_TextChanged(sender As Object, e As EventArgs) Handles txtclocktextsize.TextChanged
        If txtclocktextsize.Text = "" OrElse txtclocktextsize.Text = "0" Then
        Else
            panelclocktextsize = txtclocktextsize.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txttitlebarnornerwidth_TextChanged(sender As Object, e As EventArgs) Handles txttitlebarcornerwidth.TextChanged
        If txttitlebarcornerwidth.Text = "" OrElse txttitlebarcornerwidth.Text = "0" Then
        Else
            titlebarcornerwidth = txttitlebarcornerwidth.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub btnapplauncher_Click(sender As Object, e As EventArgs) Handles btnapplauncher.Click
        If ShiftOSDesktop.boughtshiftapplauncher Then
            pnlapplauncheroptions.Show()
            pnlapplauncheroptions.Size = New Size(317, 134)
            pnlapplauncheroptions.Location = New Point(136, 159)
            pnlapplauncheroptions.BringToFront()
            pnllauncheritems.Hide()
        Else
            infobox.title = "Shifter - Setting not found!"
            infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
            infobox.Show()
        End If
    End Sub

    Private Sub predesktopappmenu_MouseEnter(sender As Object, e As EventArgs) Handles predesktopappmenu.MouseEnter
        Me.Focus()
    End Sub

    Private Sub Shifter_MouseEnter(sender As Object, e As EventArgs) Handles ApplicationsToolStripMenuItem.MouseEnter
        ToolStripManager.Renderer = New MyPreviewToolStripRenderer()
        'ShiftOSDesktop.ApplicationsToolStripMenuItem.BackColor = ShiftOSDesktop.applauncherbuttoncolour
    End Sub

    Private Sub txtapplicationsbuttonheight_TextChanged(sender As Object, e As EventArgs) Handles txtapplicationsbuttonheight.TextChanged
        If txtapplicationsbuttonheight.Text = "" Then
        Else
            If txtapplicationsbuttonheight.Text > desktoppanelheight Then
                infobox.title = "Shifter - Illegal Setting!"
                infobox.textinfo = "The height of the application menu button can not exceed the height of the desktop panel." & Environment.NewLine & Environment.NewLine & "The application menu button height has been automatically reduced."
                infobox.Show()
                txtapplicationsbuttonheight.Text = applicationbuttonheight
            Else
                applicationbuttonheight = txtapplicationsbuttonheight.Text
                setuppreshifterstuff()
            End If
        End If
    End Sub

    Private Sub txtappbuttontextsize_TextChanged(sender As Object, e As EventArgs) Handles txtappbuttontextsize.TextChanged
        If txtappbuttontextsize.Text = "" OrElse txtappbuttontextsize.Text = "0" Then
        Else
            applicationbuttontextsize = txtappbuttontextsize.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub comboappbuttontextstyle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboappbuttontextstyle.SelectedIndexChanged
        Select Case comboappbuttontextstyle.Text
            Case "Bold"
                applicationbuttontextstyle = FontStyle.Bold
            Case "Italic"
                applicationbuttontextstyle = FontStyle.Italic
            Case "Regular"
                applicationbuttontextstyle = FontStyle.Regular
            Case "Strikeout"
                applicationbuttontextstyle = FontStyle.Strikeout
            Case "Underline"
                applicationbuttontextstyle = FontStyle.Underline
        End Select
        setuppreshifterstuff()
    End Sub

    Private Sub cbpanelbuttontextstyle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbpanelbuttontextstyle.SelectedIndexChanged
        Select Case cbpanelbuttontextstyle.Text
            Case "Bold"
                panelbuttontextstyle = FontStyle.Bold
            Case "Italic"
                panelbuttontextstyle = FontStyle.Italic
            Case "Regular"
                panelbuttontextstyle = FontStyle.Regular
            Case "Strikeout"
                panelbuttontextstyle = FontStyle.Strikeout
            Case "Underline"
                panelbuttontextstyle = FontStyle.Underline
        End Select
        setuppreshifterstuff()
    End Sub

    Private Sub comboappbuttontextfont_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboappbuttontextfont.SelectedIndexChanged
        If comboappbuttontextfont.Text = "" Then
        Else
            applicationbuttontextfont = comboappbuttontextfont.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtappbuttonlabel_TextChanged(sender As Object, e As EventArgs) Handles txtappbuttonlabel.TextChanged
        If txtappbuttonlabel.Text = "" Then
        Else
            applicationlaunchername = txtappbuttonlabel.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub combotitletextposition_SelectedIndexChanged(sender As Object, e As EventArgs) Handles combotitletextposition.SelectedIndexChanged
        Select Case combotitletextposition.Text
            Case "Left"
                titletextposition = "Left"
            Case "Centre"
                titletextposition = "Centre"
        End Select
        setuppreshifterstuff()
    End Sub

    Private Sub pnlrollupbuttoncolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlrollupbuttoncolour.Paint
        e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlrollupbuttoncolour.ClientRectangle)
    End Sub

    Private Sub combobuttonoption_SelectedIndexChanged(sender As Object, e As EventArgs) Handles combobuttonoption.SelectedIndexChanged
        Select Case combobuttonoption.Text
            Case "Close Button"
                pnlclosebuttonoptions.Show()
                pnlclosebuttonoptions.BringToFront()
                pnlclosebuttonoptions.Location = New Point(1, 27)
                pnlclosebuttonoptions.Size = New Size(315, 104)
            Case "Roll Up Button"
                pnlrollupbuttonoptions.Show()
                pnlrollupbuttonoptions.BringToFront()
                pnlrollupbuttonoptions.Location = New Point(1, 27)
                pnlrollupbuttonoptions.Size = New Size(315, 104)
            Case "Minimize Button"
                pnlminimizebuttonoptions.Show()
                pnlminimizebuttonoptions.BringToFront()
                pnlminimizebuttonoptions.Location = New Point(1, 27)
                pnlminimizebuttonoptions.Size = New Size(315, 104)
        End Select
        setuppreshifterstuff()
    End Sub

    Private Sub txtrollupbuttonheight_TextChanged(sender As Object, e As EventArgs) Handles txtrollupbuttonheight.TextChanged
        If txtrollupbuttonheight.Text = "" Then
        Else
            rollupbuttonheight = txtrollupbuttonheight.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtrollupbuttonwidth_TextChanged(sender As Object, e As EventArgs) Handles txtrollupbuttonwidth.TextChanged
        If txtrollupbuttonwidth.Text = "" Then
        Else
            rollupbuttonwidth = txtrollupbuttonwidth.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtrollupbuttontop_TextChanged(sender As Object, e As EventArgs) Handles txtrollupbuttontop.TextChanged
        If txtrollupbuttontop.Text = "" Then
        Else
            rollupbuttontop = txtrollupbuttontop.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtrollupbuttonside_TextChanged(sender As Object, e As EventArgs) Handles txtrollupbuttonside.TextChanged
        If txtrollupbuttonside.Text = "" Then
        Else
            rollupbuttonside = txtrollupbuttonside.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtapplauncherwidth_TextChanged(sender As Object, e As EventArgs) Handles txtapplauncherwidth.TextChanged
        If txtapplauncherwidth.Text = "" Then
        Else
            applaunchermenuholderwidth = txtapplauncherwidth.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txticonfromside_TextChanged(sender As Object, e As EventArgs) Handles txticonfromside.TextChanged
        If txticonfromside.Text = "" Then
        Else
            titlebariconside = txticonfromside.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txticonfromtop_TextChanged(sender As Object, e As EventArgs) Handles txticonfromtop.TextChanged
        If txticonfromtop.Text = "" Then
        Else
            titlebaricontop = txticonfromtop.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtminimizebuttonheight_TextChanged(sender As Object, e As EventArgs) Handles txtminimizebuttonheight.TextChanged
        If txtminimizebuttonheight.Text = "" Then
        Else
            minimizebuttonheight = txtminimizebuttonheight.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtminimizebuttonwidth_TextChanged(sender As Object, e As EventArgs) Handles txtminimizebuttonwidth.TextChanged
        If txtminimizebuttonwidth.Text = "" Then
        Else
            minimizebuttonwidth = txtminimizebuttonwidth.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtminimizebuttontop_TextChanged(sender As Object, e As EventArgs) Handles txtminimizebuttontop.TextChanged
        If txtminimizebuttontop.Text = "" Then
        Else
            minimizebuttontop = txtminimizebuttontop.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtminimizebuttonside_TextChanged(sender As Object, e As EventArgs) Handles txtminimizebuttonside.TextChanged
        If txtminimizebuttonside.Text = "" Then
        Else
            minimizebuttonside = txtminimizebuttonside.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtpanelbuttoninitalgap_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttoninitalgap.TextChanged
        If txtpanelbuttoninitalgap.Text = "" Then
        Else
            panelbuttoninitialgap = txtpanelbuttoninitalgap.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtpanelbuttontop_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttontop.TextChanged
        If txtpanelbuttontop.Text = "" Then
        Else
            panelbuttonfromtop = txtpanelbuttontop.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtpanelbuttonwidth_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttonwidth.TextChanged
        If txtpanelbuttonwidth.Text = "" Then
        Else
            panelbuttonwidth = txtpanelbuttonwidth.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtpanelbuttonheight_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttonheight.TextChanged
        If txtpanelbuttonheight.Text = "" Then
        Else
            panelbuttonheight = txtpanelbuttonheight.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtpanelbuttongap_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttongap.TextChanged
        If txtpanelbuttongap.Text = "" Then
        Else
            panelbuttongap = txtpanelbuttongap.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtpaneltextbuttonsize_TextChanged(sender As Object, e As EventArgs) Handles txtpaneltextbuttonsize.TextChanged
        If txtpaneltextbuttonsize.Text = "" Then
        Else
            panelbuttontextsize = txtpaneltextbuttonsize.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtpanelbuttontextside_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttontextside.TextChanged
        If txtpanelbuttontextside.Text = "" Then
        Else
            panelbuttontextside = txtpanelbuttontextside.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtpanelbuttontexttop_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttontexttop.TextChanged
        If txtpanelbuttontexttop.Text = "" Then
        Else
            panelbuttontexttop = txtpanelbuttontexttop.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtpanelbuttoniconsize_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttoniconsize.TextChanged
        If txtpanelbuttoniconsize.Text = "" Then
        Else
            panelbuttoniconsize = txtpanelbuttoniconsize.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtpanelbuttoniconside_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttoniconside.TextChanged
        If txtpanelbuttoniconside.Text = "" Then
        Else
            panelbuttoniconside = txtpanelbuttoniconside.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub txtpanelbuttonicontop_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttonicontop.TextChanged
        If txtpanelbuttonicontop.Text = "" Then
        Else
            panelbuttonicontop = txtpanelbuttonicontop.Text
            setuppreshifterstuff()
        End If
    End Sub

    Private Sub customizationtime_Tick(sender As Object, e As EventArgs) Handles customizationtime.Tick
        If customizationsdone > -10 Then
            customizationtimepoints = customizationtimepoints + 1
            customizationsdone = customizationsdone - 1
        End If
    End Sub

    Private Sub timerearned_Tick(sender As Object, e As EventArgs) Handles timerearned.Tick
        btnapply.Text = "Apply Changes"
        btnapply.BackColor = Color.White
        btnapply.ForeColor = Color.Black
        timerearned.Stop()
    End Sub

    Private Sub cboxtitlebarcorners_CheckedChanged(sender As Object, e As EventArgs) Handles cboxtitlebarcorners.CheckedChanged
        If cboxtitlebarcorners.CheckState = CheckState.Checked Then
            prepgtoplcorner.Show()
            prepgtoprcorner.Show()
            pnltitlebarleftcornercolour.Show()
            pnltitlebarrightcornercolour.Show()
            txttitlebarcornerwidth.Show()
            lbcornerwidth.Show()
            lbcornerwidthpx.Show()
            lbleftcornercolor.Show()
            lbrightcornercolor.Show()
            showwindowcorners = True
        Else
            prepgtoplcorner.Hide()
            prepgtoprcorner.Hide()
            pnltitlebarleftcornercolour.Hide()
            pnltitlebarrightcornercolour.Hide()
            txttitlebarcornerwidth.Hide()
            lbcornerwidth.Hide()
            lbcornerwidthpx.Hide()
            lbleftcornercolor.Hide()
            lbrightcornercolor.Hide()
            showwindowcorners = False
        End If
    End Sub

    Private Sub cbindividualbordercolours_CheckedChanged(sender As Object, e As EventArgs) Handles cbindividualbordercolours.CheckedChanged
        If cbindividualbordercolours.CheckState = CheckState.Checked Then
            Label73.Show()
            Label74.Show()
            Label75.Show()
            Label76.Show()
            Label77.Show()
            pnlborderleftcolour.Show()
            pnlborderrightcolour.Show()
            pnlborderbottomcolour.Show()
            pnlborderbottomrightcolour.Show()
            pnlborderbottomleftcolour.Show()
        Else
            Label73.Hide()
            Label74.Hide()
            Label75.Hide()
            Label76.Hide()
            Label77.Hide()
            pnlborderleftcolour.Hide()
            pnlborderrightcolour.Hide()
            pnlborderbottomcolour.Hide()
            pnlborderbottomrightcolour.Hide()
            pnlborderbottomleftcolour.Hide()
        End If
    End Sub

    Private Sub btnresetallsettings_Click(sender As Object, e As EventArgs) Handles btnresetallsettings.Click
        Skins.setupdefaults()

        Skins.saveskinfiles(False)

        setupbuttons()
        initialsetup()
        determinevisibleobjects()
        setuppreshifterstuff()
        AddFonts()
        justopened = True
        ShiftOSDesktop.setupdesktop()

        'postsettings()
        'If ShiftOSDesktop.boughtknowledgeinputicon = True Then titletextside = titletextside + 22
        'setuppreshifterstuff()
        'applysettings()
    End Sub

    'required to fix flashing applauncher button problem
    Public Sub ApplicationsToolStripMenuItem_Paint(sender As Object, e As PaintEventArgs) Handles ApplicationsToolStripMenuItem.Paint
        If ApplicationsToolStripMenuItem.BackgroundImage Is Nothing Then
        Else
            e.Graphics.DrawImage(ApplicationsToolStripMenuItem.BackgroundImage, 0, 0, ApplicationsToolStripMenuItem.BackgroundImage.Width, ApplicationsToolStripMenuItem.BackgroundImage.Height)
        End If
    End Sub

    Private Sub tmrfix_Tick(sender As Object, e As EventArgs) Handles tmrfix.Tick



        tmrfix.Stop()
    End Sub

    Private Sub tmrdelay_Tick(sender As Object, e As EventArgs) Handles tmrdelay.Tick
        timingissuefixer = +1
    End Sub

    Private Sub btnshowlauncheritems_Click(sender As Object, e As EventArgs) Handles btnshowlauncheritems.Click
        If ShiftOSDesktop.boughtshiftapplauncheritems Then
            pnllauncheritems.Dock = DockStyle.Fill
            pnllauncheritems.Show()
            pnllauncheritems.BringToFront()


        Else
            infobox.title = "Shifter - Setting not found!"
            infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
            infobox.Show()
        End If
    End Sub

    Dim oldlaunchervalue As Integer = 10
    Private Sub txtlauncheritemtxtsize_TextChanged(sender As Object, e As EventArgs) Handles txtlauncheritemtxtsize.TextChanged
        If txtlauncheritemtxtsize.Text = "" Then txtlauncheritemtxtsize.Text = 1
        If Not IsNumeric(txtlauncheritemtxtsize.Text) Then txtlauncheritemtxtsize.Text = oldlaunchervalue
        If txtlauncheritemtxtsize.Text < 1 Then txtlauncheritemtxtsize.Text = 1
        If txtlauncheritemtxtsize.Text > 100 Then txtlauncheritemtxtsize.Text = 100
        oldlaunchervalue = txtlauncheritemtxtsize.Text
        setuppreshifterstuff()
    End Sub

    Private Sub launchercolourclick() Handles launcheritemtxtcolour.Click
        Colour_Picker.Show()
        Colour_Picker.colourtochange = "launcher items text colour"
    End Sub

    Private Sub launcheritemfont_SelectedIndexChanged(sender As Object, e As EventArgs) Handles launcheritemfont.SelectedIndexChanged
        setuppreshifterstuff()
    End Sub

    Private Sub launcheritemstyle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles launcheritemstyle.SelectedIndexChanged
        setuppreshifterstuff()
    End Sub

    Private Sub btndeskdoubleplus_Click(sender As Object, e As EventArgs) Handles btndeskdoubleplus.Click
        pnldeskdoubleplus.BringToFront()
    End Sub



    Public Sub refreshIcons()
        desktopiconspreview.Items.Clear()
        If Skins.showicons = True Then
            desktopiconspreview.LargeImageList = File_Skimmer.ImageList1
            desktopiconspreview.SmallImageList = File_Skimmer.ImageList1

            Dim dir As New IO.DirectoryInfo("C:\ShiftOS\Home\Desktop")
            Dim files As IO.FileInfo() = dir.GetFiles()
            Dim file As IO.FileInfo
            Dim folders As IO.DirectoryInfo() = dir.GetDirectories()
            Dim folder As IO.DirectoryInfo
            Dim filetype As Integer
            For Each folder In folders
                Dim Str(3) As String

                Str(0) = folder.Name
                Str(1) = folder.LastAccessTime
                Str(2) = "Directory"

                Dim folderIcon As New ListViewItem
                folderIcon.Text = Str(0)
                folderIcon.Tag = folder.FullName
                folderIcon.SubItems.Add(Str(1))
                folderIcon.SubItems.Add(Str(2))
                folderIcon.ImageIndex = 0

                desktopiconspreview.Items.Add(folderIcon)
            Next

            For Each file In files
                Dim filename As String = file.Name
                Dim fileex As String = file.Extension
                Dim program As String
                Dim item As New ListViewItem

                item.Text = filename
                item.Tag = file.FullName
                item.SubItems.Add(file.LastWriteTime)

                filetype = File_Skimmer.getExType(fileex)(0)
                program = File_Skimmer.getExType(fileex)(1)

                item.SubItems.Add(program)
                item.ImageIndex = filetype
                desktopiconspreview.Items.Add(item)
            Next
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

    End Sub

    Private Sub btndppfunctions_Click(sender As Object, e As EventArgs) Handles btndppfunctions.Click
        pnldppfunctions.BringToFront()
    End Sub

    Private Sub btndppicons_Click(sender As Object, e As EventArgs) Handles btndppicons.Click
        pnldppicons.BringToFront()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Colour_Picker.colourtochange = "Desktop Icon Text Color"
        Colour_Picker.oldcolour = icontextcolor
        Colour_Picker.Show()
        Button1.BackColor = icontextcolor
        desktopiconspreview.ForeColor = icontextcolor
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        pnlshiftadvapplauncher.BringToFront()

    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles btnaalusrtextcolor.Click
        Colour_Picker.colourtochange = "Username Text Color"
        Colour_Picker.oldcolour = usernametextcolor
        Colour_Picker.Show()
        btnaalusrtextcolor.BackColor = usernametextcolor
    End Sub

    Private Sub cmbaalusrfont_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbaalusrfont.SelectedIndexChanged
        usernamefont = cmbaalusrfont.SelectedItem
    End Sub

    Private Sub nudusrsize_ValueChanged(sender As Object, e As EventArgs) Handles nudusrsize.ValueChanged
        If Not nudusrsize.Value = 0 Then
            usernamefontsize = nudusrsize.Value
        Else
            nudusrsize.Value = 1
        End If

    End Sub

    Private Sub cmbaalusrstyle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbaalusrstyle.SelectedIndexChanged
        Select Case cmbaalusrstyle.SelectedItem
            Case "Regular"
                usernamefontstyle = FontStyle.Regular
            Case "Bold"
                usernamefontstyle = FontStyle.Bold
            Case "Italic"
                usernamefontstyle = FontStyle.Italic
            Case "Underline"
                usernamefontstyle = FontStyle.Underline
            Case Else
                usernamefontstyle = FontStyle.Regular
        End Select
    End Sub

    
    Private Sub btnaalusrpnlbg_Click(sender As Object, e As MouseEventArgs) Handles btnaalusrpnlbg.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Graphic_Picker.graphictochange = "Username Panel Background"
            Graphic_Picker.ShowDialog()
            Try
                btnaalusrpnlbg.BackgroundImage = skinuserpanel(0)
            Catch
                btnaalusrpnlbg.BackgroundImage = Nothing
            End Try
            btnaalusrpnlbg.BackgroundImageLayout = usrbglayout
        Else
            Colour_Picker.colourtochange = "Username Panel Background"
            Colour_Picker.oldcolour = usernamebgcolor
            Colour_Picker.ShowDialog()
            btnaalusrpnlbg.BackColor = usernamebgcolor
        End If
    End Sub

    Private Sub btnaalpwrpnlbg_Click(sender As Object, e As MouseEventArgs) Handles btnaalpwrpnlbg.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Graphic_Picker.graphictochange = "Shutdown Button Background"
            Graphic_Picker.ShowDialog()
            Try
                btnaalpwrpnlbg.BackgroundImage = skinshutdownbutton(0)
            Catch
                btnaalpwrpnlbg.BackgroundImage = Nothing
            End Try
            btnaalpwrpnlbg.BackgroundImageLayout = usrbglayout
        Else
            Colour_Picker.colourtochange = "Shutdown Button Background"
            Colour_Picker.oldcolour = powerpanelbgcolor
            Colour_Picker.ShowDialog()
            btnaalpwrpnlbg.BackColor = usernamebgcolor
        End If
    End Sub
End Class