diff options
| author | pfg github <[email protected]> | 2015-03-08 09:18:40 -0700 |
|---|---|---|
| committer | pfg github <[email protected]> | 2015-03-08 09:18:40 -0700 |
| commit | a3db778746af40eb9f9ec2cccfb3c935164600f5 (patch) | |
| tree | 6fd5220c1283aeb448d4b67c8c122f78d2a7a8dc /ShiftOS/Colour Picker.vb | |
| parent | bfd7c782b02bce11bb07cc228e5d0775ad0d98d5 (diff) | |
| download | shiftos-a3db778746af40eb9f9ec2cccfb3c935164600f5.tar.gz shiftos-a3db778746af40eb9f9ec2cccfb3c935164600f5.tar.bz2 shiftos-a3db778746af40eb9f9ec2cccfb3c935164600f5.zip | |
Full Source
Diffstat (limited to 'ShiftOS/Colour Picker.vb')
| -rw-r--r-- | ShiftOS/Colour Picker.vb | 2828 |
1 files changed, 2828 insertions, 0 deletions
diff --git a/ShiftOS/Colour Picker.vb b/ShiftOS/Colour Picker.vb new file mode 100644 index 0000000..dad5545 --- /dev/null +++ b/ShiftOS/Colour Picker.vb @@ -0,0 +1,2828 @@ +Public Class Colour_Picker + 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 oldcolour As Color + + Public colourtochange As String + Public anylevel As Integer + Public graylevel As Integer + Public purplelevel As Integer + Public bluelevel As Integer + Public greenlevel As Integer + Public yellowlevel As Integer + Public orangelevel As Integer + Public brownlevel As Integer + Public redlevel As Integer + Public pinklevel As Integer + +#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() + If ShiftOSDesktop.ColourPickerCorrupted Then Me.Close() : infobox.showinfo("The Plague.", Me.Name & "has been corrupted by The Plague.") + + ShiftOSDesktop.pnlpanelbuttoncolourpicker.SendToBack() 'CHANGE NAME + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttoncolourpicker, ShiftOSDesktop.tbcolourpickericon, ShiftOSDesktop.tbcolourpickertext, True) 'modify to proper name + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + + getoldcolour() + determinelevels() + shrinktosizebasedoncoloursbought() + setupboughtcolours() + loadmemory() + 'ShiftOSDesktop.setcolours() + End Sub + + Public Sub setupall() + setuptitlebar() + setupborders() + setskin() + 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 + + 'Old skinning system - No idea what this does + ''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(447, 600) '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.colourpickername '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.boughtcolourpickericon = 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.colourpickericontitlebar '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 of general setup +#End Region + + Public Sub loadmemory() + If ShiftOSDesktop.anymemory(0).ToArgb.ToString = "0" Then Else pnlany1.BackColor = ShiftOSDesktop.anymemory(0) + If ShiftOSDesktop.anymemory(1).ToArgb.ToString = "0" Then Else pnlany2.BackColor = ShiftOSDesktop.anymemory(1) + If ShiftOSDesktop.anymemory(2).ToArgb.ToString = "0" Then Else pnlany3.BackColor = ShiftOSDesktop.anymemory(2) + If ShiftOSDesktop.anymemory(3).ToArgb.ToString = "0" Then Else pnlany4.BackColor = ShiftOSDesktop.anymemory(3) + If ShiftOSDesktop.anymemory(4).ToArgb.ToString = "0" Then Else pnlany5.BackColor = ShiftOSDesktop.anymemory(4) + If ShiftOSDesktop.anymemory(5).ToArgb.ToString = "0" Then Else pnlany6.BackColor = ShiftOSDesktop.anymemory(5) + If ShiftOSDesktop.anymemory(6).ToArgb.ToString = "0" Then Else pnlany7.BackColor = ShiftOSDesktop.anymemory(6) + If ShiftOSDesktop.anymemory(7).ToArgb.ToString = "0" Then Else pnlany8.BackColor = ShiftOSDesktop.anymemory(7) + If ShiftOSDesktop.anymemory(8).ToArgb.ToString = "0" Then Else pnlany9.BackColor = ShiftOSDesktop.anymemory(8) + If ShiftOSDesktop.anymemory(9).ToArgb.ToString = "0" Then Else pnlany10.BackColor = ShiftOSDesktop.anymemory(9) + If ShiftOSDesktop.anymemory(10).ToArgb.ToString = "0" Then Else pnlany11.BackColor = ShiftOSDesktop.anymemory(10) + If ShiftOSDesktop.anymemory(11).ToArgb.ToString = "0" Then Else pnlany12.BackColor = ShiftOSDesktop.anymemory(11) + If ShiftOSDesktop.anymemory(12).ToArgb.ToString = "0" Then Else pnlany13.BackColor = ShiftOSDesktop.anymemory(12) + If ShiftOSDesktop.anymemory(13).ToArgb.ToString = "0" Then Else pnlany14.BackColor = ShiftOSDesktop.anymemory(13) + If ShiftOSDesktop.anymemory(14).ToArgb.ToString = "0" Then Else pnlany15.BackColor = ShiftOSDesktop.anymemory(14) + If ShiftOSDesktop.anymemory(15).ToArgb.ToString = "0" Then Else pnlany16.BackColor = ShiftOSDesktop.anymemory(15) + + If ShiftOSDesktop.graymemory(0).ToArgb.ToString = "0" Then Else pnlgray1.BackColor = ShiftOSDesktop.graymemory(0) + If ShiftOSDesktop.graymemory(1).ToArgb.ToString = "0" Then Else pnlgray2.BackColor = ShiftOSDesktop.graymemory(1) + If ShiftOSDesktop.graymemory(2).ToArgb.ToString = "0" Then Else pnlgray3.BackColor = ShiftOSDesktop.graymemory(2) + If ShiftOSDesktop.graymemory(3).ToArgb.ToString = "0" Then Else pnlgray4.BackColor = ShiftOSDesktop.graymemory(3) + If ShiftOSDesktop.graymemory(4).ToArgb.ToString = "0" Then Else pnlgray5.BackColor = ShiftOSDesktop.graymemory(4) + If ShiftOSDesktop.graymemory(5).ToArgb.ToString = "0" Then Else pnlgray6.BackColor = ShiftOSDesktop.graymemory(5) + If ShiftOSDesktop.graymemory(6).ToArgb.ToString = "0" Then Else pnlgray7.BackColor = ShiftOSDesktop.graymemory(6) + If ShiftOSDesktop.graymemory(7).ToArgb.ToString = "0" Then Else pnlgray8.BackColor = ShiftOSDesktop.graymemory(7) + If ShiftOSDesktop.graymemory(8).ToArgb.ToString = "0" Then Else pnlgray9.BackColor = ShiftOSDesktop.graymemory(8) + If ShiftOSDesktop.graymemory(9).ToArgb.ToString = "0" Then Else pnlgray10.BackColor = ShiftOSDesktop.graymemory(9) + If ShiftOSDesktop.graymemory(10).ToArgb.ToString = "0" Then Else pnlgray11.BackColor = ShiftOSDesktop.graymemory(10) + If ShiftOSDesktop.graymemory(11).ToArgb.ToString = "0" Then Else pnlgray12.BackColor = ShiftOSDesktop.graymemory(11) + If ShiftOSDesktop.graymemory(12).ToArgb.ToString = "0" Then Else pnlgray13.BackColor = ShiftOSDesktop.graymemory(12) + If ShiftOSDesktop.graymemory(13).ToArgb.ToString = "0" Then Else pnlgray14.BackColor = ShiftOSDesktop.graymemory(13) + If ShiftOSDesktop.graymemory(14).ToArgb.ToString = "0" Then Else pnlgray15.BackColor = ShiftOSDesktop.graymemory(14) + If ShiftOSDesktop.graymemory(15).ToArgb.ToString = "0" Then Else pnlgray16.BackColor = ShiftOSDesktop.graymemory(15) + + If ShiftOSDesktop.purplememory(0).ToArgb.ToString = "0" Then Else pnlpurple1.BackColor = ShiftOSDesktop.purplememory(0) + If ShiftOSDesktop.purplememory(1).ToArgb.ToString = "0" Then Else pnlpurple2.BackColor = ShiftOSDesktop.purplememory(1) + If ShiftOSDesktop.purplememory(2).ToArgb.ToString = "0" Then Else pnlpurple3.BackColor = ShiftOSDesktop.purplememory(2) + If ShiftOSDesktop.purplememory(3).ToArgb.ToString = "0" Then Else pnlpurple4.BackColor = ShiftOSDesktop.purplememory(3) + If ShiftOSDesktop.purplememory(4).ToArgb.ToString = "0" Then Else pnlpurple5.BackColor = ShiftOSDesktop.purplememory(4) + If ShiftOSDesktop.purplememory(5).ToArgb.ToString = "0" Then Else pnlpurple6.BackColor = ShiftOSDesktop.purplememory(5) + If ShiftOSDesktop.purplememory(6).ToArgb.ToString = "0" Then Else pnlpurple7.BackColor = ShiftOSDesktop.purplememory(6) + If ShiftOSDesktop.purplememory(7).ToArgb.ToString = "0" Then Else pnlpurple8.BackColor = ShiftOSDesktop.purplememory(7) + If ShiftOSDesktop.purplememory(8).ToArgb.ToString = "0" Then Else pnlpurple9.BackColor = ShiftOSDesktop.purplememory(8) + If ShiftOSDesktop.purplememory(9).ToArgb.ToString = "0" Then Else pnlpurple10.BackColor = ShiftOSDesktop.purplememory(9) + If ShiftOSDesktop.purplememory(10).ToArgb.ToString = "0" Then Else pnlpurple11.BackColor = ShiftOSDesktop.purplememory(10) + If ShiftOSDesktop.purplememory(11).ToArgb.ToString = "0" Then Else pnlpurple12.BackColor = ShiftOSDesktop.purplememory(11) + If ShiftOSDesktop.purplememory(12).ToArgb.ToString = "0" Then Else pnlpurple13.BackColor = ShiftOSDesktop.purplememory(12) + If ShiftOSDesktop.purplememory(13).ToArgb.ToString = "0" Then Else pnlpurple14.BackColor = ShiftOSDesktop.purplememory(13) + If ShiftOSDesktop.purplememory(14).ToArgb.ToString = "0" Then Else pnlpurple15.BackColor = ShiftOSDesktop.purplememory(14) + If ShiftOSDesktop.purplememory(15).ToArgb.ToString = "0" Then Else pnlpurple16.BackColor = ShiftOSDesktop.purplememory(15) + + If ShiftOSDesktop.bluememory(0).ToArgb.ToString = "0" Then Else pnlblue1.BackColor = ShiftOSDesktop.bluememory(0) + If ShiftOSDesktop.bluememory(1).ToArgb.ToString = "0" Then Else pnlblue2.BackColor = ShiftOSDesktop.bluememory(1) + If ShiftOSDesktop.bluememory(2).ToArgb.ToString = "0" Then Else pnlblue3.BackColor = ShiftOSDesktop.bluememory(2) + If ShiftOSDesktop.bluememory(3).ToArgb.ToString = "0" Then Else pnlblue4.BackColor = ShiftOSDesktop.bluememory(3) + If ShiftOSDesktop.bluememory(4).ToArgb.ToString = "0" Then Else pnlblue5.BackColor = ShiftOSDesktop.bluememory(4) + If ShiftOSDesktop.bluememory(5).ToArgb.ToString = "0" Then Else pnlblue6.BackColor = ShiftOSDesktop.bluememory(5) + If ShiftOSDesktop.bluememory(6).ToArgb.ToString = "0" Then Else pnlblue7.BackColor = ShiftOSDesktop.bluememory(6) + If ShiftOSDesktop.bluememory(7).ToArgb.ToString = "0" Then Else pnlblue8.BackColor = ShiftOSDesktop.bluememory(7) + If ShiftOSDesktop.bluememory(8).ToArgb.ToString = "0" Then Else pnlblue9.BackColor = ShiftOSDesktop.bluememory(8) + If ShiftOSDesktop.bluememory(9).ToArgb.ToString = "0" Then Else pnlblue10.BackColor = ShiftOSDesktop.bluememory(9) + If ShiftOSDesktop.bluememory(10).ToArgb.ToString = "0" Then Else pnlblue11.BackColor = ShiftOSDesktop.bluememory(10) + If ShiftOSDesktop.bluememory(11).ToArgb.ToString = "0" Then Else pnlblue12.BackColor = ShiftOSDesktop.bluememory(11) + If ShiftOSDesktop.bluememory(12).ToArgb.ToString = "0" Then Else pnlblue13.BackColor = ShiftOSDesktop.bluememory(12) + If ShiftOSDesktop.bluememory(13).ToArgb.ToString = "0" Then Else pnlblue14.BackColor = ShiftOSDesktop.bluememory(13) + If ShiftOSDesktop.bluememory(14).ToArgb.ToString = "0" Then Else pnlblue15.BackColor = ShiftOSDesktop.bluememory(14) + If ShiftOSDesktop.bluememory(15).ToArgb.ToString = "0" Then Else pnlblue16.BackColor = ShiftOSDesktop.bluememory(15) + + If ShiftOSDesktop.greenmemory(0).ToArgb.ToString = "0" Then Else pnlgreen1.BackColor = ShiftOSDesktop.greenmemory(0) + If ShiftOSDesktop.greenmemory(1).ToArgb.ToString = "0" Then Else pnlgreen2.BackColor = ShiftOSDesktop.greenmemory(1) + If ShiftOSDesktop.greenmemory(2).ToArgb.ToString = "0" Then Else pnlgreen3.BackColor = ShiftOSDesktop.greenmemory(2) + If ShiftOSDesktop.greenmemory(3).ToArgb.ToString = "0" Then Else pnlgreen4.BackColor = ShiftOSDesktop.greenmemory(3) + If ShiftOSDesktop.greenmemory(4).ToArgb.ToString = "0" Then Else pnlgreen5.BackColor = ShiftOSDesktop.greenmemory(4) + If ShiftOSDesktop.greenmemory(5).ToArgb.ToString = "0" Then Else pnlgreen6.BackColor = ShiftOSDesktop.greenmemory(5) + If ShiftOSDesktop.greenmemory(6).ToArgb.ToString = "0" Then Else pnlgreen7.BackColor = ShiftOSDesktop.greenmemory(6) + If ShiftOSDesktop.greenmemory(7).ToArgb.ToString = "0" Then Else pnlgreen8.BackColor = ShiftOSDesktop.greenmemory(7) + If ShiftOSDesktop.greenmemory(8).ToArgb.ToString = "0" Then Else pnlgreen9.BackColor = ShiftOSDesktop.greenmemory(8) + If ShiftOSDesktop.greenmemory(9).ToArgb.ToString = "0" Then Else pnlgreen10.BackColor = ShiftOSDesktop.greenmemory(9) + If ShiftOSDesktop.greenmemory(10).ToArgb.ToString = "0" Then Else pnlgreen11.BackColor = ShiftOSDesktop.greenmemory(10) + If ShiftOSDesktop.greenmemory(11).ToArgb.ToString = "0" Then Else pnlgreen12.BackColor = ShiftOSDesktop.greenmemory(11) + If ShiftOSDesktop.greenmemory(12).ToArgb.ToString = "0" Then Else pnlgreen13.BackColor = ShiftOSDesktop.greenmemory(12) + If ShiftOSDesktop.greenmemory(13).ToArgb.ToString = "0" Then Else pnlgreen14.BackColor = ShiftOSDesktop.greenmemory(13) + If ShiftOSDesktop.greenmemory(14).ToArgb.ToString = "0" Then Else pnlgreen15.BackColor = ShiftOSDesktop.greenmemory(14) + If ShiftOSDesktop.greenmemory(15).ToArgb.ToString = "0" Then Else pnlgreen16.BackColor = ShiftOSDesktop.greenmemory(15) + + If ShiftOSDesktop.yellowmemory(0).ToArgb.ToString = "0" Then Else pnlyellow1.BackColor = ShiftOSDesktop.yellowmemory(0) + If ShiftOSDesktop.yellowmemory(1).ToArgb.ToString = "0" Then Else pnlyellow2.BackColor = ShiftOSDesktop.yellowmemory(1) + If ShiftOSDesktop.yellowmemory(2).ToArgb.ToString = "0" Then Else pnlyellow3.BackColor = ShiftOSDesktop.yellowmemory(2) + If ShiftOSDesktop.yellowmemory(3).ToArgb.ToString = "0" Then Else pnlyellow4.BackColor = ShiftOSDesktop.yellowmemory(3) + If ShiftOSDesktop.yellowmemory(4).ToArgb.ToString = "0" Then Else pnlyellow5.BackColor = ShiftOSDesktop.yellowmemory(4) + If ShiftOSDesktop.yellowmemory(5).ToArgb.ToString = "0" Then Else pnlyellow6.BackColor = ShiftOSDesktop.yellowmemory(5) + If ShiftOSDesktop.yellowmemory(6).ToArgb.ToString = "0" Then Else pnlyellow7.BackColor = ShiftOSDesktop.yellowmemory(6) + If ShiftOSDesktop.yellowmemory(7).ToArgb.ToString = "0" Then Else pnlyellow8.BackColor = ShiftOSDesktop.yellowmemory(7) + If ShiftOSDesktop.yellowmemory(8).ToArgb.ToString = "0" Then Else pnlyellow9.BackColor = ShiftOSDesktop.yellowmemory(8) + If ShiftOSDesktop.yellowmemory(9).ToArgb.ToString = "0" Then Else pnlyellow10.BackColor = ShiftOSDesktop.yellowmemory(9) + If ShiftOSDesktop.yellowmemory(10).ToArgb.ToString = "0" Then Else pnlyellow11.BackColor = ShiftOSDesktop.yellowmemory(10) + If ShiftOSDesktop.yellowmemory(11).ToArgb.ToString = "0" Then Else pnlyellow12.BackColor = ShiftOSDesktop.yellowmemory(11) + If ShiftOSDesktop.yellowmemory(12).ToArgb.ToString = "0" Then Else pnlyellow13.BackColor = ShiftOSDesktop.yellowmemory(12) + If ShiftOSDesktop.yellowmemory(13).ToArgb.ToString = "0" Then Else pnlyellow14.BackColor = ShiftOSDesktop.yellowmemory(13) + If ShiftOSDesktop.yellowmemory(14).ToArgb.ToString = "0" Then Else pnlyellow15.BackColor = ShiftOSDesktop.yellowmemory(14) + If ShiftOSDesktop.yellowmemory(15).ToArgb.ToString = "0" Then Else pnlyellow16.BackColor = ShiftOSDesktop.yellowmemory(15) + + If ShiftOSDesktop.orangememory(0).ToArgb.ToString = "0" Then Else pnlorange1.BackColor = ShiftOSDesktop.orangememory(0) + If ShiftOSDesktop.orangememory(1).ToArgb.ToString = "0" Then Else pnlorange2.BackColor = ShiftOSDesktop.orangememory(1) + If ShiftOSDesktop.orangememory(2).ToArgb.ToString = "0" Then Else pnlorange3.BackColor = ShiftOSDesktop.orangememory(2) + If ShiftOSDesktop.orangememory(3).ToArgb.ToString = "0" Then Else pnlorange4.BackColor = ShiftOSDesktop.orangememory(3) + If ShiftOSDesktop.orangememory(4).ToArgb.ToString = "0" Then Else pnlorange5.BackColor = ShiftOSDesktop.orangememory(4) + If ShiftOSDesktop.orangememory(5).ToArgb.ToString = "0" Then Else pnlorange6.BackColor = ShiftOSDesktop.orangememory(5) + If ShiftOSDesktop.orangememory(6).ToArgb.ToString = "0" Then Else pnlorange7.BackColor = ShiftOSDesktop.orangememory(6) + If ShiftOSDesktop.orangememory(7).ToArgb.ToString = "0" Then Else pnlorange8.BackColor = ShiftOSDesktop.orangememory(7) + If ShiftOSDesktop.orangememory(8).ToArgb.ToString = "0" Then Else pnlorange9.BackColor = ShiftOSDesktop.orangememory(8) + If ShiftOSDesktop.orangememory(9).ToArgb.ToString = "0" Then Else pnlorange10.BackColor = ShiftOSDesktop.orangememory(9) + If ShiftOSDesktop.orangememory(10).ToArgb.ToString = "0" Then Else pnlorange11.BackColor = ShiftOSDesktop.orangememory(10) + If ShiftOSDesktop.orangememory(11).ToArgb.ToString = "0" Then Else pnlorange12.BackColor = ShiftOSDesktop.orangememory(11) + If ShiftOSDesktop.orangememory(12).ToArgb.ToString = "0" Then Else pnlorange13.BackColor = ShiftOSDesktop.orangememory(12) + If ShiftOSDesktop.orangememory(13).ToArgb.ToString = "0" Then Else pnlorange14.BackColor = ShiftOSDesktop.orangememory(13) + If ShiftOSDesktop.orangememory(14).ToArgb.ToString = "0" Then Else pnlorange15.BackColor = ShiftOSDesktop.orangememory(14) + If ShiftOSDesktop.orangememory(15).ToArgb.ToString = "0" Then Else pnlorange16.BackColor = ShiftOSDesktop.orangememory(15) + + If ShiftOSDesktop.brownmemory(0).ToArgb.ToString = "0" Then Else pnlbrown1.BackColor = ShiftOSDesktop.brownmemory(0) + If ShiftOSDesktop.brownmemory(1).ToArgb.ToString = "0" Then Else pnlbrown2.BackColor = ShiftOSDesktop.brownmemory(1) + If ShiftOSDesktop.brownmemory(2).ToArgb.ToString = "0" Then Else pnlbrown3.BackColor = ShiftOSDesktop.brownmemory(2) + If ShiftOSDesktop.brownmemory(3).ToArgb.ToString = "0" Then Else pnlbrown4.BackColor = ShiftOSDesktop.brownmemory(3) + If ShiftOSDesktop.brownmemory(4).ToArgb.ToString = "0" Then Else pnlbrown5.BackColor = ShiftOSDesktop.brownmemory(4) + If ShiftOSDesktop.brownmemory(5).ToArgb.ToString = "0" Then Else pnlbrown6.BackColor = ShiftOSDesktop.brownmemory(5) + If ShiftOSDesktop.brownmemory(6).ToArgb.ToString = "0" Then Else pnlbrown7.BackColor = ShiftOSDesktop.brownmemory(6) + If ShiftOSDesktop.brownmemory(7).ToArgb.ToString = "0" Then Else pnlbrown8.BackColor = ShiftOSDesktop.brownmemory(7) + If ShiftOSDesktop.brownmemory(8).ToArgb.ToString = "0" Then Else pnlbrown9.BackColor = ShiftOSDesktop.brownmemory(8) + If ShiftOSDesktop.brownmemory(9).ToArgb.ToString = "0" Then Else pnlbrown10.BackColor = ShiftOSDesktop.brownmemory(9) + If ShiftOSDesktop.brownmemory(10).ToArgb.ToString = "0" Then Else pnlbrown11.BackColor = ShiftOSDesktop.brownmemory(10) + If ShiftOSDesktop.brownmemory(11).ToArgb.ToString = "0" Then Else pnlbrown12.BackColor = ShiftOSDesktop.brownmemory(11) + If ShiftOSDesktop.brownmemory(12).ToArgb.ToString = "0" Then Else pnlbrown13.BackColor = ShiftOSDesktop.brownmemory(12) + If ShiftOSDesktop.brownmemory(13).ToArgb.ToString = "0" Then Else pnlbrown14.BackColor = ShiftOSDesktop.brownmemory(13) + If ShiftOSDesktop.brownmemory(14).ToArgb.ToString = "0" Then Else pnlbrown15.BackColor = ShiftOSDesktop.brownmemory(14) + If ShiftOSDesktop.brownmemory(15).ToArgb.ToString = "0" Then Else pnlbrown16.BackColor = ShiftOSDesktop.brownmemory(15) + + If ShiftOSDesktop.redmemory(0).ToArgb.ToString = "0" Then Else pnlred1.BackColor = ShiftOSDesktop.redmemory(0) + If ShiftOSDesktop.redmemory(1).ToArgb.ToString = "0" Then Else pnlred2.BackColor = ShiftOSDesktop.redmemory(1) + If ShiftOSDesktop.redmemory(2).ToArgb.ToString = "0" Then Else pnlred3.BackColor = ShiftOSDesktop.redmemory(2) + If ShiftOSDesktop.redmemory(3).ToArgb.ToString = "0" Then Else pnlred4.BackColor = ShiftOSDesktop.redmemory(3) + If ShiftOSDesktop.redmemory(4).ToArgb.ToString = "0" Then Else pnlred5.BackColor = ShiftOSDesktop.redmemory(4) + If ShiftOSDesktop.redmemory(5).ToArgb.ToString = "0" Then Else pnlred6.BackColor = ShiftOSDesktop.redmemory(5) + If ShiftOSDesktop.redmemory(6).ToArgb.ToString = "0" Then Else pnlred7.BackColor = ShiftOSDesktop.redmemory(6) + If ShiftOSDesktop.redmemory(7).ToArgb.ToString = "0" Then Else pnlred8.BackColor = ShiftOSDesktop.redmemory(7) + If ShiftOSDesktop.redmemory(8).ToArgb.ToString = "0" Then Else pnlred9.BackColor = ShiftOSDesktop.redmemory(8) + If ShiftOSDesktop.redmemory(9).ToArgb.ToString = "0" Then Else pnlred10.BackColor = ShiftOSDesktop.redmemory(9) + If ShiftOSDesktop.redmemory(10).ToArgb.ToString = "0" Then Else pnlred11.BackColor = ShiftOSDesktop.redmemory(10) + If ShiftOSDesktop.redmemory(11).ToArgb.ToString = "0" Then Else pnlred12.BackColor = ShiftOSDesktop.redmemory(11) + If ShiftOSDesktop.redmemory(12).ToArgb.ToString = "0" Then Else pnlred13.BackColor = ShiftOSDesktop.redmemory(12) + If ShiftOSDesktop.redmemory(13).ToArgb.ToString = "0" Then Else pnlred14.BackColor = ShiftOSDesktop.redmemory(13) + If ShiftOSDesktop.redmemory(14).ToArgb.ToString = "0" Then Else pnlred15.BackColor = ShiftOSDesktop.redmemory(14) + If ShiftOSDesktop.redmemory(15).ToArgb.ToString = "0" Then Else pnlred16.BackColor = ShiftOSDesktop.redmemory(15) + + If ShiftOSDesktop.pinkmemory(0).ToArgb.ToString = "0" Then Else pnlpink1.BackColor = ShiftOSDesktop.pinkmemory(0) + If ShiftOSDesktop.pinkmemory(1).ToArgb.ToString = "0" Then Else pnlpink2.BackColor = ShiftOSDesktop.pinkmemory(1) + If ShiftOSDesktop.pinkmemory(2).ToArgb.ToString = "0" Then Else pnlpink3.BackColor = ShiftOSDesktop.pinkmemory(2) + If ShiftOSDesktop.pinkmemory(3).ToArgb.ToString = "0" Then Else pnlpink4.BackColor = ShiftOSDesktop.pinkmemory(3) + If ShiftOSDesktop.pinkmemory(4).ToArgb.ToString = "0" Then Else pnlpink5.BackColor = ShiftOSDesktop.pinkmemory(4) + If ShiftOSDesktop.pinkmemory(5).ToArgb.ToString = "0" Then Else pnlpink6.BackColor = ShiftOSDesktop.pinkmemory(5) + If ShiftOSDesktop.pinkmemory(6).ToArgb.ToString = "0" Then Else pnlpink7.BackColor = ShiftOSDesktop.pinkmemory(6) + If ShiftOSDesktop.pinkmemory(7).ToArgb.ToString = "0" Then Else pnlpink8.BackColor = ShiftOSDesktop.pinkmemory(7) + If ShiftOSDesktop.pinkmemory(8).ToArgb.ToString = "0" Then Else pnlpink9.BackColor = ShiftOSDesktop.pinkmemory(8) + If ShiftOSDesktop.pinkmemory(9).ToArgb.ToString = "0" Then Else pnlpink10.BackColor = ShiftOSDesktop.pinkmemory(9) + If ShiftOSDesktop.pinkmemory(10).ToArgb.ToString = "0" Then Else pnlpink11.BackColor = ShiftOSDesktop.pinkmemory(10) + If ShiftOSDesktop.pinkmemory(11).ToArgb.ToString = "0" Then Else pnlpink12.BackColor = ShiftOSDesktop.pinkmemory(11) + If ShiftOSDesktop.pinkmemory(12).ToArgb.ToString = "0" Then Else pnlpink13.BackColor = ShiftOSDesktop.pinkmemory(12) + If ShiftOSDesktop.pinkmemory(13).ToArgb.ToString = "0" Then Else pnlpink14.BackColor = ShiftOSDesktop.pinkmemory(13) + If ShiftOSDesktop.pinkmemory(14).ToArgb.ToString = "0" Then Else pnlpink15.BackColor = ShiftOSDesktop.pinkmemory(14) + If ShiftOSDesktop.pinkmemory(15).ToArgb.ToString = "0" Then Else pnlpink16.BackColor = ShiftOSDesktop.pinkmemory(15) + End Sub + + Public Sub saveanymemory() + ShiftOSDesktop.anymemory(0) = pnlany1.BackColor + ShiftOSDesktop.anymemory(1) = pnlany2.BackColor + ShiftOSDesktop.anymemory(2) = pnlany3.BackColor + ShiftOSDesktop.anymemory(3) = pnlany4.BackColor + ShiftOSDesktop.anymemory(4) = pnlany5.BackColor + ShiftOSDesktop.anymemory(5) = pnlany6.BackColor + ShiftOSDesktop.anymemory(6) = pnlany7.BackColor + ShiftOSDesktop.anymemory(7) = pnlany8.BackColor + ShiftOSDesktop.anymemory(8) = pnlany9.BackColor + ShiftOSDesktop.anymemory(9) = pnlany10.BackColor + ShiftOSDesktop.anymemory(10) = pnlany11.BackColor + ShiftOSDesktop.anymemory(11) = pnlany12.BackColor + ShiftOSDesktop.anymemory(12) = pnlany13.BackColor + ShiftOSDesktop.anymemory(13) = pnlany14.BackColor + ShiftOSDesktop.anymemory(14) = pnlany15.BackColor + ShiftOSDesktop.anymemory(15) = pnlany16.BackColor + End Sub + + Public Sub savegraymemory() + ShiftOSDesktop.graymemory(0) = pnlgray1.BackColor + ShiftOSDesktop.graymemory(1) = pnlgray2.BackColor + ShiftOSDesktop.graymemory(2) = pnlgray3.BackColor + ShiftOSDesktop.graymemory(3) = pnlgray4.BackColor + ShiftOSDesktop.graymemory(4) = pnlgray5.BackColor + ShiftOSDesktop.graymemory(5) = pnlgray6.BackColor + ShiftOSDesktop.graymemory(6) = pnlgray7.BackColor + ShiftOSDesktop.graymemory(7) = pnlgray8.BackColor + ShiftOSDesktop.graymemory(8) = pnlgray9.BackColor + ShiftOSDesktop.graymemory(9) = pnlgray10.BackColor + ShiftOSDesktop.graymemory(10) = pnlgray11.BackColor + ShiftOSDesktop.graymemory(11) = pnlgray12.BackColor + ShiftOSDesktop.graymemory(12) = pnlgray13.BackColor + ShiftOSDesktop.graymemory(13) = pnlgray14.BackColor + ShiftOSDesktop.graymemory(14) = pnlgray15.BackColor + ShiftOSDesktop.graymemory(15) = pnlgray16.BackColor + End Sub + + Public Sub savepurplememory() + ShiftOSDesktop.purplememory(0) = pnlpurple1.BackColor + ShiftOSDesktop.purplememory(1) = pnlpurple2.BackColor + ShiftOSDesktop.purplememory(2) = pnlpurple3.BackColor + ShiftOSDesktop.purplememory(3) = pnlpurple4.BackColor + ShiftOSDesktop.purplememory(4) = pnlpurple5.BackColor + ShiftOSDesktop.purplememory(5) = pnlpurple6.BackColor + ShiftOSDesktop.purplememory(6) = pnlpurple7.BackColor + ShiftOSDesktop.purplememory(7) = pnlpurple8.BackColor + ShiftOSDesktop.purplememory(8) = pnlpurple9.BackColor + ShiftOSDesktop.purplememory(9) = pnlpurple10.BackColor + ShiftOSDesktop.purplememory(10) = pnlpurple11.BackColor + ShiftOSDesktop.purplememory(11) = pnlpurple12.BackColor + ShiftOSDesktop.purplememory(12) = pnlpurple13.BackColor + ShiftOSDesktop.purplememory(13) = pnlpurple14.BackColor + ShiftOSDesktop.purplememory(14) = pnlpurple15.BackColor + ShiftOSDesktop.purplememory(15) = pnlpurple16.BackColor + End Sub + + Public Sub savebluememory() + ShiftOSDesktop.bluememory(0) = pnlblue1.BackColor + ShiftOSDesktop.bluememory(1) = pnlblue2.BackColor + ShiftOSDesktop.bluememory(2) = pnlblue3.BackColor + ShiftOSDesktop.bluememory(3) = pnlblue4.BackColor + ShiftOSDesktop.bluememory(4) = pnlblue5.BackColor + ShiftOSDesktop.bluememory(5) = pnlblue6.BackColor + ShiftOSDesktop.bluememory(6) = pnlblue7.BackColor + ShiftOSDesktop.bluememory(7) = pnlblue8.BackColor + ShiftOSDesktop.bluememory(8) = pnlblue9.BackColor + ShiftOSDesktop.bluememory(9) = pnlblue10.BackColor + ShiftOSDesktop.bluememory(10) = pnlblue11.BackColor + ShiftOSDesktop.bluememory(11) = pnlblue12.BackColor + ShiftOSDesktop.bluememory(12) = pnlblue13.BackColor + ShiftOSDesktop.bluememory(13) = pnlblue14.BackColor + ShiftOSDesktop.bluememory(14) = pnlblue15.BackColor + ShiftOSDesktop.bluememory(15) = pnlblue16.BackColor + End Sub + + Public Sub savegreenmemory() + ShiftOSDesktop.greenmemory(0) = pnlgreen1.BackColor + ShiftOSDesktop.greenmemory(1) = pnlgreen2.BackColor + ShiftOSDesktop.greenmemory(2) = pnlgreen3.BackColor + ShiftOSDesktop.greenmemory(3) = pnlgreen4.BackColor + ShiftOSDesktop.greenmemory(4) = pnlgreen5.BackColor + ShiftOSDesktop.greenmemory(5) = pnlgreen6.BackColor + ShiftOSDesktop.greenmemory(6) = pnlgreen7.BackColor + ShiftOSDesktop.greenmemory(7) = pnlgreen8.BackColor + ShiftOSDesktop.greenmemory(8) = pnlgreen9.BackColor + ShiftOSDesktop.greenmemory(9) = pnlgreen10.BackColor + ShiftOSDesktop.greenmemory(10) = pnlgreen11.BackColor + ShiftOSDesktop.greenmemory(11) = pnlgreen12.BackColor + ShiftOSDesktop.greenmemory(12) = pnlgreen13.BackColor + ShiftOSDesktop.greenmemory(13) = pnlgreen14.BackColor + ShiftOSDesktop.greenmemory(14) = pnlgreen15.BackColor + ShiftOSDesktop.greenmemory(15) = pnlgreen16.BackColor + End Sub + + Public Sub saveyellowmemory() + ShiftOSDesktop.yellowmemory(0) = pnlyellow1.BackColor + ShiftOSDesktop.yellowmemory(1) = pnlyellow2.BackColor + ShiftOSDesktop.yellowmemory(2) = pnlyellow3.BackColor + ShiftOSDesktop.yellowmemory(3) = pnlyellow4.BackColor + ShiftOSDesktop.yellowmemory(4) = pnlyellow5.BackColor + ShiftOSDesktop.yellowmemory(5) = pnlyellow6.BackColor + ShiftOSDesktop.yellowmemory(6) = pnlyellow7.BackColor + ShiftOSDesktop.yellowmemory(7) = pnlyellow8.BackColor + ShiftOSDesktop.yellowmemory(8) = pnlyellow9.BackColor + ShiftOSDesktop.yellowmemory(9) = pnlyellow10.BackColor + ShiftOSDesktop.yellowmemory(10) = pnlyellow11.BackColor + ShiftOSDesktop.yellowmemory(11) = pnlyellow12.BackColor + ShiftOSDesktop.yellowmemory(12) = pnlyellow13.BackColor + ShiftOSDesktop.yellowmemory(13) = pnlyellow14.BackColor + ShiftOSDesktop.yellowmemory(14) = pnlyellow15.BackColor + ShiftOSDesktop.yellowmemory(15) = pnlyellow16.BackColor + End Sub + + Public Sub saveorangememory() + ShiftOSDesktop.orangememory(0) = pnlorange1.BackColor + ShiftOSDesktop.orangememory(1) = pnlorange2.BackColor + ShiftOSDesktop.orangememory(2) = pnlorange3.BackColor + ShiftOSDesktop.orangememory(3) = pnlorange4.BackColor + ShiftOSDesktop.orangememory(4) = pnlorange5.BackColor + ShiftOSDesktop.orangememory(5) = pnlorange6.BackColor + ShiftOSDesktop.orangememory(6) = pnlorange7.BackColor + ShiftOSDesktop.orangememory(7) = pnlorange8.BackColor + ShiftOSDesktop.orangememory(8) = pnlorange9.BackColor + ShiftOSDesktop.orangememory(9) = pnlorange10.BackColor + ShiftOSDesktop.orangememory(10) = pnlorange11.BackColor + ShiftOSDesktop.orangememory(11) = pnlorange12.BackColor + ShiftOSDesktop.orangememory(12) = pnlorange13.BackColor + ShiftOSDesktop.orangememory(13) = pnlorange14.BackColor + ShiftOSDesktop.orangememory(14) = pnlorange15.BackColor + ShiftOSDesktop.orangememory(15) = pnlorange16.BackColor + End Sub + + Public Sub savebrownmemory() + ShiftOSDesktop.brownmemory(0) = pnlbrown1.BackColor + ShiftOSDesktop.brownmemory(1) = pnlbrown2.BackColor + ShiftOSDesktop.brownmemory(2) = pnlbrown3.BackColor + ShiftOSDesktop.brownmemory(3) = pnlbrown4.BackColor + ShiftOSDesktop.brownmemory(4) = pnlbrown5.BackColor + ShiftOSDesktop.brownmemory(5) = pnlbrown6.BackColor + ShiftOSDesktop.brownmemory(6) = pnlbrown7.BackColor + ShiftOSDesktop.brownmemory(7) = pnlbrown8.BackColor + ShiftOSDesktop.brownmemory(8) = pnlbrown9.BackColor + ShiftOSDesktop.brownmemory(9) = pnlbrown10.BackColor + ShiftOSDesktop.brownmemory(10) = pnlbrown11.BackColor + ShiftOSDesktop.brownmemory(11) = pnlbrown12.BackColor + ShiftOSDesktop.brownmemory(12) = pnlbrown13.BackColor + ShiftOSDesktop.brownmemory(13) = pnlbrown14.BackColor + ShiftOSDesktop.brownmemory(14) = pnlbrown15.BackColor + ShiftOSDesktop.brownmemory(15) = pnlbrown16.BackColor + End Sub + + Public Sub saveredmemory() + ShiftOSDesktop.redmemory(0) = pnlred1.BackColor + ShiftOSDesktop.redmemory(1) = pnlred2.BackColor + ShiftOSDesktop.redmemory(2) = pnlred3.BackColor + ShiftOSDesktop.redmemory(3) = pnlred4.BackColor + ShiftOSDesktop.redmemory(4) = pnlred5.BackColor + ShiftOSDesktop.redmemory(5) = pnlred6.BackColor + ShiftOSDesktop.redmemory(6) = pnlred7.BackColor + ShiftOSDesktop.redmemory(7) = pnlred8.BackColor + ShiftOSDesktop.redmemory(8) = pnlred9.BackColor + ShiftOSDesktop.redmemory(9) = pnlred10.BackColor + ShiftOSDesktop.redmemory(10) = pnlred11.BackColor + ShiftOSDesktop.redmemory(11) = pnlred12.BackColor + ShiftOSDesktop.redmemory(12) = pnlred13.BackColor + ShiftOSDesktop.redmemory(13) = pnlred14.BackColor + ShiftOSDesktop.redmemory(14) = pnlred15.BackColor + ShiftOSDesktop.redmemory(15) = pnlred16.BackColor + End Sub + + Public Sub savepinkmemory() + ShiftOSDesktop.pinkmemory(0) = pnlpink1.BackColor + ShiftOSDesktop.pinkmemory(1) = pnlpink2.BackColor + ShiftOSDesktop.pinkmemory(2) = pnlpink3.BackColor + ShiftOSDesktop.pinkmemory(3) = pnlpink4.BackColor + ShiftOSDesktop.pinkmemory(4) = pnlpink5.BackColor + ShiftOSDesktop.pinkmemory(5) = pnlpink6.BackColor + ShiftOSDesktop.pinkmemory(6) = pnlpink7.BackColor + ShiftOSDesktop.pinkmemory(7) = pnlpink8.BackColor + ShiftOSDesktop.pinkmemory(8) = pnlpink9.BackColor + ShiftOSDesktop.pinkmemory(9) = pnlpink10.BackColor + ShiftOSDesktop.pinkmemory(10) = pnlpink11.BackColor + ShiftOSDesktop.pinkmemory(11) = pnlpink12.BackColor + ShiftOSDesktop.pinkmemory(12) = pnlpink13.BackColor + ShiftOSDesktop.pinkmemory(13) = pnlpink14.BackColor + ShiftOSDesktop.pinkmemory(14) = pnlpink15.BackColor + ShiftOSDesktop.pinkmemory(15) = pnlpink16.BackColor + End Sub + + Private Sub getoldcolour() + lblobjecttocolour.Text = colourtochange + pnloldcolour.BackColor = oldcolour + If pnloldcolour.BackColor.IsNamedColor Then + lbloldcolourname.Text = pnloldcolour.BackColor.Name & " :Name" + Else + lbloldcolourname.Text = "Custom :Name" + End If + lbloldcolourrgb.Text = pnloldcolour.BackColor.R & ", " & pnloldcolour.BackColor.G & ", " & pnloldcolour.BackColor.B & " :RGB" + + pnlnewcolour.BackColor = ShiftOSDesktop.lastcolourpick + If pnlnewcolour.BackColor.IsNamedColor Then + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End Sub + + Private Sub determinelevels() + If ShiftOSDesktop.boughtgray = True Then graylevel = 1 + If ShiftOSDesktop.boughtgray2 = True Then graylevel = 2 + If ShiftOSDesktop.boughtgray3 = True Then graylevel = 3 + If ShiftOSDesktop.boughtgray4 = True Then graylevel = 4 + If ShiftOSDesktop.boughtanycolour = True Then anylevel = 1 + If ShiftOSDesktop.boughtanycolour2 = True Then anylevel = 2 + If ShiftOSDesktop.boughtanycolour3 = True Then anylevel = 3 + If ShiftOSDesktop.boughtanycolour4 = True Then anylevel = 4 + If ShiftOSDesktop.boughtpurple = True Then purplelevel = 1 + If ShiftOSDesktop.boughtpurple2 = True Then purplelevel = 2 + If ShiftOSDesktop.boughtpurple3 = True Then purplelevel = 3 + If ShiftOSDesktop.boughtpurple4 = True Then purplelevel = 4 + If ShiftOSDesktop.boughtblue = True Then bluelevel = 1 + If ShiftOSDesktop.boughtblue2 = True Then bluelevel = 2 + If ShiftOSDesktop.boughtblue3 = True Then bluelevel = 3 + If ShiftOSDesktop.boughtblue4 = True Then bluelevel = 4 + If ShiftOSDesktop.boughtgreen = True Then greenlevel = 1 + If ShiftOSDesktop.boughtgreen2 = True Then greenlevel = 2 + If ShiftOSDesktop.boughtgreen3 = True Then greenlevel = 3 + If ShiftOSDesktop.boughtgreen4 = True Then greenlevel = 4 + If ShiftOSDesktop.boughtyellow = True Then yellowlevel = 1 + If ShiftOSDesktop.boughtyellow2 = True Then yellowlevel = 2 + If ShiftOSDesktop.boughtyellow3 = True Then yellowlevel = 3 + If ShiftOSDesktop.boughtyellow4 = True Then yellowlevel = 4 + If ShiftOSDesktop.boughtorange = True Then orangelevel = 1 + If ShiftOSDesktop.boughtorange2 = True Then orangelevel = 2 + If ShiftOSDesktop.boughtorange3 = True Then orangelevel = 3 + If ShiftOSDesktop.boughtorange4 = True Then orangelevel = 4 + If ShiftOSDesktop.boughtbrown = True Then brownlevel = 1 + If ShiftOSDesktop.boughtbrown2 = True Then brownlevel = 2 + If ShiftOSDesktop.boughtbrown3 = True Then brownlevel = 3 + If ShiftOSDesktop.boughtbrown4 = True Then brownlevel = 4 + If ShiftOSDesktop.boughtred = True Then redlevel = 1 + If ShiftOSDesktop.boughtred2 = True Then redlevel = 2 + If ShiftOSDesktop.boughtred3 = True Then redlevel = 3 + If ShiftOSDesktop.boughtred4 = True Then redlevel = 4 + If ShiftOSDesktop.boughtpink = True Then pinklevel = 1 + If ShiftOSDesktop.boughtpink2 = True Then pinklevel = 2 + If ShiftOSDesktop.boughtpink3 = True Then pinklevel = 3 + If ShiftOSDesktop.boughtpink4 = True Then pinklevel = 4 + End Sub + + Private Sub shrinktosizebasedoncoloursbought() + If ShiftOSDesktop.boughtpink = False Then + Me.Height = Me.Height - 46 + Else + pnlpinkcolours.Show() + End If + If ShiftOSDesktop.boughtred = False Then + Me.Height = Me.Height - 46 + Else + pnlredcolours.Show() + End If + If ShiftOSDesktop.boughtbrown = False Then + Me.Height = Me.Height - 46 + Else + pnlbrowncolours.Show() + End If + If ShiftOSDesktop.boughtorange = False Then + Me.Height = Me.Height - 46 + Else + pnlorangecolours.Show() + End If + If ShiftOSDesktop.boughtyellow = False Then + Me.Height = Me.Height - 46 + Else + pnlyellowcolours.Show() + End If + If ShiftOSDesktop.boughtgreen = False Then + Me.Height = Me.Height - 46 + Else + pnlgreencolours.Show() + End If + If ShiftOSDesktop.boughtblue = False Then + Me.Height = Me.Height - 46 + Else + pnlbluecolours.Show() + End If + If ShiftOSDesktop.boughtpurple = False Then + Me.Height = Me.Height - 46 + Else + pnlpurplecolours.Show() + End If + If ShiftOSDesktop.boughtgray = False Then + Me.Height = Me.Height - 46 + Else + pnlgraycolours.Show() + End If + If ShiftOSDesktop.boughtanycolour = False Then + Me.Height = Me.Height - 46 + Else + pnlanycolours.Show() + End If + End Sub + + Private Sub setupboughtcolours() + Select Case graylevel + Case 1 + lblgraylevel.Text = "Level 1" + pnlgray1.BackColor = Color.Black + pnlgray1.Show() + pnlgray2.BackColor = Color.Gray + pnlgray2.Show() + pnlgray3.BackColor = Color.White + pnlgray3.Show() + Case 2 + lblgraylevel.Text = "Level 2" + pnlgray1.BackColor = Color.Black + pnlgray1.Show() + pnlgray2.BackColor = Color.DimGray + pnlgray2.Show() + pnlgray3.BackColor = Color.Gray + pnlgray3.Show() + pnlgray4.BackColor = Color.LightGray + pnlgray4.Show() + pnlgray5.BackColor = Color.White + pnlgray5.Show() + Case 3 + lblgraylevel.Text = "Level 3" + pnlgray1.BackColor = Color.Black + pnlgray1.Show() + pnlgray2.BackColor = Color.DimGray + pnlgray2.Show() + pnlgray3.BackColor = Color.Gray + pnlgray3.Show() + pnlgray4.BackColor = Color.DarkGray + pnlgray4.Show() + pnlgray5.BackColor = Color.Silver + pnlgray5.Show() + pnlgray6.BackColor = Color.LightGray + pnlgray6.Show() + pnlgray7.BackColor = Color.Gainsboro + pnlgray7.Show() + pnlgray8.BackColor = Color.WhiteSmoke + pnlgray8.Show() + pnlgray9.BackColor = Color.White + pnlgray9.Show() + Case 4 + lblgraylevel.Text = "Level 4" + pnlgray1.BackColor = Color.Black + pnlgray1.Show() + pnlgray2.BackColor = Color.DimGray + pnlgray2.Show() + pnlgray3.BackColor = Color.Gray + pnlgray3.Show() + pnlgray4.BackColor = Color.DarkGray + pnlgray4.Show() + pnlgray5.BackColor = Color.Silver + pnlgray5.Show() + pnlgray6.BackColor = Color.LightGray + pnlgray6.Show() + pnlgray7.BackColor = Color.Gainsboro + pnlgray7.Show() + pnlgray8.BackColor = Color.WhiteSmoke + pnlgray8.Show() + pnlgray9.BackColor = Color.White + pnlgray9.Show() + pnlgray10.BackColor = Color.White + pnlgray10.Show() + pnlgray11.BackColor = Color.White + pnlgray11.Show() + pnlgray12.BackColor = Color.White + pnlgray12.Show() + pnlgray13.BackColor = Color.White + pnlgray13.Show() + pnlgray14.BackColor = Color.White + pnlgray14.Show() + pnlgray15.BackColor = Color.White + pnlgray15.Show() + pnlgray16.BackColor = Color.White + pnlgray16.Show() + pnlgraycustomcolour.Show() + lblcustomshadetut.Show() + txtcustomgrayshade.Show() + End Select + + Select Case purplelevel + Case 1 + lblpurplelevel.Text = "Level 1" + pnlpurple1.BackColor = Color.Purple + pnlpurple1.Show() + Case 2 + lblpurplelevel.Text = "Level 2" + pnlpurple1.BackColor = Color.Indigo + pnlpurple1.Show() + pnlpurple2.BackColor = Color.Purple + pnlpurple2.Show() + pnlpurple3.BackColor = Color.MediumPurple + pnlpurple3.Show() + Case 3 + lblpurplelevel.Text = "Level 3" + pnlpurple1.BackColor = Color.Indigo + pnlpurple1.Show() + pnlpurple2.BackColor = Color.DarkSlateBlue + pnlpurple2.Show() + pnlpurple3.BackColor = Color.Purple + pnlpurple3.Show() + pnlpurple4.BackColor = Color.DarkOrchid + pnlpurple4.Show() + pnlpurple5.BackColor = Color.DarkViolet + pnlpurple5.Show() + pnlpurple6.BackColor = Color.BlueViolet + pnlpurple6.Show() + pnlpurple7.BackColor = Color.SlateBlue + pnlpurple7.Show() + pnlpurple8.BackColor = Color.MediumSlateBlue + pnlpurple8.Show() + pnlpurple9.BackColor = Color.MediumPurple + pnlpurple9.Show() + pnlpurple10.BackColor = Color.MediumOrchid + pnlpurple10.Show() + pnlpurple11.BackColor = Color.Magenta + pnlpurple11.Show() + pnlpurple12.BackColor = Color.Orchid + pnlpurple12.Show() + pnlpurple13.BackColor = Color.Violet + pnlpurple13.Show() + pnlpurple14.BackColor = Color.Plum + pnlpurple14.Show() + pnlpurple15.BackColor = Color.Thistle + pnlpurple15.Show() + pnlpurple16.BackColor = Color.Lavender + pnlpurple16.Show() + Case 4 + lblpurplelevel.Text = "Level 4" + pnlpurple1.BackColor = Color.Indigo + pnlpurple1.Show() + pnlpurple2.BackColor = Color.DarkSlateBlue + pnlpurple2.Show() + pnlpurple3.BackColor = Color.Purple + pnlpurple3.Show() + pnlpurple4.BackColor = Color.DarkOrchid + pnlpurple4.Show() + pnlpurple5.BackColor = Color.DarkViolet + pnlpurple5.Show() + pnlpurple6.BackColor = Color.BlueViolet + pnlpurple6.Show() + pnlpurple7.BackColor = Color.SlateBlue + pnlpurple7.Show() + pnlpurple8.BackColor = Color.MediumSlateBlue + pnlpurple8.Show() + pnlpurple9.BackColor = Color.MediumPurple + pnlpurple9.Show() + pnlpurple10.BackColor = Color.MediumOrchid + pnlpurple10.Show() + pnlpurple11.BackColor = Color.Magenta + pnlpurple11.Show() + pnlpurple12.BackColor = Color.Orchid + pnlpurple12.Show() + pnlpurple13.BackColor = Color.Violet + pnlpurple13.Show() + pnlpurple14.BackColor = Color.Plum + pnlpurple14.Show() + pnlpurple15.BackColor = Color.Thistle + pnlpurple15.Show() + pnlpurple16.BackColor = Color.Lavender + pnlpurple16.Show() + pnlpurplecustomcolour.Show() + pnlpurpleoptions.Show() + End Select + + Select Case bluelevel + Case 1 + lblbluelevel.Text = "Level 1" + pnlblue1.BackColor = Color.Blue + pnlblue1.Show() + Case 2 + lblbluelevel.Text = "Level 2" + pnlblue1.BackColor = Color.Navy + pnlblue1.Show() + pnlblue2.BackColor = Color.Blue + pnlblue2.Show() + pnlblue3.BackColor = Color.LightBlue + pnlblue3.Show() + Case 3 + lblbluelevel.Text = "Level 3" + pnlblue1.BackColor = Color.MidnightBlue + pnlblue1.Show() + pnlblue2.BackColor = Color.Navy + pnlblue2.Show() + pnlblue3.BackColor = Color.Blue + pnlblue3.Show() + pnlblue4.BackColor = Color.RoyalBlue + pnlblue4.Show() + pnlblue5.BackColor = Color.CornflowerBlue + pnlblue5.Show() + pnlblue6.BackColor = Color.DeepSkyBlue + pnlblue6.Show() + pnlblue7.BackColor = Color.SkyBlue + pnlblue7.Show() + pnlblue8.BackColor = Color.LightBlue + pnlblue8.Show() + pnlblue9.BackColor = Color.LightSteelBlue + pnlblue9.Show() + pnlblue10.BackColor = Color.Cyan + pnlblue10.Show() + pnlblue11.BackColor = Color.Aquamarine + pnlblue11.Show() + pnlblue12.BackColor = Color.DarkTurquoise + pnlblue12.Show() + pnlblue13.BackColor = Color.LightSeaGreen + pnlblue13.Show() + pnlblue14.BackColor = Color.MediumAquamarine + pnlblue14.Show() + pnlblue15.BackColor = Color.CadetBlue + pnlblue15.Show() + pnlblue16.BackColor = Color.Teal + pnlblue16.Show() + Case 4 + lblbluelevel.Text = "Level 4" + pnlblue1.BackColor = Color.MidnightBlue + pnlblue1.Show() + pnlblue2.BackColor = Color.Navy + pnlblue2.Show() + pnlblue3.BackColor = Color.Blue + pnlblue3.Show() + pnlblue4.BackColor = Color.RoyalBlue + pnlblue4.Show() + pnlblue5.BackColor = Color.CornflowerBlue + pnlblue5.Show() + pnlblue6.BackColor = Color.DeepSkyBlue + pnlblue6.Show() + pnlblue7.BackColor = Color.SkyBlue + pnlblue7.Show() + pnlblue8.BackColor = Color.LightBlue + pnlblue8.Show() + pnlblue9.BackColor = Color.LightSteelBlue + pnlblue9.Show() + pnlblue10.BackColor = Color.Cyan + pnlblue10.Show() + pnlblue11.BackColor = Color.Aquamarine + pnlblue11.Show() + pnlblue12.BackColor = Color.DarkTurquoise + pnlblue12.Show() + pnlblue13.BackColor = Color.LightSeaGreen + pnlblue13.Show() + pnlblue14.BackColor = Color.MediumAquamarine + pnlblue14.Show() + pnlblue15.BackColor = Color.CadetBlue + pnlblue15.Show() + pnlblue16.BackColor = Color.Teal + pnlblue16.Show() + pnlbluecustomcolour.Show() + pnlblueoptions.Show() + End Select + + Select Case greenlevel + Case 1 + lblgreenlevel.Text = "Level 1" + pnlgreen1.BackColor = Color.Green + pnlgreen1.Show() + Case 2 + lblgreenlevel.Text = "Level 2" + pnlgreen1.BackColor = Color.DarkGreen + pnlgreen1.Show() + pnlgreen2.BackColor = Color.Green + pnlgreen2.Show() + pnlgreen3.BackColor = Color.LightGreen + pnlgreen3.Show() + Case 3 + lblgreenlevel.Text = "Level 3" + pnlgreen1.BackColor = Color.DarkGreen + pnlgreen1.Show() + pnlgreen2.BackColor = Color.Green + pnlgreen2.Show() + pnlgreen3.BackColor = Color.SeaGreen + pnlgreen3.Show() + pnlgreen4.BackColor = Color.MediumSeaGreen + pnlgreen4.Show() + pnlgreen5.BackColor = Color.DarkSeaGreen + pnlgreen5.Show() + pnlgreen6.BackColor = Color.LightGreen + pnlgreen6.Show() + pnlgreen7.BackColor = Color.MediumSpringGreen + pnlgreen7.Show() + pnlgreen8.BackColor = Color.SpringGreen + pnlgreen8.Show() + pnlgreen9.BackColor = Color.GreenYellow + pnlgreen9.Show() + pnlgreen10.BackColor = Color.LawnGreen + pnlgreen10.Show() + pnlgreen11.BackColor = Color.Lime + pnlgreen11.Show() + pnlgreen12.BackColor = Color.LimeGreen + pnlgreen12.Show() + pnlgreen13.BackColor = Color.YellowGreen + pnlgreen13.Show() + pnlgreen14.BackColor = Color.OliveDrab + pnlgreen14.Show() + pnlgreen15.BackColor = Color.Olive + pnlgreen15.Show() + pnlgreen16.BackColor = Color.DarkOliveGreen + pnlgreen16.Show() + Case 4 + lblgreenlevel.Text = "Level 4" + pnlgreen1.BackColor = Color.DarkGreen + pnlgreen1.Show() + pnlgreen2.BackColor = Color.Green + pnlgreen2.Show() + pnlgreen3.BackColor = Color.SeaGreen + pnlgreen3.Show() + pnlgreen4.BackColor = Color.MediumSeaGreen + pnlgreen4.Show() + pnlgreen5.BackColor = Color.DarkSeaGreen + pnlgreen5.Show() + pnlgreen6.BackColor = Color.LightGreen + pnlgreen6.Show() + pnlgreen7.BackColor = Color.MediumSpringGreen + pnlgreen7.Show() + pnlgreen8.BackColor = Color.SpringGreen + pnlgreen8.Show() + pnlgreen9.BackColor = Color.GreenYellow + pnlgreen9.Show() + pnlgreen10.BackColor = Color.LawnGreen + pnlgreen10.Show() + pnlgreen11.BackColor = Color.Lime + pnlgreen11.Show() + pnlgreen12.BackColor = Color.LimeGreen + pnlgreen12.Show() + pnlgreen13.BackColor = Color.YellowGreen + pnlgreen13.Show() + pnlgreen14.BackColor = Color.OliveDrab + pnlgreen14.Show() + pnlgreen15.BackColor = Color.Olive + pnlgreen15.Show() + pnlgreen16.BackColor = Color.DarkOliveGreen + pnlgreen16.Show() + pnlgreencustomcolour.Show() + pnlgreenoptions.Show() + End Select + + Select Case yellowlevel + Case 1 + lblyellowlevel.Text = "Level 1" + pnlyellow1.BackColor = Color.Yellow + pnlyellow1.Show() + Case 2 + lblyellowlevel.Text = "Level 2" + pnlyellow1.BackColor = Color.DarkKhaki + pnlyellow1.Show() + pnlyellow2.BackColor = Color.Yellow + pnlyellow2.Show() + pnlyellow3.BackColor = Color.PaleGoldenrod + pnlyellow3.Show() + Case 3 + lblyellowlevel.Text = "Level 3" + pnlyellow1.BackColor = Color.DarkKhaki + pnlyellow1.Show() + pnlyellow2.BackColor = Color.Yellow + pnlyellow2.Show() + pnlyellow3.BackColor = Color.Khaki + pnlyellow3.Show() + pnlyellow4.BackColor = Color.PaleGoldenrod + pnlyellow4.Show() + pnlyellow5.BackColor = Color.PeachPuff + pnlyellow5.Show() + pnlyellow6.BackColor = Color.Moccasin + pnlyellow6.Show() + pnlyellow7.BackColor = Color.PapayaWhip + pnlyellow7.Show() + pnlyellow8.BackColor = Color.LightGoldenrodYellow + pnlyellow8.Show() + pnlyellow9.BackColor = Color.LemonChiffon + pnlyellow9.Show() + pnlyellow10.BackColor = Color.LightYellow + pnlyellow10.Show() + Case 4 + lblyellowlevel.Text = "Level 4" + pnlyellow1.BackColor = Color.DarkKhaki + pnlyellow1.Show() + pnlyellow2.BackColor = Color.Yellow + pnlyellow2.Show() + pnlyellow3.BackColor = Color.Khaki + pnlyellow3.Show() + pnlyellow4.BackColor = Color.PaleGoldenrod + pnlyellow4.Show() + pnlyellow5.BackColor = Color.PeachPuff + pnlyellow5.Show() + pnlyellow6.BackColor = Color.Moccasin + pnlyellow6.Show() + pnlyellow7.BackColor = Color.PapayaWhip + pnlyellow7.Show() + pnlyellow8.BackColor = Color.LightGoldenrodYellow + pnlyellow8.Show() + pnlyellow9.BackColor = Color.LemonChiffon + pnlyellow9.Show() + pnlyellow10.BackColor = Color.LightYellow + pnlyellow10.Show() + pnlyellow11.BackColor = Color.White + pnlyellow11.Show() + pnlyellow12.BackColor = Color.White + pnlyellow12.Show() + pnlyellow13.BackColor = Color.White + pnlyellow13.Show() + pnlyellow14.BackColor = Color.White + pnlyellow14.Show() + pnlyellow15.BackColor = Color.White + pnlyellow15.Show() + pnlyellow16.BackColor = Color.White + pnlyellow16.Show() + pnlyellowcustomcolour.Show() + pnlyellowoptions.Show() + End Select + + Select Case orangelevel + Case 1 + lblorangelevel.Text = "Level 1" + pnlorange1.BackColor = Color.DarkOrange + pnlorange1.Show() + Case 2 + lblorangelevel.Text = "Level 2" + pnlorange1.BackColor = Color.OrangeRed + pnlorange1.Show() + pnlorange2.BackColor = Color.DarkOrange + pnlorange2.Show() + pnlorange3.BackColor = Color.Orange + pnlorange3.Show() + Case 3 + lblorangelevel.Text = "Level 3" + pnlorange1.BackColor = Color.OrangeRed + pnlorange1.Show() + pnlorange2.BackColor = Color.Tomato + pnlorange2.Show() + pnlorange3.BackColor = Color.Coral + pnlorange3.Show() + pnlorange4.BackColor = Color.DarkOrange + pnlorange4.Show() + pnlorange5.BackColor = Color.Orange + pnlorange5.Show() + pnlorange6.BackColor = Color.Gold + pnlorange6.Show() + Case 4 + lblorangelevel.Text = "Level 4" + pnlorange1.BackColor = Color.OrangeRed + pnlorange1.Show() + pnlorange2.BackColor = Color.Tomato + pnlorange2.Show() + pnlorange3.BackColor = Color.Coral + pnlorange3.Show() + pnlorange4.BackColor = Color.DarkOrange + pnlorange4.Show() + pnlorange5.BackColor = Color.Orange + pnlorange5.Show() + pnlorange6.BackColor = Color.Gold + pnlorange6.Show() + pnlorange7.BackColor = Color.White + pnlorange7.Show() + pnlorange8.BackColor = Color.White + pnlorange8.Show() + pnlorange9.BackColor = Color.White + pnlorange9.Show() + pnlorange10.BackColor = Color.White + pnlorange10.Show() + pnlorange11.BackColor = Color.White + pnlorange11.Show() + pnlorange12.BackColor = Color.White + pnlorange12.Show() + pnlorange13.BackColor = Color.White + pnlorange13.Show() + pnlorange14.BackColor = Color.White + pnlorange14.Show() + pnlorange15.BackColor = Color.White + pnlorange15.Show() + pnlorange16.BackColor = Color.White + pnlorange16.Show() + pnlorangecustomcolour.Show() + pnlorangeoptions.Show() + End Select + + Select Case brownlevel + Case 1 + lblbrownlevel.Text = "Level 1" + pnlbrown1.BackColor = Color.Sienna + pnlbrown1.Show() + Case 2 + lblbrownlevel.Text = "Level 2" + pnlbrown1.BackColor = Color.SaddleBrown + pnlbrown1.Show() + pnlbrown2.BackColor = Color.Sienna + pnlbrown2.Show() + pnlbrown3.BackColor = Color.BurlyWood + pnlbrown3.Show() + Case 3 + lblbrownlevel.Text = "Level 3" + pnlbrown1.BackColor = Color.Maroon + pnlbrown1.Show() + pnlbrown2.BackColor = Color.Brown + pnlbrown2.Show() + pnlbrown3.BackColor = Color.Sienna + pnlbrown3.Show() + pnlbrown4.BackColor = Color.SaddleBrown + pnlbrown4.Show() + pnlbrown5.BackColor = Color.Chocolate + pnlbrown5.Show() + pnlbrown6.BackColor = Color.Peru + pnlbrown6.Show() + pnlbrown7.BackColor = Color.DarkGoldenrod + pnlbrown7.Show() + pnlbrown8.BackColor = Color.Goldenrod + pnlbrown8.Show() + pnlbrown9.BackColor = Color.SandyBrown + pnlbrown9.Show() + pnlbrown10.BackColor = Color.RosyBrown + pnlbrown10.Show() + pnlbrown11.BackColor = Color.Tan + pnlbrown11.Show() + pnlbrown12.BackColor = Color.BurlyWood + pnlbrown12.Show() + pnlbrown13.BackColor = Color.Wheat + pnlbrown13.Show() + pnlbrown14.BackColor = Color.NavajoWhite + pnlbrown14.Show() + pnlbrown15.BackColor = Color.Bisque + pnlbrown15.Show() + pnlbrown16.BackColor = Color.BlanchedAlmond + pnlbrown16.Show() + Case 4 + lblbrownlevel.Text = "Level 4" + pnlbrown1.BackColor = Color.Maroon + pnlbrown1.Show() + pnlbrown2.BackColor = Color.Brown + pnlbrown2.Show() + pnlbrown3.BackColor = Color.Sienna + pnlbrown3.Show() + pnlbrown4.BackColor = Color.SaddleBrown + pnlbrown4.Show() + pnlbrown5.BackColor = Color.Chocolate + pnlbrown5.Show() + pnlbrown6.BackColor = Color.Peru + pnlbrown6.Show() + pnlbrown7.BackColor = Color.DarkGoldenrod + pnlbrown7.Show() + pnlbrown8.BackColor = Color.Goldenrod + pnlbrown8.Show() + pnlbrown9.BackColor = Color.SandyBrown + pnlbrown9.Show() + pnlbrown10.BackColor = Color.RosyBrown + pnlbrown10.Show() + pnlbrown11.BackColor = Color.Tan + pnlbrown11.Show() + pnlbrown12.BackColor = Color.BurlyWood + pnlbrown12.Show() + pnlbrown13.BackColor = Color.Wheat + pnlbrown13.Show() + pnlbrown14.BackColor = Color.NavajoWhite + pnlbrown14.Show() + pnlbrown15.BackColor = Color.Bisque + pnlbrown15.Show() + pnlbrown16.BackColor = Color.BlanchedAlmond + pnlbrown16.Show() + pnlbrowncustomcolour.Show() + pnlbrownoptions.Show() + End Select + + Select Case redlevel + Case 1 + lblredlevel.Text = "Level 1" + pnlred1.BackColor = Color.Red + pnlred1.Show() + Case 2 + lblredlevel.Text = "Level 2" + pnlred1.BackColor = Color.DarkRed + pnlred1.Show() + pnlred2.BackColor = Color.Red + pnlred2.Show() + pnlred3.BackColor = Color.Salmon + pnlred3.Show() + Case 3 + lblredlevel.Text = "Level 3" + pnlred1.BackColor = Color.DarkRed + pnlred1.Show() + pnlred2.BackColor = Color.Red + pnlred2.Show() + pnlred3.BackColor = Color.Firebrick + pnlred3.Show() + pnlred4.BackColor = Color.Crimson + pnlred4.Show() + pnlred5.BackColor = Color.IndianRed + pnlred5.Show() + pnlred6.BackColor = Color.LightCoral + pnlred6.Show() + pnlred7.BackColor = Color.DarkSalmon + pnlred7.Show() + pnlred8.BackColor = Color.Salmon + pnlred8.Show() + pnlred9.BackColor = Color.LightSalmon + pnlred9.Show() + Case 4 + lblredlevel.Text = "Level 4" + pnlred1.BackColor = Color.DarkRed + pnlred1.Show() + pnlred2.BackColor = Color.Red + pnlred2.Show() + pnlred3.BackColor = Color.Firebrick + pnlred3.Show() + pnlred4.BackColor = Color.Crimson + pnlred4.Show() + pnlred5.BackColor = Color.IndianRed + pnlred5.Show() + pnlred6.BackColor = Color.LightCoral + pnlred6.Show() + pnlred7.BackColor = Color.DarkSalmon + pnlred7.Show() + pnlred8.BackColor = Color.Salmon + pnlred8.Show() + pnlred9.BackColor = Color.LightSalmon + pnlred9.Show() + pnlred10.BackColor = Color.White + pnlred10.Show() + pnlred11.BackColor = Color.White + pnlred11.Show() + pnlred12.BackColor = Color.White + pnlred12.Show() + pnlred13.BackColor = Color.White + pnlred13.Show() + pnlred14.BackColor = Color.White + pnlred14.Show() + pnlred15.BackColor = Color.White + pnlred15.Show() + pnlred16.BackColor = Color.White + pnlred16.Show() + pnlredcustomcolour.Show() + pnlredoptions.Show() + End Select + + Select Case pinklevel + Case 1 + lblpinklevel.Text = "Level 1" + pnlpink1.BackColor = Color.HotPink + pnlpink1.Show() + Case 2 + lblpinklevel.Text = "Level 2" + pnlpink1.BackColor = Color.DeepPink + pnlpink1.Show() + pnlpink2.BackColor = Color.HotPink + pnlpink2.Show() + pnlpink3.BackColor = Color.LightPink + pnlpink3.Show() + Case 3 + lblpinklevel.Text = "Level 3" + pnlpink1.BackColor = Color.MediumVioletRed + pnlpink1.Show() + pnlpink2.BackColor = Color.PaleVioletRed + pnlpink2.Show() + pnlpink3.BackColor = Color.DeepPink + pnlpink3.Show() + pnlpink4.BackColor = Color.HotPink + pnlpink4.Show() + pnlpink5.BackColor = Color.LightPink + pnlpink5.Show() + pnlpink6.BackColor = Color.Pink + pnlpink6.Show() + Case 4 + lblpinklevel.Text = "Level 4" + pnlpink1.BackColor = Color.MediumVioletRed + pnlpink1.Show() + pnlpink2.BackColor = Color.PaleVioletRed + pnlpink2.Show() + pnlpink3.BackColor = Color.DeepPink + pnlpink3.Show() + pnlpink4.BackColor = Color.HotPink + pnlpink4.Show() + pnlpink5.BackColor = Color.LightPink + pnlpink5.Show() + pnlpink6.BackColor = Color.Pink + pnlpink6.Show() + pnlpink7.BackColor = Color.White + pnlpink7.Show() + pnlpink8.BackColor = Color.White + pnlpink8.Show() + pnlpink9.BackColor = Color.White + pnlpink9.Show() + pnlpink10.BackColor = Color.White + pnlpink10.Show() + pnlpink11.BackColor = Color.White + pnlpink11.Show() + pnlpink12.BackColor = Color.White + pnlpink12.Show() + pnlpink13.BackColor = Color.White + pnlpink13.Show() + pnlpink14.BackColor = Color.White + pnlpink14.Show() + pnlpink15.BackColor = Color.White + pnlpink15.Show() + pnlpink16.BackColor = Color.White + pnlpink16.Show() + pnlpinkcustomcolour.Show() + pnlpinkoptions.Show() + End Select + + Select Case anylevel + Case 1 + lblanylevel.Text = "Level 1" + pnlany1.BackColor = Color.White + pnlany1.Show() + pnlanycustomcolour.Show() + pnlanyoptions.Show() + Case 2 + lblanylevel.Text = "Level 2" + pnlany1.BackColor = Color.White + pnlany1.Show() + pnlany2.BackColor = Color.White + pnlany2.Show() + pnlany3.BackColor = Color.White + pnlany3.Show() + pnlany4.BackColor = Color.White + pnlany4.Show() + pnlanycustomcolour.Show() + pnlanyoptions.Show() + Case 3 + lblanylevel.Text = "Level 3" + pnlany1.BackColor = Color.White + pnlany1.Show() + pnlany2.BackColor = Color.White + pnlany2.Show() + pnlany3.BackColor = Color.White + pnlany3.Show() + pnlany4.BackColor = Color.White + pnlany4.Show() + pnlany5.BackColor = Color.White + pnlany5.Show() + pnlany6.BackColor = Color.White + pnlany6.Show() + pnlany7.BackColor = Color.White + pnlany7.Show() + pnlany8.BackColor = Color.White + pnlany8.Show() + pnlanycustomcolour.Show() + pnlanyoptions.Show() + Case 4 + lblanylevel.Text = "Level 4" + pnlany1.BackColor = Color.White + pnlany1.Show() + pnlany2.BackColor = Color.White + pnlany2.Show() + pnlany3.BackColor = Color.White + pnlany3.Show() + pnlany4.BackColor = Color.White + pnlany4.Show() + pnlany5.BackColor = Color.White + pnlany5.Show() + pnlany6.BackColor = Color.White + pnlany6.Show() + pnlany7.BackColor = Color.White + pnlany7.Show() + pnlany8.BackColor = Color.White + pnlany8.Show() + pnlany9.BackColor = Color.White + pnlany9.Show() + pnlany10.BackColor = Color.White + pnlany10.Show() + pnlany11.BackColor = Color.White + pnlany11.Show() + pnlany12.BackColor = Color.White + pnlany12.Show() + pnlany13.BackColor = Color.White + pnlany13.Show() + pnlany14.BackColor = Color.White + pnlany14.Show() + pnlany15.BackColor = Color.White + pnlany15.Show() + pnlany16.BackColor = Color.White + pnlany16.Show() + pnlanycustomcolour.Show() + pnlanyoptions.Show() + End Select + End Sub + + Private Sub pnloldcolour_Click(sender As Object, e As EventArgs) Handles pnloldcolour.Click + Me.Close() + End Sub + + Private Sub pnlnewcolour_Click(sender As Object, e As EventArgs) Handles pnlnewcolour.Click + Select Case colourtochange + Case "Title Bar Colour" + Shifter.titlebarcolour = pnlnewcolour.BackColor + If Shifter.shifterskintitlebar(0) Is Nothing Then Else Shifter.shifterskintitlebar(0).Dispose() + If Shifter.shifterskintitlebar(1) Is Nothing Then Else Shifter.shifterskintitlebar(1).Dispose() + If Shifter.shifterskintitlebar(2) Is Nothing Then Else Shifter.shifterskintitlebar(2).Dispose() + Shifter.shifterskintitlebar(0) = Nothing + Shifter.shifterskintitlebar(1) = Nothing + Shifter.shifterskintitlebar(2) = Nothing + Shifter.shifterskinimages(3) = "" + Shifter.shifterskinimages(4) = "" + Shifter.shifterskinimages(5) = "" + Case "Window Border Colour" + Shifter.windowbordercolour = pnlnewcolour.BackColor + Shifter.windowborderleftcolour = pnlnewcolour.BackColor + Shifter.windowborderrightcolour = pnlnewcolour.BackColor + Shifter.windowborderbottomcolour = pnlnewcolour.BackColor + Shifter.windowborderbottomrightcolour = pnlnewcolour.BackColor + Shifter.windowborderbottomleftcolour = pnlnewcolour.BackColor + If Shifter.skinwindowborderleft(0) Is Nothing Then Else Shifter.skinwindowborderleft(0).Dispose() + If Shifter.skinwindowborderleft(1) Is Nothing Then Else Shifter.skinwindowborderleft(1).Dispose() + If Shifter.skinwindowborderleft(2) Is Nothing Then Else Shifter.skinwindowborderleft(2).Dispose() + Shifter.skinwindowborderleft(0) = Nothing + Shifter.skinwindowborderleft(1) = Nothing + Shifter.skinwindowborderleft(2) = Nothing + Shifter.shifterskinimages(27) = "" + Shifter.shifterskinimages(28) = "" + Shifter.shifterskinimages(29) = "" + If Shifter.skinwindowborderright(0) Is Nothing Then Else Shifter.skinwindowborderright(0).Dispose() + If Shifter.skinwindowborderright(1) Is Nothing Then Else Shifter.skinwindowborderright(1).Dispose() + If Shifter.skinwindowborderright(2) Is Nothing Then Else Shifter.skinwindowborderright(2).Dispose() + Shifter.skinwindowborderright(0) = Nothing + Shifter.skinwindowborderright(1) = Nothing + Shifter.skinwindowborderright(2) = Nothing + Shifter.shifterskinimages(30) = "" + Shifter.shifterskinimages(31) = "" + Shifter.shifterskinimages(32) = "" + If Shifter.skinwindowborderbottom(0) Is Nothing Then Else Shifter.skinwindowborderbottom(0).Dispose() + If Shifter.skinwindowborderbottom(1) Is Nothing Then Else Shifter.skinwindowborderbottom(1).Dispose() + If Shifter.skinwindowborderbottom(2) Is Nothing Then Else Shifter.skinwindowborderbottom(2).Dispose() + Shifter.skinwindowborderbottom(0) = Nothing + Shifter.skinwindowborderbottom(1) = Nothing + Shifter.skinwindowborderbottom(2) = Nothing + Shifter.shifterskinimages(33) = "" + Shifter.shifterskinimages(34) = "" + Shifter.shifterskinimages(35) = "" + If Shifter.skinwindowborderbottomleft(0) Is Nothing Then Else Shifter.skinwindowborderbottomleft(0).Dispose() + If Shifter.skinwindowborderbottomleft(1) Is Nothing Then Else Shifter.skinwindowborderbottomleft(1).Dispose() + If Shifter.skinwindowborderbottomleft(2) Is Nothing Then Else Shifter.skinwindowborderbottomleft(2).Dispose() + Shifter.skinwindowborderbottomleft(0) = Nothing + Shifter.skinwindowborderbottomleft(1) = Nothing + Shifter.skinwindowborderbottomleft(2) = Nothing + Shifter.shifterskinimages(39) = "" + Shifter.shifterskinimages(40) = "" + Shifter.shifterskinimages(41) = "" + If Shifter.skinwindowborderbottomright(0) Is Nothing Then Else Shifter.skinwindowborderbottomright(0).Dispose() + If Shifter.skinwindowborderbottomright(1) Is Nothing Then Else Shifter.skinwindowborderbottomright(1).Dispose() + If Shifter.skinwindowborderbottomright(2) Is Nothing Then Else Shifter.skinwindowborderbottomright(2).Dispose() + Shifter.skinwindowborderbottomright(0) = Nothing + Shifter.skinwindowborderbottomright(1) = Nothing + Shifter.skinwindowborderbottomright(2) = Nothing + Shifter.shifterskinimages(36) = "" + Shifter.shifterskinimages(37) = "" + Shifter.shifterskinimages(38) = "" + Case "Close Button Colour" + Shifter.closebuttoncolour = pnlnewcolour.BackColor + If Shifter.skinclosebutton(0) Is Nothing Then Else Shifter.skinclosebutton(0).Dispose() + If Shifter.skinclosebutton(1) Is Nothing Then Else Shifter.skinclosebutton(1).Dispose() + If Shifter.skinclosebutton(2) Is Nothing Then Else Shifter.skinclosebutton(2).Dispose() + Shifter.skinclosebutton(0) = Nothing + Shifter.skinclosebutton(1) = Nothing + Shifter.skinclosebutton(2) = Nothing + Shifter.shifterskinimages(0) = "" + Shifter.shifterskinimages(1) = "" + Shifter.shifterskinimages(2) = "" + Case "Title Text Colour" + Shifter.titletextcolour = pnlnewcolour.BackColor + Case "Desktop Panel Colour" + Shifter.desktoppanelcolour = pnlnewcolour.BackColor + If Shifter.skindesktoppanel(0) Is Nothing Then Else Shifter.skindesktoppanel(0).Dispose() + If Shifter.skindesktoppanel(1) Is Nothing Then Else Shifter.skindesktoppanel(1).Dispose() + If Shifter.skindesktoppanel(2) Is Nothing Then Else Shifter.skindesktoppanel(2).Dispose() + Shifter.skindesktoppanel(0) = Nothing + Shifter.skindesktoppanel(1) = Nothing + Shifter.skindesktoppanel(2) = Nothing + Shifter.shifterskinimages(18) = "" + Shifter.shifterskinimages(19) = "" + Shifter.shifterskinimages(20) = "" + Case "Clock Text Colour" + Shifter.clocktextcolour = pnlnewcolour.BackColor + Case "Clock Background Colour" + Shifter.clockbackgroundcolor = pnlnewcolour.BackColor + If Shifter.skindesktoppaneltime(0) Is Nothing Then Else Shifter.skindesktoppaneltime(0).Dispose() + If Shifter.skindesktoppaneltime(1) Is Nothing Then Else Shifter.skindesktoppaneltime(1).Dispose() + If Shifter.skindesktoppaneltime(2) Is Nothing Then Else Shifter.skindesktoppaneltime(2).Dispose() + Shifter.skindesktoppaneltime(0) = Nothing + Shifter.skindesktoppaneltime(1) = Nothing + Shifter.skindesktoppaneltime(2) = Nothing + Shifter.shifterskinimages(21) = "" + Shifter.shifterskinimages(22) = "" + Shifter.shifterskinimages(23) = "" + Case "Desktop Background Colour" + Shifter.desktopbackgroundcolour = pnlnewcolour.BackColor + If Shifter.skindesktopbackground(0) Is Nothing Then Else Shifter.skindesktopbackground(0).Dispose() + If Shifter.skindesktopbackground(1) Is Nothing Then Else Shifter.skindesktopbackground(1).Dispose() + If Shifter.skindesktopbackground(2) Is Nothing Then Else Shifter.skindesktopbackground(2).Dispose() + Shifter.skindesktopbackground(0) = Nothing + Shifter.skindesktopbackground(1) = Nothing + Shifter.skindesktopbackground(2) = Nothing + Shifter.shifterskinimages(6) = "" + Shifter.shifterskinimages(7) = "" + Shifter.shifterskinimages(8) = "" + Case "App Launcher Button Colour" + Shifter.applauncherbuttoncolour = pnlnewcolour.BackColor + If Shifter.skinapplauncherbutton(0) Is Nothing Then Else Shifter.skinapplauncherbutton(0).Dispose() + If Shifter.skinapplauncherbutton(1) Is Nothing Then Else Shifter.skinapplauncherbutton(1).Dispose() + If Shifter.skinapplauncherbutton(2) Is Nothing Then Else Shifter.skinapplauncherbutton(2).Dispose() + Shifter.skinapplauncherbutton(0) = Nothing + Shifter.skinapplauncherbutton(1) = Nothing + Shifter.skinapplauncherbutton(2) = Nothing + Shifter.shifterskinimages(24) = "" + Shifter.shifterskinimages(25) = "" + Shifter.shifterskinimages(26) = "" + Case "App Launcher Button Clicked Colour" + Shifter.applauncherbuttonclickedcolour = pnlnewcolour.BackColor + Case "App Launcher Mouse Over Colour" + Shifter.applaunchermouseovercolour = pnlnewcolour.BackColor + Case "Roll Up Button Colour" + Shifter.rollupbuttoncolour = pnlnewcolour.BackColor + If Shifter.skinrollupbutton(0) Is Nothing Then Else Shifter.skinrollupbutton(0).Dispose() + If Shifter.skinrollupbutton(1) Is Nothing Then Else Shifter.skinrollupbutton(1).Dispose() + If Shifter.skinrollupbutton(2) Is Nothing Then Else Shifter.skinrollupbutton(2).Dispose() + Shifter.skinrollupbutton(0) = Nothing + Shifter.skinrollupbutton(1) = Nothing + Shifter.skinrollupbutton(2) = Nothing + Shifter.shifterskinimages(9) = "" + Shifter.shifterskinimages(10) = "" + Shifter.shifterskinimages(11) = "" + Case "App Launcher Button Text Colour" + Shifter.applicationsbuttontextcolour = pnlnewcolour.BackColor + Case "App Launcher Items Background Colour" + Shifter.applauncherbackgroundcolour = pnlnewcolour.BackColor + Case "Title Bar Left Corner Colour" + Shifter.titlebarleftcornercolour = pnlnewcolour.BackColor + If Shifter.skintitlebarleftcorner(0) Is Nothing Then Else Shifter.skintitlebarleftcorner(0).Dispose() + If Shifter.skintitlebarleftcorner(1) Is Nothing Then Else Shifter.skintitlebarleftcorner(1).Dispose() + If Shifter.skintitlebarleftcorner(2) Is Nothing Then Else Shifter.skintitlebarleftcorner(2).Dispose() + Shifter.skintitlebarleftcorner(0) = Nothing + Shifter.skintitlebarleftcorner(1) = Nothing + Shifter.skintitlebarleftcorner(2) = Nothing + Shifter.shifterskinimages(15) = "" + Shifter.shifterskinimages(16) = "" + Shifter.shifterskinimages(17) = "" + Case "Title Bar Right Corner Colour" + Shifter.titlebarrightcornercolour = pnlnewcolour.BackColor + If Shifter.skintitlebarrightcorner(0) Is Nothing Then Else Shifter.skintitlebarrightcorner(0).Dispose() + If Shifter.skintitlebarrightcorner(1) Is Nothing Then Else Shifter.skintitlebarrightcorner(1).Dispose() + If Shifter.skintitlebarrightcorner(2) Is Nothing Then Else Shifter.skintitlebarrightcorner(2).Dispose() + Shifter.skintitlebarrightcorner(0) = Nothing + Shifter.skintitlebarrightcorner(1) = Nothing + Shifter.skintitlebarrightcorner(2) = Nothing + Shifter.shifterskinimages(12) = "" + Shifter.shifterskinimages(13) = "" + Shifter.shifterskinimages(14) = "" + Case "Border Right Colour" + Shifter.windowborderrightcolour = pnlnewcolour.BackColor + If Shifter.skinwindowborderright(0) Is Nothing Then Else Shifter.skinwindowborderright(0).Dispose() + If Shifter.skinwindowborderright(1) Is Nothing Then Else Shifter.skinwindowborderright(1).Dispose() + If Shifter.skinwindowborderright(2) Is Nothing Then Else Shifter.skinwindowborderright(2).Dispose() + Shifter.skinwindowborderright(0) = Nothing + Shifter.skinwindowborderright(1) = Nothing + Shifter.skinwindowborderright(2) = Nothing + Shifter.shifterskinimages(30) = "" + Shifter.shifterskinimages(31) = "" + Shifter.shifterskinimages(32) = "" + Case "Border Left Colour" + Shifter.windowborderleftcolour = pnlnewcolour.BackColor + If Shifter.skinwindowborderleft(0) Is Nothing Then Else Shifter.skinwindowborderleft(0).Dispose() + If Shifter.skinwindowborderleft(1) Is Nothing Then Else Shifter.skinwindowborderleft(1).Dispose() + If Shifter.skinwindowborderleft(2) Is Nothing Then Else Shifter.skinwindowborderleft(2).Dispose() + Shifter.skinwindowborderleft(0) = Nothing + Shifter.skinwindowborderleft(1) = Nothing + Shifter.skinwindowborderleft(2) = Nothing + Shifter.shifterskinimages(27) = "" + Shifter.shifterskinimages(28) = "" + Shifter.shifterskinimages(29) = "" + Case "Border Bottom Colour" + Shifter.windowborderbottomcolour = pnlnewcolour.BackColor + If Shifter.skinwindowborderbottom(0) Is Nothing Then Else Shifter.skinwindowborderbottom(0).Dispose() + If Shifter.skinwindowborderbottom(1) Is Nothing Then Else Shifter.skinwindowborderbottom(1).Dispose() + If Shifter.skinwindowborderbottom(2) Is Nothing Then Else Shifter.skinwindowborderbottom(2).Dispose() + Shifter.skinwindowborderbottom(0) = Nothing + Shifter.skinwindowborderbottom(1) = Nothing + Shifter.skinwindowborderbottom(2) = Nothing + Shifter.shifterskinimages(33) = "" + Shifter.shifterskinimages(34) = "" + Shifter.shifterskinimages(35) = "" + Case "Border Bottom Left Colour" + Shifter.windowborderbottomleftcolour = pnlnewcolour.BackColor + If Shifter.skinwindowborderbottomleft(0) Is Nothing Then Else Shifter.skinwindowborderbottomleft(0).Dispose() + If Shifter.skinwindowborderbottomleft(1) Is Nothing Then Else Shifter.skinwindowborderbottomleft(1).Dispose() + If Shifter.skinwindowborderbottomleft(2) Is Nothing Then Else Shifter.skinwindowborderbottomleft(2).Dispose() + Shifter.skinwindowborderbottomleft(0) = Nothing + Shifter.skinwindowborderbottomleft(1) = Nothing + Shifter.skinwindowborderbottomleft(2) = Nothing + Shifter.shifterskinimages(39) = "" + Shifter.shifterskinimages(40) = "" + Shifter.shifterskinimages(41) = "" + Case "Border Bottom Right Colour" + Shifter.windowborderbottomrightcolour = pnlnewcolour.BackColor + If Shifter.skinwindowborderbottomright(0) Is Nothing Then Else Shifter.skinwindowborderbottomright(0).Dispose() + If Shifter.skinwindowborderbottomright(1) Is Nothing Then Else Shifter.skinwindowborderbottomright(1).Dispose() + If Shifter.skinwindowborderbottomright(2) Is Nothing Then Else Shifter.skinwindowborderbottomright(2).Dispose() + Shifter.skinwindowborderbottomright(0) = Nothing + Shifter.skinwindowborderbottomright(1) = Nothing + Shifter.skinwindowborderbottomright(2) = Nothing + Shifter.shifterskinimages(36) = "" + Shifter.shifterskinimages(37) = "" + Shifter.shifterskinimages(38) = "" + Case "Minimize Button Colour" + Shifter.minimizebuttoncolour = pnlnewcolour.BackColor + If Shifter.skinminimizebutton(0) Is Nothing Then Else Shifter.skinminimizebutton(0).Dispose() + If Shifter.skinminimizebutton(1) Is Nothing Then Else Shifter.skinminimizebutton(1).Dispose() + If Shifter.skinminimizebutton(2) Is Nothing Then Else Shifter.skinminimizebutton(2).Dispose() + Shifter.skinminimizebutton(0) = Nothing + Shifter.skinminimizebutton(1) = Nothing + Shifter.skinminimizebutton(2) = Nothing + Shifter.shifterskinimages(42) = "" + Shifter.shifterskinimages(43) = "" + Shifter.shifterskinimages(44) = "" + Case "Panel Button Colour" + Shifter.panelbuttoncolour = pnlnewcolour.BackColor + If Shifter.skinpanelbutton(0) Is Nothing Then Else Shifter.skinpanelbutton(0).Dispose() + If Shifter.skinpanelbutton(1) Is Nothing Then Else Shifter.skinpanelbutton(1).Dispose() + If Shifter.skinpanelbutton(2) Is Nothing Then Else Shifter.skinpanelbutton(2).Dispose() + Shifter.skinpanelbutton(0) = Nothing + Shifter.skinpanelbutton(1) = Nothing + Shifter.skinpanelbutton(2) = Nothing + Shifter.shifterskinimages(45) = "" + Shifter.shifterskinimages(46) = "" + Shifter.shifterskinimages(47) = "" + Case "Panel Button Text Colour" + Shifter.panelbuttontextcolour = pnlnewcolour.BackColor + Case "OrcWrite text colour dono" + OrcWrite.Button6.BackColor = pnlnewcolour.BackColor + OrcWrite.RichTextBox1.SelectionColor = pnlnewcolour.BackColor + Case "OrcWrite highlight text colour dono" + OrcWrite.Button7.BackColor = pnlnewcolour.BackColor + OrcWrite.RichTextBox1.SelectionBackColor = pnlnewcolour.BackColor + Case "mod dono" + 'Dim sw As New System.IO.StreamWriter(NewAPI.varpath & "\colourpickeroutput") + 'sw.WriteLine(pnlnewcolour.BackColor.ToArgb) + 'sw.Close() + Case "artpallet1" : ArtPad.colourpallet1.BackColor = pnlnewcolour.BackColor + Case "artpallet2" : ArtPad.colourpallet2.BackColor = pnlnewcolour.BackColor + Case "artpallet3" : ArtPad.colourpallet3.BackColor = pnlnewcolour.BackColor + Case "artpallet4" : ArtPad.colourpallet4.BackColor = pnlnewcolour.BackColor + Case "artpallet5" : ArtPad.colourpallet5.BackColor = pnlnewcolour.BackColor + Case "artpallet6" : ArtPad.colourpallet6.BackColor = pnlnewcolour.BackColor + Case "artpallet7" : ArtPad.colourpallet7.BackColor = pnlnewcolour.BackColor + Case "artpallet8" : ArtPad.colourpallet8.BackColor = pnlnewcolour.BackColor + Case "artpallet9" : ArtPad.colourpallet9.BackColor = pnlnewcolour.BackColor + Case "artpallet10" : ArtPad.colourpallet10.BackColor = pnlnewcolour.BackColor + Case "artpallet11" : ArtPad.colourpallet11.BackColor = pnlnewcolour.BackColor + Case "artpallet12" : ArtPad.colourpallet12.BackColor = pnlnewcolour.BackColor + Case "artpallet13" : ArtPad.colourpallet13.BackColor = pnlnewcolour.BackColor + Case "artpallet14" : ArtPad.colourpallet14.BackColor = pnlnewcolour.BackColor + Case "artpallet15" : ArtPad.colourpallet15.BackColor = pnlnewcolour.BackColor + Case "artpallet16" : ArtPad.colourpallet16.BackColor = pnlnewcolour.BackColor + Case "artpallet17" : ArtPad.colourpallet17.BackColor = pnlnewcolour.BackColor + Case "artpallet18" : ArtPad.colourpallet18.BackColor = pnlnewcolour.BackColor + Case "artpallet19" : ArtPad.colourpallet19.BackColor = pnlnewcolour.BackColor + Case "artpallet20" : ArtPad.colourpallet20.BackColor = pnlnewcolour.BackColor + Case "artpallet21" : ArtPad.colourpallet21.BackColor = pnlnewcolour.BackColor + Case "artpallet22" : ArtPad.colourpallet22.BackColor = pnlnewcolour.BackColor + Case "artpallet23" : ArtPad.colourpallet23.BackColor = pnlnewcolour.BackColor + Case "artpallet24" : ArtPad.colourpallet24.BackColor = pnlnewcolour.BackColor + Case "artpallet25" : ArtPad.colourpallet25.BackColor = pnlnewcolour.BackColor + Case "artpallet26" : ArtPad.colourpallet26.BackColor = pnlnewcolour.BackColor + Case "artpallet27" : ArtPad.colourpallet27.BackColor = pnlnewcolour.BackColor + Case "artpallet28" : ArtPad.colourpallet28.BackColor = pnlnewcolour.BackColor + Case "artpallet29" : ArtPad.colourpallet29.BackColor = pnlnewcolour.BackColor + Case "artpallet30" : ArtPad.colourpallet30.BackColor = pnlnewcolour.BackColor + Case "artpallet31" : ArtPad.colourpallet31.BackColor = pnlnewcolour.BackColor + Case "artpallet32" : ArtPad.colourpallet32.BackColor = pnlnewcolour.BackColor + Case "artpallet33" : ArtPad.colourpallet33.BackColor = pnlnewcolour.BackColor + Case "artpallet34" : ArtPad.colourpallet34.BackColor = pnlnewcolour.BackColor + Case "artpallet35" : ArtPad.colourpallet35.BackColor = pnlnewcolour.BackColor + Case "artpallet36" : ArtPad.colourpallet36.BackColor = pnlnewcolour.BackColor + Case "artpallet37" : ArtPad.colourpallet37.BackColor = pnlnewcolour.BackColor + Case "artpallet38" : ArtPad.colourpallet38.BackColor = pnlnewcolour.BackColor + Case "artpallet39" : ArtPad.colourpallet39.BackColor = pnlnewcolour.BackColor + Case "artpallet40" : ArtPad.colourpallet40.BackColor = pnlnewcolour.BackColor + Case "artpallet41" : ArtPad.colourpallet41.BackColor = pnlnewcolour.BackColor + Case "artpallet42" : ArtPad.colourpallet42.BackColor = pnlnewcolour.BackColor + Case "artpallet43" : ArtPad.colourpallet43.BackColor = pnlnewcolour.BackColor + Case "artpallet44" : ArtPad.colourpallet44.BackColor = pnlnewcolour.BackColor + Case "artpallet45" : ArtPad.colourpallet45.BackColor = pnlnewcolour.BackColor + Case "artpallet46" : ArtPad.colourpallet46.BackColor = pnlnewcolour.BackColor + Case "artpallet47" : ArtPad.colourpallet47.BackColor = pnlnewcolour.BackColor + Case "artpallet48" : ArtPad.colourpallet48.BackColor = pnlnewcolour.BackColor + Case "artpallet49" : ArtPad.colourpallet49.BackColor = pnlnewcolour.BackColor + Case "artpallet50" : ArtPad.colourpallet50.BackColor = pnlnewcolour.BackColor + Case "artpallet51" : ArtPad.colourpallet51.BackColor = pnlnewcolour.BackColor + Case "artpallet52" : ArtPad.colourpallet52.BackColor = pnlnewcolour.BackColor + Case "artpallet53" : ArtPad.colourpallet53.BackColor = pnlnewcolour.BackColor + Case "artpallet54" : ArtPad.colourpallet54.BackColor = pnlnewcolour.BackColor + Case "artpallet55" : ArtPad.colourpallet55.BackColor = pnlnewcolour.BackColor + Case "artpallet56" : ArtPad.colourpallet56.BackColor = pnlnewcolour.BackColor + Case "artpallet57" : ArtPad.colourpallet57.BackColor = pnlnewcolour.BackColor + Case "artpallet58" : ArtPad.colourpallet58.BackColor = pnlnewcolour.BackColor + Case "artpallet59" : ArtPad.colourpallet59.BackColor = pnlnewcolour.BackColor + Case "artpallet60" : ArtPad.colourpallet60.BackColor = pnlnewcolour.BackColor + Case "artpallet61" : ArtPad.colourpallet61.BackColor = pnlnewcolour.BackColor + Case "artpallet62" : ArtPad.colourpallet62.BackColor = pnlnewcolour.BackColor + Case "artpallet63" : ArtPad.colourpallet63.BackColor = pnlnewcolour.BackColor + Case "artpallet64" : ArtPad.colourpallet64.BackColor = pnlnewcolour.BackColor + Case "artpallet65" : ArtPad.colourpallet65.BackColor = pnlnewcolour.BackColor + Case "artpallet66" : ArtPad.colourpallet66.BackColor = pnlnewcolour.BackColor + Case "artpallet67" : ArtPad.colourpallet67.BackColor = pnlnewcolour.BackColor + Case "artpallet68" : ArtPad.colourpallet68.BackColor = pnlnewcolour.BackColor + Case "artpallet69" : ArtPad.colourpallet69.BackColor = pnlnewcolour.BackColor + Case "artpallet70" : ArtPad.colourpallet70.BackColor = pnlnewcolour.BackColor + Case "artpallet71" : ArtPad.colourpallet71.BackColor = pnlnewcolour.BackColor + Case "artpallet72" : ArtPad.colourpallet72.BackColor = pnlnewcolour.BackColor + Case "artpallet73" : ArtPad.colourpallet73.BackColor = pnlnewcolour.BackColor + Case "artpallet74" : ArtPad.colourpallet74.BackColor = pnlnewcolour.BackColor + Case "artpallet75" : ArtPad.colourpallet75.BackColor = pnlnewcolour.BackColor + Case "artpallet76" : ArtPad.colourpallet76.BackColor = pnlnewcolour.BackColor + Case "artpallet77" : ArtPad.colourpallet77.BackColor = pnlnewcolour.BackColor + Case "artpallet78" : ArtPad.colourpallet78.BackColor = pnlnewcolour.BackColor + Case "artpallet79" : ArtPad.colourpallet79.BackColor = pnlnewcolour.BackColor + Case "artpallet80" : ArtPad.colourpallet80.BackColor = pnlnewcolour.BackColor + Case "artpallet81" : ArtPad.colourpallet81.BackColor = pnlnewcolour.BackColor + Case "artpallet82" : ArtPad.colourpallet82.BackColor = pnlnewcolour.BackColor + Case "artpallet83" : ArtPad.colourpallet83.BackColor = pnlnewcolour.BackColor + Case "artpallet84" : ArtPad.colourpallet84.BackColor = pnlnewcolour.BackColor + Case "artpallet85" : ArtPad.colourpallet85.BackColor = pnlnewcolour.BackColor + Case "artpallet86" : ArtPad.colourpallet86.BackColor = pnlnewcolour.BackColor + Case "artpallet87" : ArtPad.colourpallet87.BackColor = pnlnewcolour.BackColor + Case "artpallet88" : ArtPad.colourpallet88.BackColor = pnlnewcolour.BackColor + Case "artpallet89" : ArtPad.colourpallet89.BackColor = pnlnewcolour.BackColor + Case "artpallet90" : ArtPad.colourpallet90.BackColor = pnlnewcolour.BackColor + Case "artpallet91" : ArtPad.colourpallet91.BackColor = pnlnewcolour.BackColor + Case "artpallet92" : ArtPad.colourpallet92.BackColor = pnlnewcolour.BackColor + Case "artpallet93" : ArtPad.colourpallet93.BackColor = pnlnewcolour.BackColor + Case "artpallet94" : ArtPad.colourpallet94.BackColor = pnlnewcolour.BackColor + Case "artpallet95" : ArtPad.colourpallet95.BackColor = pnlnewcolour.BackColor + Case "artpallet96" : ArtPad.colourpallet96.BackColor = pnlnewcolour.BackColor + Case "artpallet97" : ArtPad.colourpallet97.BackColor = pnlnewcolour.BackColor + Case "artpallet98" : ArtPad.colourpallet98.BackColor = pnlnewcolour.BackColor + Case "artpallet99" : ArtPad.colourpallet99.BackColor = pnlnewcolour.BackColor + Case "artpallet100" : ArtPad.colourpallet100.BackColor = pnlnewcolour.BackColor + Case "artpallet101" : ArtPad.colourpallet101.BackColor = pnlnewcolour.BackColor + Case "artpallet102" : ArtPad.colourpallet102.BackColor = pnlnewcolour.BackColor + Case "artpallet103" : ArtPad.colourpallet103.BackColor = pnlnewcolour.BackColor + Case "artpallet104" : ArtPad.colourpallet104.BackColor = pnlnewcolour.BackColor + Case "artpallet105" : ArtPad.colourpallet105.BackColor = pnlnewcolour.BackColor + Case "artpallet106" : ArtPad.colourpallet106.BackColor = pnlnewcolour.BackColor + Case "artpallet107" : ArtPad.colourpallet107.BackColor = pnlnewcolour.BackColor + Case "artpallet108" : ArtPad.colourpallet108.BackColor = pnlnewcolour.BackColor + Case "artpallet109" : ArtPad.colourpallet109.BackColor = pnlnewcolour.BackColor + Case "artpallet110" : ArtPad.colourpallet110.BackColor = pnlnewcolour.BackColor + Case "artpallet111" : ArtPad.colourpallet111.BackColor = pnlnewcolour.BackColor + Case "artpallet112" : ArtPad.colourpallet112.BackColor = pnlnewcolour.BackColor + Case "artpallet113" : ArtPad.colourpallet113.BackColor = pnlnewcolour.BackColor + Case "artpallet114" : ArtPad.colourpallet114.BackColor = pnlnewcolour.BackColor + Case "artpallet115" : ArtPad.colourpallet115.BackColor = pnlnewcolour.BackColor + Case "artpallet116" : ArtPad.colourpallet116.BackColor = pnlnewcolour.BackColor + Case "artpallet117" : ArtPad.colourpallet117.BackColor = pnlnewcolour.BackColor + Case "artpallet118" : ArtPad.colourpallet118.BackColor = pnlnewcolour.BackColor + Case "artpallet119" : ArtPad.colourpallet119.BackColor = pnlnewcolour.BackColor + Case "artpallet120" : ArtPad.colourpallet120.BackColor = pnlnewcolour.BackColor + Case "artpallet121" : ArtPad.colourpallet121.BackColor = pnlnewcolour.BackColor + Case "artpallet122" : ArtPad.colourpallet122.BackColor = pnlnewcolour.BackColor + Case "artpallet123" : ArtPad.colourpallet123.BackColor = pnlnewcolour.BackColor + Case "artpallet124" : ArtPad.colourpallet124.BackColor = pnlnewcolour.BackColor + Case "artpallet125" : ArtPad.colourpallet125.BackColor = pnlnewcolour.BackColor + Case "artpallet126" : ArtPad.colourpallet126.BackColor = pnlnewcolour.BackColor + Case "artpallet127" : ArtPad.colourpallet127.BackColor = pnlnewcolour.BackColor + Case "artpallet128" : ArtPad.colourpallet128.BackColor = pnlnewcolour.BackColor + Case "launcher items text colour" : Shifter.launcheritemtxtcolour.BackColor = pnlnewcolour.BackColor + + End Select + + If colourtochange.Contains("artpallet") Then + ArtPad.drawingcolour = pnlnewcolour.BackColor + ArtPad.setuppreview() + ArtPad.settoolcolours() + ElseIf colourtochange.Contains("dono") Then + 'Use "dono" tag to stop it setting up the the shifter preview + ShiftOSDesktop.lastcolourpick = pnlnewcolour.BackColor + Else + ShiftOSDesktop.lastcolourpick = pnlnewcolour.BackColor + Shifter.setuppreshifterstuff() + End If + + Me.Close() + End Sub + + Private Sub pnloldcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnloldcolour.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnloldcolour.ClientRectangle) + End Sub + + Private Sub pnlanycolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlanycolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlanycolours.ClientRectangle) + End Sub + + Private Sub pnlgraycolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlgraycolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlgraycolours.ClientRectangle) + End Sub + + Private Sub pnlpurplecolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlpurplecolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlpurplecolours.ClientRectangle) + End Sub + + Private Sub pnlbluecolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlbluecolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlbluecolours.ClientRectangle) + End Sub + + Private Sub pnlgreencolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlgreencolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlgreencolours.ClientRectangle) + End Sub + + Private Sub pnlyellowcolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlyellowcolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlyellowcolours.ClientRectangle) + End Sub + + Private Sub pnlorangecolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlorangecolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlorangecolours.ClientRectangle) + End Sub + + Private Sub pnlbrowncolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlbrowncolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlbrowncolours.ClientRectangle) + End Sub + + Private Sub pnlredcolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlredcolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlredcolours.ClientRectangle) + End Sub + + Private Sub pnlpinkcolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlpinkcolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlpinkcolours.ClientRectangle) + End Sub + + Private Sub pnlnewcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlnewcolour.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlnewcolour.ClientRectangle) + End Sub + + Private Sub colourselctiongray(sender As Object, e As MouseEventArgs) Handles pnlgray1.Click, pnlgray2.Click, pnlgray3.Click, pnlgray4.Click, pnlgray5.Click, pnlgray6.Click, pnlgray7.Click, pnlgray8.Click, pnlgray9.Click, pnlgray10.Click, pnlgray11.Click, pnlgray12.Click, pnlgray13.Click, pnlgray14.Click, pnlgray15.Click, pnlgray16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlgraycustomcolour.BackColor + savegraymemory() + End If + End Sub + + Private Sub colourselctionpurple(sender As Object, e As MouseEventArgs) Handles pnlpurple1.Click, pnlpurple2.Click, pnlpurple3.Click, pnlpurple4.Click, pnlpurple5.Click, pnlpurple6.Click, pnlpurple7.Click, pnlpurple8.Click, pnlpurple9.Click, pnlpurple10.Click, pnlpurple11.Click, pnlpurple12.Click, pnlpurple13.Click, pnlpurple14.Click, pnlpurple15.Click, pnlpurple16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlpurplecustomcolour.BackColor + savepurplememory() + End If + End Sub + + Private Sub colourselctionblue(sender As Object, e As MouseEventArgs) Handles pnlblue1.Click, pnlblue2.Click, pnlblue3.Click, pnlblue4.Click, pnlblue5.Click, pnlblue6.Click, pnlblue7.Click, pnlblue8.Click, pnlblue9.Click, pnlblue10.Click, pnlblue11.Click, pnlblue12.Click, pnlblue13.Click, pnlblue14.Click, pnlblue15.Click, pnlblue16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlbluecustomcolour.BackColor + savebluememory() + End If + End Sub + + Private Sub colourselctiongreen(sender As Object, e As MouseEventArgs) Handles pnlgreen1.Click, pnlgreen2.Click, pnlgreen3.Click, pnlgreen4.Click, pnlgreen5.Click, pnlgreen6.Click, pnlgreen7.Click, pnlgreen8.Click, pnlgreen9.Click, pnlgreen10.Click, pnlgreen11.Click, pnlgreen12.Click, pnlgreen13.Click, pnlgreen14.Click, pnlgreen15.Click, pnlgreen16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlgreencustomcolour.BackColor + savegreenmemory() + End If + End Sub + + Private Sub colourselctionyellow(sender As Object, e As MouseEventArgs) Handles pnlyellow1.Click, pnlyellow2.Click, pnlyellow3.Click, pnlyellow4.Click, pnlyellow5.Click, pnlyellow6.Click, pnlyellow7.Click, pnlyellow8.Click, pnlyellow9.Click, pnlyellow10.Click, pnlyellow11.Click, pnlyellow12.Click, pnlyellow13.Click, pnlyellow14.Click, pnlyellow15.Click, pnlyellow16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlyellowcustomcolour.BackColor + saveyellowmemory() + End If + End Sub + + Private Sub colourselctionorange(sender As Object, e As MouseEventArgs) Handles pnlorange1.Click, pnlorange2.Click, pnlorange3.Click, pnlorange4.Click, pnlorange5.Click, pnlorange6.Click, pnlorange7.Click, pnlorange8.Click, pnlorange9.Click, pnlorange10.Click, pnlorange11.Click, pnlorange12.Click, pnlorange13.Click, pnlorange14.Click, pnlorange15.Click, pnlorange16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlorangecustomcolour.BackColor + saveorangememory() + End If + End Sub + + Private Sub colourselctionbrown(sender As Object, e As MouseEventArgs) Handles pnlbrown1.Click, pnlbrown2.Click, pnlbrown3.Click, pnlbrown4.Click, pnlbrown5.Click, pnlbrown6.Click, pnlbrown7.Click, pnlbrown8.Click, pnlbrown9.Click, pnlbrown10.Click, pnlbrown11.Click, pnlbrown12.Click, pnlbrown13.Click, pnlbrown14.Click, pnlbrown15.Click, pnlbrown16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlbrowncustomcolour.BackColor + savebrownmemory() + End If + End Sub + + Private Sub colourselctionred(sender As Object, e As MouseEventArgs) Handles pnlred1.Click, pnlred2.Click, pnlred3.Click, pnlred4.Click, pnlred5.Click, pnlred6.Click, pnlred7.Click, pnlred8.Click, pnlred9.Click, pnlred10.Click, pnlred11.Click, pnlred12.Click, pnlred13.Click, pnlred14.Click, pnlred15.Click, pnlred16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlredcustomcolour.BackColor + saveredmemory() + End If + End Sub + + Private Sub colourselctionpink(sender As Object, e As MouseEventArgs) Handles pnlpink1.Click, pnlpink2.Click, pnlpink3.Click, pnlpink4.Click, pnlpink5.Click, pnlpink6.Click, pnlpink7.Click, pnlpink8.Click, pnlpink9.Click, pnlpink10.Click, pnlpink11.Click, pnlpink12.Click, pnlpink13.Click, pnlpink14.Click, pnlpink15.Click, pnlpink16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlpinkcustomcolour.BackColor + savepinkmemory() + End If + End Sub + + Private Sub colourselctionany(sender As Object, e As MouseEventArgs) Handles pnlany1.Click, pnlany2.Click, pnlany3.Click, pnlany4.Click, pnlany5.Click, pnlany6.Click, pnlany7.Click, pnlany8.Click, pnlany9.Click, pnlany10.Click, pnlany11.Click, pnlany12.Click, pnlany13.Click, pnlany14.Click, pnlany15.Click, pnlany16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlanycustomcolour.BackColor + saveanymemory() + End If + End Sub + + Private Sub txtcustomgrayshade_TextChanged(sender As Object, e As EventArgs) Handles txtcustomgrayshade.TextChanged + If txtcustomgrayshade.Text = "" Then + txtcustomgrayshade.Text = "0" + Else + If Convert.ToInt32(txtcustomgrayshade.Text) > 255 Then + txtcustomgrayshade.Text = "255" + Else + pnlgraycustomcolour.BackColor = Color.FromArgb(txtcustomgrayshade.Text, txtcustomgrayshade.Text, txtcustomgrayshade.Text) + End If + End If + End Sub + + Private Sub CheckForNumber(sender As Object, e As KeyPressEventArgs) Handles txtcustomgrayshade.KeyPress, txtpurplesblue.KeyPress, txtpurplesgreen.KeyPress, txtpurplesred.KeyPress, txtbluesblue.KeyPress, txtbluesgreen.KeyPress, txtbluesred.KeyPress, txtgreensblue.KeyPress, txtgreensgreen.KeyPress, txtgreensred.KeyPress, txtyellowsblue.KeyPress, txtyellowsgreen.KeyPress, txtyellowsred.KeyPress, txtorangesblue.KeyPress, txtorangesgreen.KeyPress, txtorangesred.KeyPress, txtbrownsblue.KeyPress, txtbrownsgreen.KeyPress, txtbrownsred.KeyPress, txtredsblue.KeyPress, txtredsgreen.KeyPress, txtredsred.KeyPress, txtpinksblue.KeyPress, txtpinksgreen.KeyPress, txtpinksred.KeyPress, txtanysblue.KeyPress, txtanysgreen.KeyPress, txtanysred.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 customcolourfailsafe() + If txtcustomgrayshade.Text = "" Then txtcustomgrayshade.Text = "0" + + If txtanysblue.Text = "" Then txtanysblue.Text = "0" + If txtanysred.Text = "" Then txtanysred.Text = "0" + If txtanysgreen.Text = "" Then txtanysgreen.Text = "0" + + If txtpurplesblue.Text = "" Then txtpurplesblue.Text = "255" + If txtpurplesred.Text = "" Then txtpurplesred.Text = "150" + If txtpurplesgreen.Text = "" Then txtpurplesgreen.Text = "0" + + If txtbluesblue.Text = "" Then txtbluesblue.Text = "255" + If txtbluesred.Text = "" Then txtbluesred.Text = "0" + If txtbluesgreen.Text = "" Then txtbluesgreen.Text = "0" + + If txtgreensblue.Text = "" Then txtgreensblue.Text = "0" + If txtgreensred.Text = "" Then txtgreensred.Text = "0" + If txtgreensgreen.Text = "" Then txtgreensgreen.Text = "255" + + If txtyellowsblue.Text = "" Then txtyellowsblue.Text = "0" + If txtyellowsred.Text = "" Then txtyellowsred.Text = "255" + If txtyellowsgreen.Text = "" Then txtyellowsgreen.Text = "255" + + If txtorangesblue.Text = "" Then txtorangesblue.Text = "0" + If txtorangesred.Text = "" Then txtorangesred.Text = "255" + If txtorangesgreen.Text = "" Then txtorangesgreen.Text = "60" + + If txtbrownsblue.Text = "" Then txtbrownsblue.Text = "0" + If txtbrownsred.Text = "" Then txtbrownsred.Text = "140" + If txtbrownsgreen.Text = "" Then txtbrownsgreen.Text = "60" + + If txtredsblue.Text = "" Then txtredsblue.Text = "0" + If txtredsred.Text = "" Then txtredsred.Text = "255" + If txtredsgreen.Text = "" Then txtredsgreen.Text = "0" + + If txtpinksblue.Text = "" Then txtpinksblue.Text = "150" + If txtpinksred.Text = "" Then txtpinksred.Text = "250" + If txtpinksgreen.Text = "" Then txtpinksgreen.Text = "0" + End Sub + + Private Sub txtpurplesgreen_TextChanged(sender As Object, e As EventArgs) Handles txtpurplesgreen.TextChanged, txtpurplesblue.TextChanged, txtpurplesred.TextChanged + On Error Resume Next + pnlpurplecustomcolour.BackColor = Color.FromArgb(txtpurplesred.Text, txtpurplesgreen.Text, txtpurplesblue.Text) + End Sub + + Private Sub pnlpurpleoptions_MouseLeave(sender As Object, e As EventArgs) Handles pnlpurpleoptions.MouseLeave, pnlpurpleoptions.MouseEnter, pnlpurplecolours.MouseEnter, pnlpurplecolours.MouseLeave + customcolourfailsafe() + If Convert.ToInt32(txtpurplesblue.Text) > 255 Then + txtpurplesblue.Text = "255" + End If + If Convert.ToInt32(txtpurplesred.Text) > Convert.ToInt32(txtpurplesblue.Text) Then + txtpurplesred.Text = txtpurplesblue.Text + End If + If Convert.ToInt32(txtpurplesgreen.Text) > Convert.ToInt32(txtpurplesblue.Text) Then + txtpurplesgreen.Text = txtpurplesred.Text + End If + If Convert.ToInt32(txtpurplesgreen.Text) > Convert.ToInt32(txtpurplesred.Text) Then + txtpurplesgreen.Text = txtpurplesred.Text + End If + pnlpurplecustomcolour.BackColor = Color.FromArgb(txtpurplesred.Text, txtpurplesgreen.Text, txtpurplesblue.Text) + End Sub + + Private Sub txtbluesgreen_TextChanged(sender As Object, e As EventArgs) Handles txtbluesgreen.TextChanged, txtbluesblue.TextChanged, txtbluesred.TextChanged + On Error Resume Next + pnlbluecustomcolour.BackColor = Color.FromArgb(txtbluesred.Text, txtbluesgreen.Text, txtbluesblue.Text) + End Sub + + Private Sub pnlblueoptions_MouseLeave(sender As Object, e As EventArgs) Handles pnlblueoptions.MouseLeave, pnlblueoptions.MouseEnter, pnlbluecolours.MouseEnter, pnlbluecolours.MouseLeave + customcolourfailsafe() + If Convert.ToInt32(txtbluesblue.Text) > 255 Then + txtbluesblue.Text = "255" + End If + If Convert.ToInt32(txtbluesgreen.Text) > Convert.ToInt32(txtbluesblue.Text) Then + txtbluesgreen.Text = txtbluesblue.Text + End If + If Convert.ToInt32(txtbluesred.Text) > Convert.ToInt32(txtbluesblue.Text) Then + txtbluesred.Text = txtbluesgreen.Text + End If + If Convert.ToInt32(txtbluesred.Text) > Convert.ToInt32(txtbluesgreen.Text) Then + txtbluesred.Text = txtbluesgreen.Text + End If + pnlbluecustomcolour.BackColor = Color.FromArgb(txtbluesred.Text, txtbluesgreen.Text, txtbluesblue.Text) + End Sub + + Private Sub txtgreensgreen_TextChanged(sender As Object, e As EventArgs) Handles txtgreensgreen.TextChanged, txtgreensblue.TextChanged, txtgreensred.TextChanged + On Error Resume Next + pnlgreencustomcolour.BackColor = Color.FromArgb(txtgreensred.Text, txtgreensgreen.Text, txtgreensblue.Text) + End Sub + + Private Sub pnlgreenoptions_MouseLeave(sender As Object, e As EventArgs) Handles pnlgreenoptions.MouseLeave, pnlgreenoptions.MouseEnter, pnlgreencolours.MouseEnter, pnlgreencolours.MouseLeave + customcolourfailsafe() + If Convert.ToInt32(txtgreensgreen.Text) > 255 Then + txtgreensgreen.Text = "255" + End If + If Convert.ToInt32(txtgreensblue.Text) > Convert.ToInt32(txtgreensgreen.Text) Then + txtgreensblue.Text = txtgreensgreen.Text + End If + If Convert.ToInt32(txtgreensred.Text) > Convert.ToInt32(txtgreensgreen.Text) Then + txtgreensred.Text = txtgreensgreen.Text + End If + If Convert.ToInt32(txtgreensblue.Text) > Convert.ToInt32(txtgreensred.Text + 150) Then + txtgreensblue.Text = Convert.ToInt32(txtgreensred.Text + 150) + End If + If Convert.ToInt32(txtgreensred.Text) > Convert.ToInt32(txtgreensblue.Text + 150) Then + txtgreensred.Text = Convert.ToInt32(txtgreensblue.Text + 150) + End If + pnlgreencustomcolour.BackColor = Color.FromArgb(txtgreensred.Text, txtgreensgreen.Text, txtgreensblue.Text) + End Sub + + Private Sub txtyellowsred_TextChanged(sender As Object, e As EventArgs) Handles txtyellowsred.TextChanged, txtyellowsblue.TextChanged, txtyellowsgreen.TextChanged + On Error Resume Next + pnlyellowcustomcolour.BackColor = Color.FromArgb(txtyellowsred.Text, txtyellowsgreen.Text, txtyellowsblue.Text) + End Sub + + Private Sub pnlyellowoptions_MouseLeave(sender As Object, e As EventArgs) Handles pnlyellowoptions.MouseLeave, pnlyellowoptions.MouseEnter, pnlyellowcolours.MouseEnter, pnlyellowcolours.MouseLeave + customcolourfailsafe() + If Convert.ToInt32(txtyellowsred.Text) > 255 Then + txtyellowsred.Text = "255" + End If + If Convert.ToInt32(txtyellowsred.Text) < 180 Then + txtyellowsred.Text = "180" + End If + If Convert.ToInt32(txtyellowsgreen.Text) > Convert.ToInt32(txtyellowsred.Text) Then + txtyellowsgreen.Text = txtyellowsred.Text + End If + If Convert.ToInt32(txtyellowsgreen.Text) < Convert.ToInt32(txtyellowsred.Text - 30) Then + txtyellowsgreen.Text = Convert.ToInt32(txtyellowsred.Text - 30) + End If + If Convert.ToInt32(txtyellowsblue.Text) > Convert.ToInt32(txtyellowsgreen.Text) Then + txtyellowsblue.Text = txtyellowsgreen.Text + End If + pnlyellowcustomcolour.BackColor = Color.FromArgb(txtyellowsred.Text, txtyellowsgreen.Text, txtyellowsblue.Text) + End Sub + + Private Sub txtorangesred_TextChanged(sender As Object, e As EventArgs) Handles txtorangesred.TextChanged, txtorangesblue.TextChanged, txtorangesgreen.TextChanged + On Error Resume Next + pnlorangecustomcolour.BackColor = Color.FromArgb(txtorangesred.Text, txtorangesgreen.Text, txtorangesblue.Text) + End Sub + + Private Sub pnlorangeoptions_MouseLeave(sender As Object, e As EventArgs) Handles pnlorangeoptions.MouseLeave, pnlorangeoptions.MouseEnter, pnlorangecolours.MouseEnter, pnlyellowcolours.MouseLeave + customcolourfailsafe() + If Convert.ToInt32(txtorangesred.Text) > 255 Then + txtorangesred.Text = "255" + End If + If Convert.ToInt32(txtorangesred.Text) < 255 Then + txtorangesred.Text = "255" + End If + If Convert.ToInt32(txtorangesgreen.Text) > Convert.ToInt32(txtorangesred.Text - 100) Then + txtorangesgreen.Text = Convert.ToInt32(txtorangesred.Text - 100) + End If + If Convert.ToInt32(txtorangesgreen.Text) < 30 Then + txtorangesgreen.Text = "30" + End If + If Convert.ToInt32(txtorangesblue.Text) > Convert.ToInt32(txtorangesgreen.Text - 30) Then + txtorangesblue.Text = Convert.ToInt32(txtorangesgreen.Text - 30) + End If + pnlorangecustomcolour.BackColor = Color.FromArgb(txtorangesred.Text, txtorangesgreen.Text, txtorangesblue.Text) + End Sub + + Private Sub txtbrownsred_TextChanged(sender As Object, e As EventArgs) Handles txtbrownsred.TextChanged, txtbrownsblue.TextChanged, txtbrownsgreen.TextChanged + On Error Resume Next + pnlbrowncustomcolour.BackColor = Color.FromArgb(txtbrownsred.Text, txtbrownsgreen.Text, txtbrownsblue.Text) + End Sub + + Private Sub pnlbrownoptions_MouseLeave(sender As Object, e As EventArgs) Handles pnlbrownoptions.MouseLeave, pnlbrownoptions.MouseEnter, pnlbrowncolours.MouseEnter, pnlbrowncolours.MouseLeave + customcolourfailsafe() + If Convert.ToInt32(txtbrownsred.Text) > 255 Then + txtbrownsred.Text = "255" + End If + If Convert.ToInt32(txtbrownsred.Text) < 90 Then + txtbrownsred.Text = "90" + End If + If Convert.ToInt32(txtbrownsgreen.Text) > Convert.ToInt32(txtbrownsred.Text - 30) Then + txtbrownsgreen.Text = Convert.ToInt32(txtbrownsred.Text - 30) + End If + If Convert.ToInt32(txtbrownsgreen.Text) < Convert.ToInt32(txtbrownsred.Text - 128) Then + txtbrownsgreen.Text = Convert.ToInt32(txtbrownsred.Text - 128) + End If + If Convert.ToInt32(txtbrownsgreen.Text) < 60 Then + txtbrownsgreen.Text = "60" + End If + If Convert.ToInt32(txtbrownsblue.Text) > Convert.ToInt32(txtbrownsgreen.Text - 60) Then + txtbrownsblue.Text = Convert.ToInt32(txtbrownsgreen.Text - 60) + End If + pnlbrowncustomcolour.BackColor = Color.FromArgb(txtbrownsred.Text, txtbrownsgreen.Text, txtbrownsblue.Text) + End Sub + + Private Sub txtsred_TextChanged(sender As Object, e As EventArgs) Handles txtredsred.TextChanged, txtredsblue.TextChanged, txtredsgreen.TextChanged + On Error Resume Next + pnlredcustomcolour.BackColor = Color.FromArgb(txtredsred.Text, txtredsgreen.Text, txtredsblue.Text) + End Sub + + Private Sub pnlredoptions_MouseLeave(sender As Object, e As EventArgs) Handles pnlredoptions.MouseLeave, pnlredoptions.MouseEnter, pnlredcolours.MouseEnter, pnlbrowncolours.MouseLeave + customcolourfailsafe() + If Convert.ToInt32(txtredsred.Text) > 255 Then + txtredsred.Text = "255" + End If + If Convert.ToInt32(txtredsblue.Text) > Convert.ToInt32(txtredsred.Text - 80) Then + txtredsblue.Text = Convert.ToInt32(txtredsred.Text - 80) + End If + If Convert.ToInt32(txtredsgreen.Text) > Convert.ToInt32(txtredsred.Text - 80) Then + txtredsgreen.Text = Convert.ToInt32(txtredsred.Text - 80) + End If + If Convert.ToInt32(txtredsgreen.Text) > Convert.ToInt32(txtredsblue.Text + 50) Then + txtredsgreen.Text = Convert.ToInt32(txtredsblue.Text + 50) + End If + If Convert.ToInt32(txtredsblue.Text) > Convert.ToInt32(txtredsgreen.Text + 50) Then + txtredsblue.Text = Convert.ToInt32(txtredsgreen.Text + 50) + End If + pnlredcustomcolour.BackColor = Color.FromArgb(txtredsred.Text, txtredsgreen.Text, txtredsblue.Text) + End Sub + + Private Sub txtpinksred_TextChanged(sender As Object, e As EventArgs) Handles txtpinksred.TextChanged, txtpinksblue.TextChanged, txtpinksgreen.TextChanged + On Error Resume Next + pnlpinkcustomcolour.BackColor = Color.FromArgb(txtpinksred.Text, txtpinksgreen.Text, txtpinksblue.Text) + End Sub + + Private Sub pnlpinkoptions_MouseLeave(sender As Object, e As EventArgs) Handles pnlpinkoptions.MouseLeave, pnlpinkoptions.MouseEnter, pnlpinkcolours.MouseEnter, pnlpinkcolours.MouseLeave + customcolourfailsafe() + If Convert.ToInt32(txtpinksred.Text) > 255 Then + txtpinksred.Text = "255" + End If + If Convert.ToInt32(txtpinksblue.Text) > Convert.ToInt32(txtpinksred.Text - 50) Then + txtpinksblue.Text = Convert.ToInt32(txtpinksred.Text - 50) + End If + If Convert.ToInt32(txtpinksgreen.Text) > Convert.ToInt32(txtpinksblue.Text) Then + txtpinksgreen.Text = Convert.ToInt32(txtpinksblue.Text) + End If + pnlpinkcustomcolour.BackColor = Color.FromArgb(txtpinksred.Text, txtpinksgreen.Text, txtpinksblue.Text) + End Sub + + Private Sub txtanysred_TextChanged(sender As Object, e As EventArgs) Handles txtanysred.TextChanged, txtanysblue.TextChanged, txtanysgreen.TextChanged + On Error Resume Next + pnlanycustomcolour.BackColor = Color.FromArgb(txtanysred.Text, txtanysgreen.Text, txtanysblue.Text) + End Sub + + Private Sub pnlanyoptions_MouseLeave(sender As Object, e As EventArgs) Handles pnlanyoptions.MouseLeave, pnlanyoptions.MouseEnter, pnlanycolours.MouseEnter, pnlanycolours.MouseLeave + customcolourfailsafe() + Select Case anylevel + Case 1 + If Convert.ToInt32(txtanysred.Text) > 150 Then + txtanysred.Text = "150" + End If + If Convert.ToInt32(txtanysred.Text) < 100 Then + txtanysred.Text = "100" + End If + If Convert.ToInt32(txtanysblue.Text) > 150 Then + txtanysblue.Text = "150" + End If + If Convert.ToInt32(txtanysblue.Text) < 100 Then + txtanysblue.Text = "100" + End If + If Convert.ToInt32(txtanysgreen.Text) > 150 Then + txtanysgreen.Text = "150" + End If + If Convert.ToInt32(txtanysgreen.Text) < 100 Then + txtanysgreen.Text = "100" + End If + Case 2 + If Convert.ToInt32(txtanysred.Text) > 200 Then + txtanysred.Text = "200" + End If + If Convert.ToInt32(txtanysred.Text) < 100 Then + txtanysred.Text = "100" + End If + If Convert.ToInt32(txtanysblue.Text) > 200 Then + txtanysblue.Text = "200" + End If + If Convert.ToInt32(txtanysblue.Text) < 100 Then + txtanysblue.Text = "100" + End If + If Convert.ToInt32(txtanysgreen.Text) > 200 Then + txtanysgreen.Text = "200" + End If + If Convert.ToInt32(txtanysgreen.Text) < 100 Then + txtanysgreen.Text = "100" + End If + Case 3 + If Convert.ToInt32(txtanysred.Text) > 225 Then + txtanysred.Text = "225" + End If + If Convert.ToInt32(txtanysred.Text) < 75 Then + txtanysred.Text = "75" + End If + If Convert.ToInt32(txtanysblue.Text) > 225 Then + txtanysblue.Text = "225" + End If + If Convert.ToInt32(txtanysblue.Text) < 75 Then + txtanysblue.Text = "75" + End If + If Convert.ToInt32(txtanysgreen.Text) > 225 Then + txtanysgreen.Text = "225" + End If + If Convert.ToInt32(txtanysgreen.Text) < 75 Then + txtanysgreen.Text = "75" + End If + Case 4 + If Convert.ToInt32(txtanysred.Text) > 255 Then + txtanysred.Text = "255" + End If + If Convert.ToInt32(txtanysred.Text) < 0 Then + txtanysred.Text = "0" + End If + If Convert.ToInt32(txtanysblue.Text) > 255 Then + txtanysblue.Text = "255" + End If + If Convert.ToInt32(txtanysblue.Text) < 0 Then + txtanysblue.Text = "0" + End If + If Convert.ToInt32(txtanysgreen.Text) > 255 Then + txtanysgreen.Text = "255" + End If + If Convert.ToInt32(txtanysgreen.Text) < 0 Then + txtanysgreen.Text = "0" + End If + End Select + pnlanycustomcolour.BackColor = Color.FromArgb(txtanysred.Text, txtanysgreen.Text, txtanysblue.Text) + End Sub + + Private Sub pnlgraycustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlgraycustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + infobox.title = "Gray Rules" + infobox.textinfo = "You must input a value between 0 (black) and 255 (white) to form a shade of gray." & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Gray Memory Wiped" + infobox.textinfo = "All your custom shades of Gray have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.graymemory, 0, ShiftOSDesktop.graymemory.Length) + setupboughtcolours() + loadmemory() + End If + End Sub + + Private Sub pnlpurplecustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlpurplecustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + infobox.title = "Purple Rules" + infobox.textinfo = "Blue must have the highest value followed by red. Green must then have the lowest value." & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Purple Memory Wiped" + infobox.textinfo = "All your custom shades of Purple have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.purplememory, 0, ShiftOSDesktop.purplememory.Length) + setupboughtcolours() + loadmemory() + End If + + End Sub + + Private Sub pnlbluecustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlbluecustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + infobox.title = "Blue Rules" + infobox.textinfo = "Blue must have the highest value followed by green. Red must then have the lowest value." & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Blue Memory Wiped" + infobox.textinfo = "All your custom shades of Blue have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.bluememory, 0, ShiftOSDesktop.bluememory.Length) + setupboughtcolours() + loadmemory() + End If + End Sub + + Private Sub pnlgreencustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlgreencustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + infobox.title = "Green Rules" + infobox.textinfo = "Green must have the highest value. Red and Blue need to have values within 150 of eachother." & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Green Memory Wiped" + infobox.textinfo = "All your custom shades of Green have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.greenmemory, 0, ShiftOSDesktop.greenmemory.Length) + setupboughtcolours() + loadmemory() + End If + End Sub + + Private Sub pnlyellowcustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlyellowcustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + infobox.title = "Yellow Rules" + infobox.textinfo = "Red must have the highest value and be over 180. Green must be within 30 values of red. Blue must be the lowest value." & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Yellow Memory Wiped" + infobox.textinfo = "All your custom shades of Yellow have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.yellowmemory, 0, ShiftOSDesktop.yellowmemory.Length) + setupboughtcolours() + loadmemory() + End If + End Sub + + Private Sub pnlorangecustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlorangecustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + infobox.title = "Orange Rules" + infobox.textinfo = "Red must have a value of 255. Green must be 100 or more values less than red. Blue must be 30 or more values less than green." & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Orange Memory Wiped" + infobox.textinfo = "All your custom shades of Orange have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.orangememory, 0, ShiftOSDesktop.orangememory.Length) + setupboughtcolours() + loadmemory() + End If + End Sub + + Private Sub pnlbrowncustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlbrowncustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + infobox.title = "Brown Rules" + infobox.textinfo = "Red must have the highest value. Green must be 30 - 128 values lower than red. Blue must be 60 or more values less than green." & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Brown Memory Wiped" + infobox.textinfo = "All your custom shades of Brown have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.brownmemory, 0, ShiftOSDesktop.brownmemory.Length) + setupboughtcolours() + loadmemory() + End If + End Sub + + Private Sub pnlredcustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlredcustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + infobox.title = "Red Rules" + infobox.textinfo = "Red must have the highest value. Green and blue must be 80 or more values less than red but within 50 values of eachother." & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Red Memory Wiped" + infobox.textinfo = "All your custom shades of Red have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.redmemory, 0, ShiftOSDesktop.redmemory.Length) + setupboughtcolours() + loadmemory() + End If + End Sub + + Private Sub pnlpinkcustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlpinkcustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + infobox.title = "Pink Rules" + infobox.textinfo = "Red must have the highest value. Blue must be 50 or more values less than red. Green must have the lowest value." & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Pink Memory Wiped" + infobox.textinfo = "All your custom shades of Pink have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.pinkmemory, 0, ShiftOSDesktop.pinkmemory.Length) + setupboughtcolours() + loadmemory() + End If + End Sub + + Private Sub pnlanycustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlanycustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + Select Case anylevel + Case 1 + infobox.title = "Custom Rules" + infobox.textinfo = "Red, Green and Blue may be set to any value between 100 and 150" & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + Case 2 + infobox.title = "Custom Rules" + infobox.textinfo = "Red, Green and Blue may be set to any value between 100 and 200" & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + Case 3 + infobox.title = "Custom Rules" + infobox.textinfo = "Red, Green and Blue may be set to any value between 75 and 225" & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + Case 4 + infobox.title = "Custom Rules" + infobox.textinfo = "Red, Green and Blue may be set to any value between 0 and 255" & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End Select + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Custom Colour Memory Wiped" + infobox.textinfo = "All your custom colour shades of have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.anymemory, 0, ShiftOSDesktop.anymemory.Length) + setupboughtcolours() + loadmemory() + End If + End Sub + + Private Sub rollupbutton_MouseEnter(sender As Object, e As MouseEventArgs) Handles rollupbutton.MouseUp + + End Sub + + Private Sub rollupbutton_MouseDown(sender As Object, e As MouseEventArgs) Handles rollupbutton.MouseDown + + End Sub +End Class
\ No newline at end of file |