Public Class ShiftOSDesktop Public codepoints As Integer Public log As String Public forceclose As Boolean = False Public movablewindownumber As Integer = 50 Public terminalfullscreen As Boolean = True Public unitymode As Boolean = False Public savelines(2000) As String Public loadlines(2000) As String Public skinlines(200) As String Public newgame As Boolean = False Public lastcolourpick As Color = Color.Gray Public programsopen As Integer = 0 Private actualshiftversion As String = "0.0.7" 'Shiftorium Upgrades Public boughttitlebar As Boolean = False Public boughtgray As Boolean = False Public boughtsecondspastmidnight As Boolean = False Public boughtminutespastmidnight As Boolean = False Public boughthourspastmidnight As Boolean = False Public boughtcustomusername As Boolean = False Public boughtwindowsanywhere As Boolean = False Public boughtmultitasking As Boolean = False Public boughtautoscrollterminal As Boolean = False Public boughtmovablewindows As Boolean = False Public boughtdraggablewindows As Boolean = False Public boughtwindowborders As Boolean = False Public boughtpmandam As Boolean = False Public boughtminuteaccuracytime As Boolean = False Public boughtsplitsecondtime As Boolean = False Public boughttitletext As Boolean = False Public boughtclosebutton As Boolean = False Public boughtdesktoppanel As Boolean = False Public boughtclock As Boolean = False Public boughtwindowedterminal As Boolean = False Public boughtapplaunchermenu As Boolean = False Public boughtalknowledgeinput As Boolean = False Public boughtalclock As Boolean = False Public boughtalshiftorium As Boolean = False Public boughtapplaunchershutdown As Boolean = False Public boughtdesktoppanelclock As Boolean = False Public boughtterminalscrollbar As Boolean = False Public boughtkiaddons As Boolean = False Public boughtkicarbrands As Boolean = False Public boughtkigameconsoles As Boolean = False Public boughtshifter As Boolean = False Public boughtalshifter As Boolean = False Public boughtrollupcommand As Boolean = False Public boughtrollupbutton As Boolean = False Public boughtshiftdesktop As Boolean = False Public boughtshiftpanelclock As Boolean = False Public boughtshiftapplauncher As Boolean = False Public boughtshiftdesktoppanel As Boolean = False Public boughtshifttitlebar As Boolean = False Public boughtshifttitletext As Boolean = False Public boughtshifttitlebuttons As Boolean = False Public boughtshiftborders As Boolean = False Public boughtgray2 As Boolean = False Public boughtgray3 As Boolean = False Public boughtgray4 As Boolean = False Public boughtanycolour As Boolean = False Public boughtanycolour2 As Boolean = False Public boughtanycolour3 As Boolean = False Public boughtanycolour4 As Boolean = False Public boughtpurple As Boolean = False Public boughtpurple2 As Boolean = False Public boughtpurple3 As Boolean = False Public boughtpurple4 As Boolean = False Public boughtblue As Boolean = False Public boughtblue2 As Boolean = False Public boughtblue3 As Boolean = False Public boughtblue4 As Boolean = False Public boughtgreen As Boolean = False Public boughtgreen2 As Boolean = False Public boughtgreen3 As Boolean = False Public boughtgreen4 As Boolean = False Public boughtyellow As Boolean = False Public boughtyellow2 As Boolean = False Public boughtyellow3 As Boolean = False Public boughtyellow4 As Boolean = False Public boughtorange As Boolean = False Public boughtorange2 As Boolean = False Public boughtorange3 As Boolean = False Public boughtorange4 As Boolean = False Public boughtbrown As Boolean = False Public boughtbrown2 As Boolean = False Public boughtbrown3 As Boolean = False Public boughtbrown4 As Boolean = False Public boughtred As Boolean = False Public boughtred2 As Boolean = False Public boughtred3 As Boolean = False Public boughtred4 As Boolean = False Public boughtpink As Boolean = False Public boughtpink2 As Boolean = False Public boughtpink3 As Boolean = False Public boughtpink4 As Boolean = False 'new 0.0.6 content Public boughtpong As Boolean = False Public boughtknowledgeinputicon As Boolean = False Public boughtshiftericon As Boolean = False Public boughtshiftoriumicon As Boolean = False Public boughtclockicon As Boolean = False Public boughtshutdownicon As Boolean = False Public boughtpongicon As Boolean = False Public boughtterminalicon As Boolean = False Public boughtalpong As Boolean = False Public boughtfileskimmer As Boolean = False Public boughtalfileskimmer As Boolean = False Public boughttextpad As Boolean = False Public boughtaltextpad As Boolean = False Public boughtfileskimmericon As Boolean = False Public boughttextpadicon As Boolean = False Public boughttextpadnew As Boolean = False Public boughttextpadsave As Boolean = False Public boughttextpadopen As Boolean = False Public boughtfileskimmernewfolder As Boolean = False Public boughtfileskimmerdelete As Boolean = False Public boughtkielements As Boolean = False Public boughtcolourpickericon As Boolean = False Public boughtinfoboxicon As Boolean = False 'new 0.0.7 content Public boughtskinloader As Boolean = False Public boughtminimizebutton As Boolean = False Public boughtpanelbuttons As Boolean = False Public boughtshiftpanelbuttons As Boolean = False Public boughtartpad As Boolean = False Public boughtalartpad As Boolean = False Public boughtartpadicon As Boolean = False Public boughtskinning As Boolean = False Public boughtminimizecommand As Boolean = False Public boughtusefulpanelbuttons As Boolean = False Public boughtunitymode As Boolean = False Public boughtartpadpixellimit4 As Boolean = False Public boughtartpadpixellimit8 As Boolean = False Public boughtartpadpixellimit16 As Boolean = False Public boughtartpadpixellimit64 As Boolean = False Public boughtartpadpixellimit256 As Boolean = False Public boughtartpadpixellimit1024 As Boolean = False Public boughtartpadpixellimit4096 As Boolean = False Public boughtartpadpixellimit16384 As Boolean = False Public boughtartpadpixellimit65536 As Boolean = False Public boughtartpadlimitlesspixels As Boolean = False Public boughtartpad4colorpallets As Boolean = False Public boughtartpad8colorpallets As Boolean = False Public boughtartpad16colorpallets As Boolean = False Public boughtartpad32colorpallets As Boolean = False Public boughtartpad64colorpallets As Boolean = False Public boughtartpad128colorpallets As Boolean = False Public boughtartpadcustompallets As Boolean = False Public boughtartpadnew As Boolean = False Public boughtartpadpixelplacer As Boolean = False Public boughtartpadpixelplacermovementmode As Boolean = False Public boughtartpadpencil As Boolean = False Public boughtartpadpaintbrush As Boolean = False Public boughtartpadlinetool As Boolean = False Public boughtartpadovaltool As Boolean = False Public boughtartpadrectangletool As Boolean = False Public boughtartpaderaser As Boolean = False Public boughtartpadfilltool As Boolean = False Public boughtartpadtexttool As Boolean = False Public boughtartpadundo As Boolean = False Public boughtartpadredo As Boolean = False Public boughtartpadsave As Boolean = False Public boughtartpadload As Boolean = False 'new 0.0.8 features Public boughtresizablewindows As Boolean = True Public boughtcalculator As Boolean = True Public boughtaudioplayer As Boolean = True Public boughtchangeosnamecommand As Boolean = True Public boughtwebbrowser As Boolean = True Public boughtvideoplayer As Boolean = True Public boughtnamechanger As Boolean = True Public boughticonmanager As Boolean = True Public boughtbitnotewallet As Boolean = True Public boughtbitnotedigger As Boolean = True Public boughtskinshifter As Boolean = True Public boughtshiftnet As Boolean = True Public boughtdownloader As Boolean = True Public boughtshiftneticon As Boolean = True Public boughtalshiftnet As Boolean = True 'new 0.0.9 features Public boughtskinstates As Boolean = False 'Colour Picker Memories Public anymemory(15) As Color Public graymemory(15) As Color Public purplememory(15) As Color Public bluememory(15) As Color Public greenmemory(15) As Color Public yellowmemory(15) As Color Public orangememory(15) As Color Public brownmemory(15) As Color Public redmemory(15) As Color Public pinkmemory(15) As Color 'ShiftOS UI Settings Public titlebarcolour As Color = Color.Gray Public windowbordercolour As Color = Color.Gray Public windowbordersize As Integer = 2 Public titlebarheight As Integer = 30 Public closebuttoncolour As Color = Color.Black Public closebuttonheight As Integer = 22 Public closebuttonwidth As Integer = 22 Public closebuttonside As Integer = 5 Public closebuttontop As Integer = 4 Public titletextcolour As Color = Color.White Public titletexttop As Integer = 7 Public titletextside As Integer = 4 Public titletextsize As Integer = 11 Public titletextfont As String = "Felix Titling" Public titletextstyle As FontStyle = FontStyle.Bold Public desktoppanelcolour As Color = Color.Gray Public desktopbackgroundcolour As Color = Color.Black Public desktoppanelheight As Integer = 24 Public desktoppanelposition As String = "Top" Public clocktextcolour As Color = Color.Black Public clockbackgroundcolor As Color = Color.Gray Public panelclocktexttop As Integer = 0 Public panelclocktextsize As Integer = 14 Public panelclocktextfont As String = "Trebuchet MS" Public panelclocktextstyle As FontStyle = FontStyle.Regular Public applauncherbuttoncolour As Color = Color.Gray Public applauncherbuttonclickedcolour = Color.Gray Public applauncherbackgroundcolour As Color = Color.Gray Public applaunchermouseovercolour As Color = Color.Gray Public applicationsbuttontextcolour As Color = Color.Black Public applicationbuttonheight As Integer = 24 Public applicationbuttontextsize As Integer = 10 Public applicationbuttontextfont As String = "Byington" Public applicationbuttontextstyle As FontStyle = FontStyle.Bold Public applicationlaunchername As String = "Applications" Public titletextposition As String = "Left" Public rollupbuttoncolour As Color = Color.Black Public rollupbuttonheight As Integer = 22 Public rollupbuttonwidth As Integer = 22 Public rollupbuttonside As Integer = 32 Public rollupbuttontop As Integer = 4 'new 0.0.7 Public titlebariconside As Integer = 8 Public titlebaricontop As Integer = 8 Public showwindowcorners As Boolean = False Public titlebarcornerwidth As Integer = 2 Public titlebarrightcornercolour As Color = Color.White Public titlebarleftcornercolour As Color = Color.White Public applaunchermenuholderwidth As Integer = 100 Public windowborderleftcolour As Color = Color.Gray Public windowborderrightcolour As Color = Color.Gray Public windowborderbottomcolour As Color = Color.Gray Public windowborderbottomrightcolour As Color = Color.Gray Public windowborderbottomleftcolour As Color = Color.Gray Public fileopenerlastdirectory As String Public panelbuttonicontop As Integer = 3 Public panelbuttoniconside As Integer = 4 'Public panelbuttoniconsize As Integer = 16 'duplicated 'Public panelbuttoniconsize As Integer = 16 'duplicated Public panelbuttonheight As Integer = 22 Public panelbuttonwidth As Integer = 186 Public panelbuttoncolour As Color = Color.Black Public panelbuttontextcolour As Color = Color.White Public panelbuttontextsize As Integer = 10 Public panelbuttontextfont As String = "Microsoft Sans Serif" Public panelbuttontextstyle As FontStyle = FontStyle.Bold Public panelbuttontextside As Integer = 22 Public panelbuttontexttop As Integer = 2 Public panelbuttongap As Integer = 1 Public panelbuttonfromtop As Integer = 1 Public panelbuttoninitialgap As Integer = 5 Public minimizebuttoncolour As Color = Color.Black Public minimizebuttonheight As Integer = 22 Public minimizebuttonwidth As Integer = 22 Public minimizebuttonside As Integer = 59 Public minimizebuttontop As Integer = 4 'ShiftOS Skin Settings 'finsih up checking for skin changes with states in the clock app before copying across to other apps Public globaltransparencycolour As Color = Color.FromArgb(1, 0, 1) Public skinimages(100) As String Public skinclosebutton(2) As Image Public skinclosebuttonstyle As ImageLayout = ImageLayout.Stretch Public skintitlebar(2) As Image Public skintitlebarstyle As ImageLayout = ImageLayout.Stretch Public skindesktopbackground(2) As Image Public skindesktopbackgroundstyle As ImageLayout = ImageLayout.Stretch Public skinrollupbutton(2) As Image Public skinrollupbuttonstyle As ImageLayout = ImageLayout.Stretch Public skintitlebarrightcorner(2) As Image Public skintitlebarrightcornerstyle As ImageLayout = ImageLayout.Stretch Public skintitlebarleftcorner(2) As Image Public skintitlebarleftcornerstyle As ImageLayout = ImageLayout.Stretch Public skindesktoppanel(2) As Image Public skindesktoppanelstyle As ImageLayout = ImageLayout.Stretch Public skindesktoppaneltime(2) As Image Public skindesktoppaneltimestyle As ImageLayout = ImageLayout.Stretch Public skinapplauncherbutton(2) As Image Public skinapplauncherbuttonstyle As ImageLayout = ImageLayout.Stretch Public skinwindowborderleft(2) As Image Public skinwindowborderleftstyle As ImageLayout = ImageLayout.Stretch Public skinwindowborderright(2) As Image Public skinwindowborderrightstyle As ImageLayout = ImageLayout.Stretch Public skinwindowborderbottom(2) As Image Public skinwindowborderbottomstyle As ImageLayout = ImageLayout.Stretch Public skinwindowborderbottomright(2) As Image Public skinwindowborderbottomrightstyle As ImageLayout = ImageLayout.Stretch Public skinwindowborderbottomleft(2) As Image Public skinwindowborderbottomleftstyle As ImageLayout = ImageLayout.Stretch Public skinpanelbutton(2) As Image Public skinpanelbuttonstyle As ImageLayout = ImageLayout.Stretch Public skinminimizebutton(2) As Image Public skinminimizebuttonstyle As ImageLayout = ImageLayout.Stretch 'Program settings Public artpadcolorpalletwidth As Integer = 105 Public artpadcolorpalletheight As Integer = 69 Public artpadcolorpalletsidegap As Integer = 4 Public artpadcolorpallettopgap As Integer = 4 Public artpadvisiblepallets As Integer = 2 Public artpadpixellimit As Integer = 2 Public artpadcolourpallets(128) As Color Public webbrowserhomepage As String = "www.google.com" Public iconmanagericondatalines(50) As String Public bitnotebalance As Decimal = 2.64028 Public bitnotebalanceappscape As Decimal = 0.0 Public bitnoteaddress As String = "1LgZUWQNYWZ7Qhc1hScZieC3GWnPLzaqSd" Public bitnoteaddressappscape As String = "1JB97iocfdv6zVMeKxXAHdahbfdoYWNyUh" Public downloadspeedcap As Integer = 32 'Main ShiftOS settings Public username As String = "user" Public osname As String = "shiftos" Public artpadname As String = "Artpad" Public audioplayername As String = "Audio Player" Public calculatorname As String = "Calculator" Public clockname As String = "Clock" Public colourpickername As String = "Colour Picker" Public fileopenername As String = "File Opener" Public filesavername As String = "File Saver" Public fileskimmername As String = "File Skimmer" Public graphicpickername As String = "Graphic Picker" Public knowledgeinputname As String = "Knowledge Input" Public pongname As String = "Pong" Public shiftername As String = "Shifter" Public shiftoriumname As String = "Shiftorium" Public skinloadername As String = "Skin Loader" Public terminalname As String = "Terminal" Public textpadname As String = "TextPad" Public videoplayername As String = "Video Player" Public webbrowsername As String = "Web Browser" Public namechangername As String = "Name Changer" Public iconmanagername As String = "Icon Manager" Public bitnotewalletname As String = "Bitnote Wallet" Public bitnotediggername As String = "Bitnote Digger" Public skinshiftername As String = "Skin Shifter" Public shiftnetname As String = "Shiftnet" Public downloadername As String = "Downloader" 'Icons Public titlebariconsize As Integer = 16 Public panelbuttoniconsize As Integer = 16 Public launchericonsize As Integer = 16 Public artpadicontitlebar As Image = My.Resources.iconArtpad Public audioplayericontitlebar As Image = My.Resources.iconAudioPlayer Public calculatoricontitlebar As Image = My.Resources.iconCalculator Public clockicontitlebar As Image = My.Resources.iconClock Public colourpickericontitlebar As Image = My.Resources.iconColourPicker Public fileopenericontitlebar As Image = My.Resources.iconFileOpener Public filesavericontitlebar As Image = My.Resources.iconFileSaver Public fileskimmericontitlebar As Image = My.Resources.iconFileSkimmer Public graphicpickericontitlebar As Image = My.Resources.iconGraphicPicker Public infoboxicontitlebar As Image = My.Resources.iconInfoBox Public knowledgeinputicontitlebar As Image = My.Resources.iconKnowledgeInput Public pongicontitlebar As Image = My.Resources.iconPong Public shiftericontitlebar As Image = My.Resources.iconShifter Public shiftoriumicontitlebar As Image = My.Resources.iconShiftorium Public skinloadericontitlebar As Image = My.Resources.iconSkinLoader Public terminalicontitlebar As Image = My.Resources.iconTerminal Public textpadicontitlebar As Image = My.Resources.iconTextPad Public videoplayericontitlebar As Image = My.Resources.iconVideoPlayer Public webbrowsericontitlebar As Image = My.Resources.iconWebBrowser Public namechangericontitlebar As Image = My.Resources.iconNameChanger Public iconmanagericontitlebar As Image = My.Resources.iconIconManager Public bitnotewalleticontitlebar As Image = My.Resources.iconBitnoteWallet Public bitnotediggericontitlebar As Image = My.Resources.iconBitnoteDigger Public skinshiftericontitlebar As Image = My.Resources.iconSkinShifter Public shiftneticontitlebar As Image = My.Resources.iconShiftnet Public downloadericontitlebar As Image = My.Resources.iconDownloader Public artpadiconpanelbutton As Image = My.Resources.iconArtpad Public audioplayericonpanelbutton As Image = My.Resources.iconAudioPlayer Public calculatoriconpanelbutton As Image = My.Resources.iconCalculator Public clockiconpanelbutton As Image = My.Resources.iconClock Public colourpickericonpanelbutton As Image = My.Resources.iconColourPicker Public fileopenericonpanelbutton As Image = My.Resources.iconFileOpener Public filesavericonpanelbutton As Image = My.Resources.iconFileSaver Public fileskimmericonpanelbutton As Image = My.Resources.iconFileSkimmer Public graphicpickericonpanelbutton As Image = My.Resources.iconGraphicPicker Public infoboxiconpanelbutton As Image = My.Resources.iconInfoBox Public knowledgeinputiconpanelbutton As Image = My.Resources.iconKnowledgeInput Public pongiconpanelbutton As Image = My.Resources.iconPong Public shiftericonpanelbutton As Image = My.Resources.iconShifter Public shiftoriumiconpanelbutton As Image = My.Resources.iconShiftorium Public skinloadericonpanelbutton As Image = My.Resources.iconSkinLoader Public terminaliconpanelbutton As Image = My.Resources.iconTerminal Public textpadiconpanelbutton As Image = My.Resources.iconTextPad Public videoplayericonpanelbutton As Image = My.Resources.iconVideoPlayer Public webbrowsericonpanelbutton As Image = My.Resources.iconWebBrowser Public namechangericonpanelbutton As Image = My.Resources.iconNameChanger Public iconmanagericonpanelbutton As Image = My.Resources.iconIconManager Public bitnotewalleticonpanelbutton As Image = My.Resources.iconBitnoteWallet Public bitnotediggericonpanelbutton As Image = My.Resources.iconBitnoteDigger Public skinshiftericonpanelbutton As Image = My.Resources.iconSkinShifter Public shiftneticonpanelbutton As Image = My.Resources.iconShiftnet Public downloadericonpanelbutton As Image = My.Resources.iconDownloader Public artpadiconlauncher As Image = My.Resources.iconArtpad Public audioplayericonlauncher As Image = My.Resources.iconAudioPlayer Public calculatoriconlauncher As Image = My.Resources.iconCalculator Public clockiconlauncher As Image = My.Resources.iconClock Public colourpickericonlauncher As Image = My.Resources.iconColourPicker Public fileopenericonlauncher As Image = My.Resources.iconFileOpener Public filesavericonlauncher As Image = My.Resources.iconFileSaver Public fileskimmericonlauncher As Image = My.Resources.iconFileSkimmer Public graphicpickericonlauncher As Image = My.Resources.iconGraphicPicker Public infoboxiconlauncher As Image = My.Resources.iconInfoBox Public knowledgeinputiconlauncher As Image = My.Resources.iconKnowledgeInput Public pongiconlauncher As Image = My.Resources.iconPong Public shiftericonlauncher As Image = My.Resources.iconShifter Public shiftoriumiconlauncher As Image = My.Resources.iconShiftorium Public skinloadericonlauncher As Image = My.Resources.iconSkinLoader Public terminaliconlauncher As Image = My.Resources.iconTerminal Public textpadiconlauncher As Image = My.Resources.iconTextPad Public videoplayericonlauncher As Image = My.Resources.iconVideoPlayer Public webbrowsericonlauncher As Image = My.Resources.iconWebBrowser Public namechangericonlauncher As Image = My.Resources.iconNameChanger Public iconmanagericonlauncher As Image = My.Resources.iconIconManager Public bitnotewalleticonlauncher As Image = My.Resources.iconBitnoteWallet Public bitnotediggericonlauncher As Image = My.Resources.iconBitnoteDigger Public skinshiftericonlauncher As Image = My.Resources.iconSkinShifter Public shiftneticonlauncher As Image = My.Resources.iconShiftnet Public downloadericonlauncher As Image = My.Resources.iconDownloader Public shutdowniconlauncher As Image = My.Resources.iconshutdown 'Required for encryption of save files Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Integer Public Const sSecretKey As String = "Password" 'When adding a new program you need to do the following: 'Copy over Template and Template Code 'Make program upmost/alway on top 'Add the panelbutton 'Add Open and Close command in terminal as well as info and commands such as move to 'Add desktop launcher menu item 'Add buy from shiftorium and lanucher buy from shiftorium 'Add to all ShiftOSDesktop.vb things Public Sub savegame() If boughttitlebar = True Then savelines(0) = 11 Else savelines(0) = 10 If boughtgray = True Then savelines(1) = 11 Else savelines(1) = 10 If boughtsecondspastmidnight = True Then savelines(2) = 11 Else savelines(2) = 10 If boughtminutespastmidnight = True Then savelines(3) = 11 Else savelines(3) = 10 If boughthourspastmidnight = True Then savelines(4) = 11 Else savelines(4) = 10 If boughtcustomusername = True Then savelines(5) = 11 Else savelines(5) = 10 If boughtwindowsanywhere = True Then savelines(6) = 11 Else savelines(6) = 10 If boughtmultitasking = True Then savelines(7) = 11 Else savelines(7) = 10 If boughtautoscrollterminal = True Then savelines(8) = 11 Else savelines(8) = 10 savelines(9) = codepoints If boughtmovablewindows = True Then savelines(10) = 11 Else savelines(10) = 10 If boughtdraggablewindows = True Then savelines(11) = 11 Else savelines(11) = 10 If boughtwindowborders = True Then savelines(12) = 11 Else savelines(12) = 10 If boughtpmandam = True Then savelines(13) = 11 Else savelines(13) = 10 If boughtminuteaccuracytime = True Then savelines(14) = 11 Else savelines(14) = 10 If boughtsplitsecondtime = True Then savelines(15) = 11 Else savelines(15) = 10 If boughttitletext = True Then savelines(16) = 11 Else savelines(16) = 10 If boughtclosebutton = True Then savelines(17) = 11 Else savelines(17) = 10 If boughtdesktoppanel = True Then savelines(18) = 11 Else savelines(18) = 10 If boughtclock = True Then savelines(19) = 11 Else savelines(19) = 10 If boughtwindowedterminal = True Then savelines(20) = 11 Else savelines(20) = 10 If boughtapplaunchermenu = True Then savelines(21) = 11 Else savelines(21) = 10 If boughtalknowledgeinput = True Then savelines(22) = 11 Else savelines(22) = 10 If boughtalclock = True Then savelines(23) = 11 Else savelines(23) = 10 If boughtalshiftorium = True Then savelines(24) = 11 Else savelines(24) = 10 If boughtapplaunchershutdown = True Then savelines(25) = 11 Else savelines(25) = 10 If boughtdesktoppanelclock = True Then savelines(26) = 11 Else savelines(26) = 10 If boughtterminalscrollbar = True Then savelines(27) = 11 Else savelines(27) = 10 If boughtkiaddons = True Then savelines(28) = 11 Else savelines(28) = 10 If boughtkicarbrands = True Then savelines(29) = 11 Else savelines(29) = 10 If boughtkigameconsoles = True Then savelines(30) = 11 Else savelines(30) = 10 savelines(31) = username If terminalfullscreen = True Then savelines(32) = 11 Else savelines(32) = 10 If boughtshifter = True Then savelines(33) = 11 Else savelines(33) = 10 If boughtalshifter = True Then savelines(34) = 11 Else savelines(34) = 10 If boughtrollupcommand = True Then savelines(35) = 11 Else savelines(35) = 10 If boughtrollupbutton = True Then savelines(36) = 11 Else savelines(36) = 10 If boughtshiftdesktop = True Then savelines(37) = 11 Else savelines(37) = 10 If boughtshiftpanelclock = True Then savelines(38) = 11 Else savelines(38) = 10 If boughtshiftapplauncher = True Then savelines(39) = 11 Else savelines(39) = 10 If boughtshiftdesktoppanel = True Then savelines(40) = 11 Else savelines(40) = 10 If boughtshifttitlebar = True Then savelines(41) = 11 Else savelines(41) = 10 If boughtshifttitletext = True Then savelines(42) = 11 Else savelines(42) = 10 If boughtshifttitlebuttons = True Then savelines(43) = 11 Else savelines(43) = 10 If boughtshiftborders = True Then savelines(44) = 11 Else savelines(44) = 10 If boughtgray2 = True Then savelines(45) = 11 Else savelines(45) = 10 If boughtgray3 = True Then savelines(46) = 11 Else savelines(46) = 10 If boughtgray4 = True Then savelines(47) = 11 Else savelines(47) = 10 If boughtanycolour = True Then savelines(48) = 11 Else savelines(48) = 10 If boughtanycolour2 = True Then savelines(49) = 11 Else savelines(49) = 10 If boughtanycolour3 = True Then savelines(50) = 11 Else savelines(50) = 10 If boughtanycolour4 = True Then savelines(51) = 11 Else savelines(51) = 10 If boughtpurple = True Then savelines(52) = 11 Else savelines(52) = 10 If boughtpurple2 = True Then savelines(53) = 11 Else savelines(53) = 10 If boughtpurple3 = True Then savelines(54) = 11 Else savelines(54) = 10 If boughtpurple4 = True Then savelines(55) = 11 Else savelines(55) = 10 If boughtblue = True Then savelines(56) = 11 Else savelines(56) = 10 If boughtblue2 = True Then savelines(57) = 11 Else savelines(57) = 10 If boughtblue3 = True Then savelines(58) = 11 Else savelines(58) = 10 If boughtblue4 = True Then savelines(59) = 11 Else savelines(59) = 10 If boughtgreen = True Then savelines(60) = 11 Else savelines(60) = 10 If boughtgreen2 = True Then savelines(61) = 11 Else savelines(61) = 10 If boughtgreen3 = True Then savelines(62) = 11 Else savelines(62) = 10 If boughtgreen4 = True Then savelines(63) = 11 Else savelines(63) = 10 If boughtyellow = True Then savelines(64) = 11 Else savelines(64) = 10 If boughtyellow2 = True Then savelines(65) = 11 Else savelines(65) = 10 If boughtyellow3 = True Then savelines(66) = 11 Else savelines(66) = 10 If boughtyellow4 = True Then savelines(67) = 11 Else savelines(67) = 10 If boughtorange = True Then savelines(68) = 11 Else savelines(68) = 10 If boughtorange2 = True Then savelines(69) = 11 Else savelines(69) = 10 If boughtorange3 = True Then savelines(70) = 11 Else savelines(70) = 10 If boughtorange4 = True Then savelines(71) = 11 Else savelines(71) = 10 If boughtbrown = True Then savelines(72) = 11 Else savelines(72) = 10 If boughtbrown2 = True Then savelines(73) = 11 Else savelines(73) = 10 If boughtbrown3 = True Then savelines(74) = 11 Else savelines(74) = 10 If boughtbrown4 = True Then savelines(75) = 11 Else savelines(75) = 10 If boughtred = True Then savelines(76) = 11 Else savelines(76) = 10 If boughtred2 = True Then savelines(77) = 11 Else savelines(77) = 10 If boughtred3 = True Then savelines(78) = 11 Else savelines(78) = 10 If boughtred4 = True Then savelines(79) = 11 Else savelines(79) = 10 If boughtpink = True Then savelines(80) = 11 Else savelines(80) = 10 If boughtpink2 = True Then savelines(81) = 11 Else savelines(81) = 10 If boughtpink3 = True Then savelines(82) = 11 Else savelines(82) = 10 If boughtpink4 = True Then savelines(83) = 11 Else savelines(83) = 10 savelines(84) = anymemory(0).ToArgb savelines(85) = anymemory(1).ToArgb savelines(86) = anymemory(2).ToArgb savelines(87) = anymemory(3).ToArgb savelines(88) = anymemory(4).ToArgb savelines(89) = anymemory(5).ToArgb savelines(90) = anymemory(6).ToArgb savelines(91) = anymemory(7).ToArgb savelines(92) = anymemory(8).ToArgb savelines(93) = anymemory(9).ToArgb savelines(94) = anymemory(10).ToArgb savelines(95) = anymemory(11).ToArgb savelines(96) = anymemory(12).ToArgb savelines(97) = anymemory(13).ToArgb savelines(98) = anymemory(14).ToArgb savelines(99) = anymemory(15).ToArgb savelines(100) = graymemory(0).ToArgb savelines(101) = graymemory(1).ToArgb savelines(102) = graymemory(2).ToArgb savelines(103) = graymemory(3).ToArgb savelines(104) = graymemory(4).ToArgb savelines(105) = graymemory(5).ToArgb savelines(106) = graymemory(6).ToArgb savelines(107) = graymemory(7).ToArgb savelines(108) = graymemory(8).ToArgb savelines(109) = graymemory(9).ToArgb savelines(110) = graymemory(10).ToArgb savelines(111) = graymemory(11).ToArgb savelines(112) = graymemory(12).ToArgb savelines(113) = graymemory(13).ToArgb savelines(114) = graymemory(14).ToArgb savelines(115) = graymemory(15).ToArgb savelines(116) = purplememory(0).ToArgb savelines(117) = purplememory(1).ToArgb savelines(118) = purplememory(2).ToArgb savelines(119) = purplememory(3).ToArgb savelines(120) = purplememory(4).ToArgb savelines(121) = purplememory(5).ToArgb savelines(122) = purplememory(6).ToArgb savelines(123) = purplememory(7).ToArgb savelines(124) = purplememory(8).ToArgb savelines(125) = purplememory(9).ToArgb savelines(126) = purplememory(10).ToArgb savelines(127) = purplememory(11).ToArgb savelines(128) = purplememory(12).ToArgb savelines(129) = purplememory(13).ToArgb savelines(130) = purplememory(14).ToArgb savelines(131) = purplememory(15).ToArgb savelines(132) = bluememory(0).ToArgb savelines(133) = bluememory(1).ToArgb savelines(134) = bluememory(2).ToArgb savelines(135) = bluememory(3).ToArgb savelines(136) = bluememory(4).ToArgb savelines(137) = bluememory(5).ToArgb savelines(138) = bluememory(6).ToArgb savelines(139) = bluememory(7).ToArgb savelines(140) = bluememory(8).ToArgb savelines(141) = bluememory(9).ToArgb savelines(142) = bluememory(10).ToArgb savelines(143) = bluememory(11).ToArgb savelines(144) = bluememory(12).ToArgb savelines(145) = bluememory(13).ToArgb savelines(146) = bluememory(14).ToArgb savelines(147) = bluememory(15).ToArgb savelines(148) = greenmemory(0).ToArgb savelines(149) = greenmemory(1).ToArgb savelines(150) = greenmemory(2).ToArgb savelines(151) = greenmemory(3).ToArgb savelines(152) = greenmemory(4).ToArgb savelines(153) = greenmemory(5).ToArgb savelines(154) = greenmemory(6).ToArgb savelines(155) = greenmemory(7).ToArgb savelines(156) = greenmemory(8).ToArgb savelines(157) = greenmemory(9).ToArgb savelines(158) = greenmemory(10).ToArgb savelines(159) = greenmemory(11).ToArgb savelines(160) = greenmemory(12).ToArgb savelines(161) = greenmemory(13).ToArgb savelines(162) = greenmemory(14).ToArgb savelines(163) = greenmemory(15).ToArgb savelines(164) = yellowmemory(0).ToArgb savelines(165) = yellowmemory(1).ToArgb savelines(166) = yellowmemory(2).ToArgb savelines(167) = yellowmemory(3).ToArgb savelines(168) = yellowmemory(4).ToArgb savelines(169) = yellowmemory(5).ToArgb savelines(170) = yellowmemory(6).ToArgb savelines(171) = yellowmemory(7).ToArgb savelines(172) = yellowmemory(8).ToArgb savelines(173) = yellowmemory(9).ToArgb savelines(174) = yellowmemory(10).ToArgb savelines(175) = yellowmemory(11).ToArgb savelines(176) = yellowmemory(12).ToArgb savelines(177) = yellowmemory(13).ToArgb savelines(178) = yellowmemory(14).ToArgb savelines(179) = yellowmemory(15).ToArgb savelines(180) = orangememory(0).ToArgb savelines(181) = orangememory(1).ToArgb savelines(182) = orangememory(2).ToArgb savelines(183) = orangememory(3).ToArgb savelines(184) = orangememory(4).ToArgb savelines(185) = orangememory(5).ToArgb savelines(186) = orangememory(6).ToArgb savelines(187) = orangememory(7).ToArgb savelines(188) = orangememory(8).ToArgb savelines(189) = orangememory(9).ToArgb savelines(190) = orangememory(10).ToArgb savelines(191) = orangememory(11).ToArgb savelines(192) = orangememory(12).ToArgb savelines(193) = orangememory(13).ToArgb savelines(194) = orangememory(14).ToArgb savelines(195) = orangememory(15).ToArgb savelines(196) = brownmemory(0).ToArgb savelines(197) = brownmemory(1).ToArgb savelines(198) = brownmemory(2).ToArgb savelines(199) = brownmemory(3).ToArgb savelines(200) = brownmemory(4).ToArgb savelines(201) = brownmemory(5).ToArgb savelines(202) = brownmemory(6).ToArgb savelines(203) = brownmemory(7).ToArgb savelines(204) = brownmemory(8).ToArgb savelines(205) = brownmemory(9).ToArgb savelines(206) = brownmemory(10).ToArgb savelines(207) = brownmemory(11).ToArgb savelines(208) = brownmemory(12).ToArgb savelines(209) = brownmemory(13).ToArgb savelines(210) = brownmemory(14).ToArgb savelines(211) = brownmemory(15).ToArgb savelines(212) = redmemory(0).ToArgb savelines(213) = redmemory(1).ToArgb savelines(214) = redmemory(2).ToArgb savelines(215) = redmemory(3).ToArgb savelines(216) = redmemory(4).ToArgb savelines(217) = redmemory(5).ToArgb savelines(218) = redmemory(6).ToArgb savelines(219) = redmemory(7).ToArgb savelines(220) = redmemory(8).ToArgb savelines(221) = redmemory(9).ToArgb savelines(222) = redmemory(10).ToArgb savelines(223) = redmemory(11).ToArgb savelines(224) = redmemory(12).ToArgb savelines(225) = redmemory(13).ToArgb savelines(226) = redmemory(14).ToArgb savelines(227) = redmemory(15).ToArgb savelines(228) = pinkmemory(0).ToArgb savelines(229) = pinkmemory(1).ToArgb savelines(230) = pinkmemory(2).ToArgb savelines(231) = pinkmemory(3).ToArgb savelines(232) = pinkmemory(4).ToArgb savelines(233) = pinkmemory(5).ToArgb savelines(234) = pinkmemory(6).ToArgb savelines(235) = pinkmemory(7).ToArgb savelines(236) = pinkmemory(8).ToArgb savelines(237) = pinkmemory(9).ToArgb savelines(238) = pinkmemory(10).ToArgb savelines(239) = pinkmemory(11).ToArgb savelines(240) = pinkmemory(12).ToArgb savelines(241) = pinkmemory(13).ToArgb savelines(242) = pinkmemory(14).ToArgb savelines(243) = pinkmemory(15).ToArgb savelines(244) = titlebarcolour.ToArgb savelines(245) = windowbordercolour.ToArgb savelines(246) = windowbordersize savelines(247) = titlebarheight savelines(248) = closebuttoncolour.ToArgb savelines(249) = closebuttonheight savelines(250) = closebuttonwidth savelines(251) = closebuttonside savelines(252) = closebuttontop savelines(253) = titletextcolour.ToArgb savelines(254) = titletexttop savelines(255) = titletextside savelines(256) = titletextsize savelines(257) = titletextfont savelines(258) = titletextstyle savelines(259) = desktoppanelcolour.ToArgb savelines(260) = desktopbackgroundcolour.ToArgb savelines(261) = desktoppanelheight savelines(262) = desktoppanelposition savelines(263) = clocktextcolour.ToArgb savelines(264) = clockbackgroundcolor.ToArgb savelines(265) = panelclocktexttop savelines(266) = panelclocktextsize savelines(267) = panelclocktextfont savelines(268) = panelclocktextstyle savelines(269) = applauncherbuttoncolour.ToArgb savelines(270) = applauncherbuttonclickedcolour.ToArgb savelines(271) = applauncherbackgroundcolour.ToArgb savelines(272) = applaunchermouseovercolour.ToArgb savelines(273) = applicationsbuttontextcolour.ToArgb savelines(274) = applicationbuttonheight savelines(275) = applicationbuttontextsize savelines(276) = applicationbuttontextfont savelines(277) = applicationbuttontextstyle savelines(278) = applicationlaunchername savelines(279) = titletextposition savelines(280) = rollupbuttoncolour.ToArgb savelines(281) = rollupbuttonheight savelines(282) = rollupbuttonwidth savelines(283) = rollupbuttonside savelines(284) = rollupbuttontop If boughtpong = True Then savelines(285) = 11 Else savelines(285) = 10 If boughtknowledgeinputicon = True Then savelines(286) = 11 Else savelines(286) = 10 If boughtshiftericon = True Then savelines(287) = 11 Else savelines(287) = 10 If boughtshiftoriumicon = True Then savelines(288) = 11 Else savelines(288) = 10 If boughtclockicon = True Then savelines(289) = 11 Else savelines(289) = 10 If boughtshutdownicon = True Then savelines(290) = 11 Else savelines(290) = 10 If boughtpongicon = True Then savelines(291) = 11 Else savelines(291) = 10 If boughtterminalicon = True Then savelines(292) = 11 Else savelines(292) = 10 If boughtalpong = True Then savelines(293) = 11 Else savelines(293) = 10 If boughtfileskimmer = True Then savelines(294) = 11 Else savelines(294) = 10 If boughtalfileskimmer = True Then savelines(295) = 11 Else savelines(295) = 10 If boughttextpad = True Then savelines(296) = 11 Else savelines(296) = 10 If boughtaltextpad = True Then savelines(297) = 11 Else savelines(297) = 10 If boughtfileskimmericon = True Then savelines(298) = 11 Else savelines(298) = 10 If boughttextpadicon = True Then savelines(299) = 11 Else savelines(299) = 10 If boughttextpadnew = True Then savelines(300) = 11 Else savelines(300) = 10 If boughttextpadsave = True Then savelines(301) = 11 Else savelines(301) = 10 If boughttextpadopen = True Then savelines(302) = 11 Else savelines(302) = 10 If boughtfileskimmernewfolder = True Then savelines(303) = 11 Else savelines(303) = 10 If boughtfileskimmerdelete = True Then savelines(304) = 11 Else savelines(304) = 10 If boughtkielements = True Then savelines(305) = 11 Else savelines(305) = 10 If boughtcolourpickericon = True Then savelines(306) = 11 Else savelines(306) = 10 If boughtinfoboxicon = True Then savelines(307) = 11 Else savelines(307) = 10 savelines(308) = artpadcolorpalletwidth savelines(309) = artpadcolorpalletheight savelines(310) = artpadcolorpalletsidegap savelines(311) = artpadcolorpallettopgap savelines(312) = artpadvisiblepallets savelines(313) = artpadpixellimit If boughtskinloader = True Then savelines(314) = 11 Else savelines(314) = 10 If boughtminimizebutton = True Then savelines(315) = 11 Else savelines(315) = 10 If boughtpanelbuttons = True Then savelines(316) = 11 Else savelines(316) = 10 If boughtshiftpanelbuttons = True Then savelines(317) = 11 Else savelines(317) = 10 If boughtartpad = True Then savelines(318) = 11 Else savelines(318) = 10 If boughtalartpad = True Then savelines(319) = 11 Else savelines(319) = 10 If boughtartpadicon = True Then savelines(320) = 11 Else savelines(320) = 10 If boughtskinning = True Then savelines(321) = 11 Else savelines(321) = 10 If boughtminimizecommand = True Then savelines(322) = 11 Else savelines(322) = 10 If boughtusefulpanelbuttons = True Then savelines(323) = 11 Else savelines(323) = 10 If boughtunitymode = True Then savelines(324) = 11 Else savelines(324) = 10 If boughtartpadpixellimit4 = True Then savelines(325) = 11 Else savelines(325) = 10 If boughtartpadpixellimit8 = True Then savelines(326) = 11 Else savelines(326) = 10 If boughtartpadpixellimit16 = True Then savelines(327) = 11 Else savelines(327) = 10 If boughtartpadpixellimit64 = True Then savelines(328) = 11 Else savelines(328) = 10 If boughtartpadpixellimit256 = True Then savelines(329) = 11 Else savelines(329) = 10 If boughtartpadpixellimit1024 = True Then savelines(330) = 11 Else savelines(330) = 10 If boughtartpadpixellimit4096 = True Then savelines(331) = 11 Else savelines(331) = 10 If boughtartpadpixellimit16384 = True Then savelines(332) = 11 Else savelines(332) = 10 If boughtartpadpixellimit65536 = True Then savelines(333) = 11 Else savelines(333) = 10 If boughtartpadlimitlesspixels = True Then savelines(334) = 11 Else savelines(334) = 10 If boughtartpad4colorpallets = True Then savelines(335) = 11 Else savelines(335) = 10 If boughtartpad8colorpallets = True Then savelines(336) = 11 Else savelines(336) = 10 If boughtartpad16colorpallets = True Then savelines(337) = 11 Else savelines(337) = 10 If boughtartpad32colorpallets = True Then savelines(338) = 11 Else savelines(338) = 10 If boughtartpad64colorpallets = True Then savelines(339) = 11 Else savelines(339) = 10 If boughtartpad128colorpallets = True Then savelines(340) = 11 Else savelines(340) = 10 If boughtartpadcustompallets = True Then savelines(341) = 11 Else savelines(341) = 10 If boughtartpadpixelplacer = True Then savelines(342) = 11 Else savelines(342) = 10 If boughtartpadpixelplacermovementmode = True Then savelines(343) = 11 Else savelines(343) = 10 If boughtartpadpencil = True Then savelines(344) = 11 Else savelines(344) = 10 If boughtartpadpaintbrush = True Then savelines(345) = 11 Else savelines(345) = 10 If boughtartpadlinetool = True Then savelines(346) = 11 Else savelines(346) = 10 If boughtartpadovaltool = True Then savelines(347) = 11 Else savelines(347) = 10 If boughtartpadrectangletool = True Then savelines(348) = 11 Else savelines(348) = 10 If boughtartpaderaser = True Then savelines(349) = 11 Else savelines(349) = 10 If boughtartpadfilltool = True Then savelines(350) = 11 Else savelines(350) = 10 If boughtartpadtexttool = True Then savelines(351) = 11 Else savelines(351) = 10 If boughtartpadundo = True Then savelines(352) = 11 Else savelines(352) = 10 If boughtartpadredo = True Then savelines(353) = 11 Else savelines(353) = 10 If boughtartpadsave = True Then savelines(354) = 11 Else savelines(354) = 10 If boughtartpadload = True Then savelines(355) = 11 Else savelines(355) = 10 For i = 0 To 127 : savelines(356 + i) = artpadcolourpallets(i).ToArgb : Next If boughtartpadnew = True Then savelines(484) = 11 Else savelines(484) = 10 IO.File.WriteAllLines("C:\ShiftOS\Shiftum42\Drivers\HDD.dri", savelines) File_Crypt.EncryptFile("C:\ShiftOS\Shiftum42\Drivers\HDD.dri", "C:/ShiftOS/Shiftum42/SKernal.sft", sSecretKey) Dim objWriter As New System.IO.StreamWriter("C:/ShiftOS/Shiftum42/HDAccess.sft", False) objWriter.Write(actualshiftversion) objWriter.Close() End Sub Private Sub loadgame() File_Crypt.DecryptFile("C:/ShiftOS/Shiftum42/SKernal.sft", "C:\ShiftOS\Shiftum42\Drivers\HDD.dri", sSecretKey) loadlines = IO.File.ReadAllLines("C:\ShiftOS\Shiftum42\Drivers\HDD.dri") If loadlines(0) = 11 Then boughttitlebar = True Else boughttitlebar = False If loadlines(1) = 11 Then boughtgray = True Else boughtgray = False If loadlines(2) = 11 Then boughtsecondspastmidnight = True Else boughtsecondspastmidnight = False If loadlines(3) = 11 Then boughtminutespastmidnight = True Else boughtminutespastmidnight = False If loadlines(4) = 11 Then boughthourspastmidnight = True Else boughthourspastmidnight = False If loadlines(5) = 11 Then boughtcustomusername = True Else boughtcustomusername = False If loadlines(6) = 11 Then boughtwindowsanywhere = True Else boughtwindowsanywhere = False If loadlines(7) = 11 Then boughtmultitasking = True Else boughtmultitasking = False If loadlines(8) = 11 Then boughtautoscrollterminal = True Else boughtautoscrollterminal = False codepoints = loadlines(9) If loadlines(10) = 11 Then boughtmovablewindows = True Else boughtmovablewindows = False If loadlines(11) = 11 Then boughtdraggablewindows = True Else boughtdraggablewindows = False If loadlines(12) = 11 Then boughtwindowborders = True Else boughtwindowborders = False If loadlines(13) = 11 Then boughtpmandam = True Else boughtpmandam = False If loadlines(14) = 11 Then boughtminuteaccuracytime = True Else boughtminuteaccuracytime = False If loadlines(15) = 11 Then boughtsplitsecondtime = True Else boughtsplitsecondtime = False If loadlines(16) = 11 Then boughttitletext = True Else boughttitletext = False If loadlines(17) = 11 Then boughtclosebutton = True Else boughtclosebutton = False If loadlines(18) = 11 Then boughtdesktoppanel = True Else boughtdesktoppanel = False If loadlines(19) = 11 Then boughtclock = True Else boughtclock = False If loadlines(20) = 11 Then boughtwindowedterminal = True Else boughtwindowedterminal = False If loadlines(21) = 11 Then boughtapplaunchermenu = True Else boughtapplaunchermenu = False If loadlines(22) = 11 Then boughtalknowledgeinput = True Else boughtalknowledgeinput = False If loadlines(23) = 11 Then boughtalclock = True Else boughtalclock = False If loadlines(24) = 11 Then boughtalshiftorium = True Else boughtalshiftorium = False If loadlines(25) = 11 Then boughtapplaunchershutdown = True Else boughtapplaunchershutdown = False If loadlines(26) = 11 Then boughtdesktoppanelclock = True Else boughtdesktoppanelclock = False If loadlines(27) = 11 Then boughtterminalscrollbar = True Else boughtterminalscrollbar = False If loadlines(28) = 11 Then boughtkiaddons = True Else boughtkiaddons = False If loadlines(29) = 11 Then boughtkicarbrands = True Else boughtkicarbrands = False If loadlines(30) = 11 Then boughtkigameconsoles = True Else boughtkigameconsoles = False username = loadlines(31) If loadlines(32) = 11 Then terminalfullscreen = True Else terminalfullscreen = False If loadlines(33) = 11 Then boughtshifter = True Else boughtshifter = False If loadlines(34) = 11 Then boughtalshifter = True Else boughtalshifter = False If loadlines(35) = 11 Then boughtrollupcommand = True Else boughtrollupcommand = False If loadlines(36) = 11 Then boughtrollupbutton = True Else boughtrollupbutton = False If loadlines(37) = 11 Then boughtshiftdesktop = True Else boughtshiftdesktop = False If loadlines(38) = 11 Then boughtshiftpanelclock = True Else boughtshiftpanelclock = False If loadlines(39) = 11 Then boughtshiftapplauncher = True Else boughtshiftapplauncher = False If loadlines(40) = 11 Then boughtshiftdesktoppanel = True Else boughtshiftdesktoppanel = False If loadlines(41) = 11 Then boughtshifttitlebar = True Else boughtshifttitlebar = False If loadlines(42) = 11 Then boughtshifttitletext = True Else boughtshifttitletext = False If loadlines(43) = 11 Then boughtshifttitlebuttons = True Else boughtshifttitlebuttons = False If loadlines(44) = 11 Then boughtshiftborders = True Else boughtshiftborders = False If loadlines(45) = 11 Then boughtgray2 = True Else boughtgray2 = False If loadlines(46) = 11 Then boughtgray3 = True Else boughtgray3 = False If loadlines(47) = 11 Then boughtgray4 = True Else boughtgray4 = False If loadlines(48) = 11 Then boughtanycolour = True Else boughtanycolour = False If loadlines(49) = 11 Then boughtanycolour2 = True Else boughtanycolour2 = False If loadlines(50) = 11 Then boughtanycolour3 = True Else boughtanycolour3 = False If loadlines(51) = 11 Then boughtanycolour4 = True Else boughtanycolour4 = False If loadlines(52) = 11 Then boughtpurple = True Else boughtpurple = False If loadlines(53) = 11 Then boughtpurple2 = True Else boughtpurple2 = False If loadlines(54) = 11 Then boughtpurple3 = True Else boughtpurple3 = False If loadlines(55) = 11 Then boughtpurple4 = True Else boughtpurple4 = False If loadlines(56) = 11 Then boughtblue = True Else boughtblue = False If loadlines(57) = 11 Then boughtblue2 = True Else boughtblue2 = False If loadlines(58) = 11 Then boughtblue3 = True Else boughtblue3 = False If loadlines(59) = 11 Then boughtblue4 = True Else boughtblue4 = False If loadlines(60) = 11 Then boughtgreen = True Else boughtgreen = False If loadlines(61) = 11 Then boughtgreen2 = True Else boughtgreen2 = False If loadlines(62) = 11 Then boughtgreen3 = True Else boughtgreen3 = False If loadlines(63) = 11 Then boughtgreen4 = True Else boughtgreen4 = False If loadlines(64) = 11 Then boughtyellow = True Else boughtyellow = False If loadlines(65) = 11 Then boughtyellow2 = True Else boughtyellow2 = False If loadlines(66) = 11 Then boughtyellow3 = True Else boughtyellow3 = False If loadlines(67) = 11 Then boughtyellow4 = True Else boughtyellow4 = False If loadlines(68) = 11 Then boughtorange = True Else boughtorange = False If loadlines(69) = 11 Then boughtorange2 = True Else boughtorange2 = False If loadlines(70) = 11 Then boughtorange3 = True Else boughtorange3 = False If loadlines(71) = 11 Then boughtorange4 = True Else boughtorange4 = False If loadlines(72) = 11 Then boughtbrown = True Else boughtbrown = False If loadlines(73) = 11 Then boughtbrown2 = True Else boughtbrown2 = False If loadlines(74) = 11 Then boughtbrown3 = True Else boughtbrown3 = False If loadlines(75) = 11 Then boughtbrown4 = True Else boughtbrown4 = False If loadlines(76) = 11 Then boughtred = True Else boughtred = False If loadlines(77) = 11 Then boughtred2 = True Else boughtred2 = False If loadlines(78) = 11 Then boughtred3 = True Else boughtred3 = False If loadlines(79) = 11 Then boughtred4 = True Else boughtred4 = False If loadlines(80) = 11 Then boughtpink = True Else boughtpink = False If loadlines(81) = 11 Then boughtpink2 = True Else boughtpink2 = False If loadlines(82) = 11 Then boughtpink3 = True Else boughtpink3 = False If loadlines(83) = 11 Then boughtpink4 = True Else boughtpink4 = False anymemory(0) = Color.FromArgb(loadlines(84)) anymemory(1) = Color.FromArgb(loadlines(85)) anymemory(2) = Color.FromArgb(loadlines(86)) anymemory(3) = Color.FromArgb(loadlines(87)) anymemory(4) = Color.FromArgb(loadlines(88)) anymemory(5) = Color.FromArgb(loadlines(89)) anymemory(6) = Color.FromArgb(loadlines(90)) anymemory(7) = Color.FromArgb(loadlines(91)) anymemory(8) = Color.FromArgb(loadlines(92)) anymemory(9) = Color.FromArgb(loadlines(93)) anymemory(10) = Color.FromArgb(loadlines(94)) anymemory(11) = Color.FromArgb(loadlines(95)) anymemory(12) = Color.FromArgb(loadlines(96)) anymemory(13) = Color.FromArgb(loadlines(97)) anymemory(14) = Color.FromArgb(loadlines(98)) anymemory(15) = Color.FromArgb(loadlines(99)) graymemory(0) = Color.FromArgb(loadlines(100)) graymemory(1) = Color.FromArgb(loadlines(101)) graymemory(2) = Color.FromArgb(loadlines(102)) graymemory(3) = Color.FromArgb(loadlines(103)) graymemory(4) = Color.FromArgb(loadlines(104)) graymemory(5) = Color.FromArgb(loadlines(105)) graymemory(6) = Color.FromArgb(loadlines(106)) graymemory(7) = Color.FromArgb(loadlines(107)) graymemory(8) = Color.FromArgb(loadlines(108)) graymemory(9) = Color.FromArgb(loadlines(109)) graymemory(10) = Color.FromArgb(loadlines(110)) graymemory(11) = Color.FromArgb(loadlines(111)) graymemory(12) = Color.FromArgb(loadlines(112)) graymemory(13) = Color.FromArgb(loadlines(113)) graymemory(14) = Color.FromArgb(loadlines(114)) graymemory(15) = Color.FromArgb(loadlines(115)) purplememory(0) = Color.FromArgb(loadlines(116)) purplememory(1) = Color.FromArgb(loadlines(117)) purplememory(2) = Color.FromArgb(loadlines(118)) purplememory(3) = Color.FromArgb(loadlines(119)) purplememory(4) = Color.FromArgb(loadlines(120)) purplememory(5) = Color.FromArgb(loadlines(121)) purplememory(6) = Color.FromArgb(loadlines(122)) purplememory(7) = Color.FromArgb(loadlines(123)) purplememory(8) = Color.FromArgb(loadlines(124)) purplememory(9) = Color.FromArgb(loadlines(125)) purplememory(10) = Color.FromArgb(loadlines(126)) purplememory(11) = Color.FromArgb(loadlines(127)) purplememory(12) = Color.FromArgb(loadlines(128)) purplememory(13) = Color.FromArgb(loadlines(129)) purplememory(14) = Color.FromArgb(loadlines(130)) purplememory(15) = Color.FromArgb(loadlines(131)) bluememory(0) = Color.FromArgb(loadlines(132)) bluememory(1) = Color.FromArgb(loadlines(133)) bluememory(2) = Color.FromArgb(loadlines(134)) bluememory(3) = Color.FromArgb(loadlines(135)) bluememory(4) = Color.FromArgb(loadlines(136)) bluememory(5) = Color.FromArgb(loadlines(137)) bluememory(6) = Color.FromArgb(loadlines(138)) bluememory(7) = Color.FromArgb(loadlines(139)) bluememory(8) = Color.FromArgb(loadlines(140)) bluememory(9) = Color.FromArgb(loadlines(141)) bluememory(10) = Color.FromArgb(loadlines(142)) bluememory(11) = Color.FromArgb(loadlines(143)) bluememory(12) = Color.FromArgb(loadlines(144)) bluememory(13) = Color.FromArgb(loadlines(145)) bluememory(14) = Color.FromArgb(loadlines(146)) bluememory(15) = Color.FromArgb(loadlines(147)) greenmemory(0) = Color.FromArgb(loadlines(148)) greenmemory(1) = Color.FromArgb(loadlines(149)) greenmemory(2) = Color.FromArgb(loadlines(150)) greenmemory(3) = Color.FromArgb(loadlines(151)) greenmemory(4) = Color.FromArgb(loadlines(152)) greenmemory(5) = Color.FromArgb(loadlines(153)) greenmemory(6) = Color.FromArgb(loadlines(154)) greenmemory(7) = Color.FromArgb(loadlines(155)) greenmemory(8) = Color.FromArgb(loadlines(156)) greenmemory(9) = Color.FromArgb(loadlines(157)) greenmemory(10) = Color.FromArgb(loadlines(158)) greenmemory(11) = Color.FromArgb(loadlines(159)) greenmemory(12) = Color.FromArgb(loadlines(160)) greenmemory(13) = Color.FromArgb(loadlines(161)) greenmemory(14) = Color.FromArgb(loadlines(162)) greenmemory(15) = Color.FromArgb(loadlines(163)) yellowmemory(0) = Color.FromArgb(loadlines(164)) yellowmemory(1) = Color.FromArgb(loadlines(165)) yellowmemory(2) = Color.FromArgb(loadlines(166)) yellowmemory(3) = Color.FromArgb(loadlines(167)) yellowmemory(4) = Color.FromArgb(loadlines(168)) yellowmemory(5) = Color.FromArgb(loadlines(169)) yellowmemory(6) = Color.FromArgb(loadlines(170)) yellowmemory(7) = Color.FromArgb(loadlines(171)) yellowmemory(8) = Color.FromArgb(loadlines(172)) yellowmemory(9) = Color.FromArgb(loadlines(173)) yellowmemory(10) = Color.FromArgb(loadlines(174)) yellowmemory(11) = Color.FromArgb(loadlines(175)) yellowmemory(12) = Color.FromArgb(loadlines(176)) yellowmemory(13) = Color.FromArgb(loadlines(177)) yellowmemory(14) = Color.FromArgb(loadlines(178)) yellowmemory(15) = Color.FromArgb(loadlines(179)) orangememory(0) = Color.FromArgb(loadlines(180)) orangememory(1) = Color.FromArgb(loadlines(181)) orangememory(2) = Color.FromArgb(loadlines(182)) orangememory(3) = Color.FromArgb(loadlines(183)) orangememory(4) = Color.FromArgb(loadlines(184)) orangememory(5) = Color.FromArgb(loadlines(185)) orangememory(6) = Color.FromArgb(loadlines(186)) orangememory(7) = Color.FromArgb(loadlines(187)) orangememory(8) = Color.FromArgb(loadlines(188)) orangememory(9) = Color.FromArgb(loadlines(189)) orangememory(10) = Color.FromArgb(loadlines(190)) orangememory(11) = Color.FromArgb(loadlines(191)) orangememory(12) = Color.FromArgb(loadlines(192)) orangememory(13) = Color.FromArgb(loadlines(193)) orangememory(14) = Color.FromArgb(loadlines(194)) orangememory(15) = Color.FromArgb(loadlines(195)) brownmemory(0) = Color.FromArgb(loadlines(196)) brownmemory(1) = Color.FromArgb(loadlines(197)) brownmemory(2) = Color.FromArgb(loadlines(198)) brownmemory(3) = Color.FromArgb(loadlines(199)) brownmemory(4) = Color.FromArgb(loadlines(200)) brownmemory(5) = Color.FromArgb(loadlines(201)) brownmemory(6) = Color.FromArgb(loadlines(202)) brownmemory(7) = Color.FromArgb(loadlines(203)) brownmemory(8) = Color.FromArgb(loadlines(204)) brownmemory(9) = Color.FromArgb(loadlines(205)) brownmemory(10) = Color.FromArgb(loadlines(206)) brownmemory(11) = Color.FromArgb(loadlines(207)) brownmemory(12) = Color.FromArgb(loadlines(208)) brownmemory(13) = Color.FromArgb(loadlines(209)) brownmemory(14) = Color.FromArgb(loadlines(210)) brownmemory(15) = Color.FromArgb(loadlines(211)) redmemory(0) = Color.FromArgb(loadlines(212)) redmemory(1) = Color.FromArgb(loadlines(213)) redmemory(2) = Color.FromArgb(loadlines(214)) redmemory(3) = Color.FromArgb(loadlines(215)) redmemory(4) = Color.FromArgb(loadlines(216)) redmemory(5) = Color.FromArgb(loadlines(217)) redmemory(6) = Color.FromArgb(loadlines(218)) redmemory(7) = Color.FromArgb(loadlines(219)) redmemory(8) = Color.FromArgb(loadlines(220)) redmemory(9) = Color.FromArgb(loadlines(221)) redmemory(10) = Color.FromArgb(loadlines(222)) redmemory(11) = Color.FromArgb(loadlines(223)) redmemory(12) = Color.FromArgb(loadlines(224)) redmemory(13) = Color.FromArgb(loadlines(225)) redmemory(14) = Color.FromArgb(loadlines(226)) redmemory(15) = Color.FromArgb(loadlines(227)) pinkmemory(0) = Color.FromArgb(loadlines(228)) pinkmemory(1) = Color.FromArgb(loadlines(229)) pinkmemory(2) = Color.FromArgb(loadlines(230)) pinkmemory(3) = Color.FromArgb(loadlines(231)) pinkmemory(4) = Color.FromArgb(loadlines(232)) pinkmemory(5) = Color.FromArgb(loadlines(233)) pinkmemory(6) = Color.FromArgb(loadlines(234)) pinkmemory(7) = Color.FromArgb(loadlines(235)) pinkmemory(8) = Color.FromArgb(loadlines(236)) pinkmemory(9) = Color.FromArgb(loadlines(237)) pinkmemory(10) = Color.FromArgb(loadlines(238)) pinkmemory(11) = Color.FromArgb(loadlines(239)) pinkmemory(12) = Color.FromArgb(loadlines(240)) pinkmemory(13) = Color.FromArgb(loadlines(241)) pinkmemory(14) = Color.FromArgb(loadlines(242)) pinkmemory(15) = Color.FromArgb(loadlines(243)) titlebarcolour = Color.FromArgb(loadlines(244)) windowbordercolour = Color.FromArgb(loadlines(245)) windowbordersize = loadlines(246) titlebarheight = loadlines(247) closebuttoncolour = Color.FromArgb(loadlines(248)) closebuttonheight = loadlines(249) closebuttonwidth = loadlines(250) closebuttonside = loadlines(251) closebuttontop = loadlines(252) titletextcolour = Color.FromArgb(loadlines(253)) titletexttop = loadlines(254) titletextside = loadlines(255) titletextsize = loadlines(256) titletextfont = loadlines(257) titletextstyle = loadlines(258) desktoppanelcolour = Color.FromArgb(loadlines(259)) desktopbackgroundcolour = Color.FromArgb(loadlines(260)) desktoppanelheight = loadlines(261) desktoppanelposition = loadlines(262) clocktextcolour = Color.FromArgb(loadlines(263)) clockbackgroundcolor = Color.FromArgb(loadlines(264)) panelclocktexttop = loadlines(265) panelclocktextsize = loadlines(266) panelclocktextfont = loadlines(267) panelclocktextstyle = loadlines(268) applauncherbuttoncolour = Color.FromArgb(loadlines(269)) applauncherbuttonclickedcolour = Color.FromArgb(loadlines(270)) applauncherbackgroundcolour = Color.FromArgb(loadlines(271)) applaunchermouseovercolour = Color.FromArgb(loadlines(272)) applicationsbuttontextcolour = Color.FromArgb(loadlines(273)) applicationbuttonheight = loadlines(274) applicationbuttontextsize = loadlines(275) applicationbuttontextfont = loadlines(276) applicationbuttontextstyle = loadlines(277) applicationlaunchername = loadlines(278) titletextposition = loadlines(279) rollupbuttoncolour = Color.FromArgb(loadlines(280)) rollupbuttonheight = loadlines(281) rollupbuttonwidth = loadlines(282) rollupbuttonside = loadlines(283) rollupbuttontop = loadlines(284) If loadlines(285) = 11 Then boughtpong = True Else boughtpong = False If loadlines(286) = 11 Then boughtknowledgeinputicon = True Else boughtknowledgeinputicon = False If loadlines(287) = 11 Then boughtshiftericon = True Else boughtshiftericon = False If loadlines(288) = 11 Then boughtshiftoriumicon = True Else boughtshiftoriumicon = False If loadlines(289) = 11 Then boughtclockicon = True Else boughtclockicon = False If loadlines(290) = 11 Then boughtshutdownicon = True Else boughtshutdownicon = False If loadlines(291) = 11 Then boughtpongicon = True Else boughtpongicon = False If loadlines(292) = 11 Then boughtterminalicon = True Else boughtterminalicon = False If loadlines(293) = 11 Then boughtalpong = True Else boughtalpong = False If loadlines(294) = 11 Then boughtfileskimmer = True Else boughtfileskimmer = False If loadlines(295) = 11 Then boughtalfileskimmer = True Else boughtalfileskimmer = False If loadlines(296) = 11 Then boughttextpad = True Else boughttextpad = False If loadlines(297) = 11 Then boughtaltextpad = True Else boughtaltextpad = False If loadlines(298) = 11 Then boughtfileskimmericon = True Else boughtfileskimmericon = False If loadlines(299) = 11 Then boughttextpadicon = True Else boughttextpadicon = False If loadlines(300) = 11 Then boughttextpadnew = True Else boughttextpadnew = False If loadlines(301) = 11 Then boughttextpadsave = True Else boughttextpadsave = False If loadlines(302) = 11 Then boughttextpadopen = True Else boughttextpadopen = False If loadlines(303) = 11 Then boughtfileskimmernewfolder = True Else boughtfileskimmernewfolder = False If loadlines(304) = 11 Then boughtfileskimmerdelete = True Else boughtfileskimmerdelete = False If loadlines(305) = 11 Then boughtkielements = True Else boughtkielements = False If loadlines(306) = 11 Then boughtcolourpickericon = True Else boughtcolourpickericon = False If loadlines(307) = 11 Then boughtinfoboxicon = True Else boughtinfoboxicon = False artpadcolorpalletwidth = loadlines(308) artpadcolorpalletheight = loadlines(309) artpadcolorpalletsidegap = loadlines(310) artpadcolorpallettopgap = loadlines(311) artpadvisiblepallets = loadlines(312) artpadpixellimit = loadlines(313) If loadlines(314) = 11 Then boughtskinloader = True Else boughtskinloader = False If loadlines(315) = 11 Then boughtminimizebutton = True Else boughtminimizebutton = False If loadlines(316) = 11 Then boughtpanelbuttons = True Else boughtpanelbuttons = False If loadlines(317) = 11 Then boughtshiftpanelbuttons = True Else boughtshiftpanelbuttons = False If loadlines(318) = 11 Then boughtartpad = True Else boughtartpad = False If loadlines(319) = 11 Then boughtalartpad = True Else boughtalartpad = False If loadlines(320) = 11 Then boughtartpadicon = True Else boughtartpadicon = False If loadlines(321) = 11 Then boughtskinning = True Else boughtskinning = False If loadlines(322) = 11 Then boughtminimizecommand = True Else boughtminimizecommand = False If loadlines(323) = 11 Then boughtusefulpanelbuttons = True Else boughtusefulpanelbuttons = False If loadlines(324) = 11 Then boughtunitymode = True Else boughtunitymode = False If loadlines(325) = 11 Then boughtartpadpixellimit4 = True Else boughtartpadpixellimit4 = False If loadlines(326) = 11 Then boughtartpadpixellimit8 = True Else boughtartpadpixellimit8 = False If loadlines(327) = 11 Then boughtartpadpixellimit16 = True Else boughtartpadpixellimit16 = False If loadlines(328) = 11 Then boughtartpadpixellimit64 = True Else boughtartpadpixellimit64 = False If loadlines(329) = 11 Then boughtartpadpixellimit256 = True Else boughtartpadpixellimit256 = False If loadlines(330) = 11 Then boughtartpadpixellimit1024 = True Else boughtartpadpixellimit1024 = False If loadlines(331) = 11 Then boughtartpadpixellimit4096 = True Else boughtartpadpixellimit4096 = False If loadlines(332) = 11 Then boughtartpadpixellimit16384 = True Else boughtartpadpixellimit16384 = False If loadlines(333) = 11 Then boughtartpadpixellimit65536 = True Else boughtartpadpixellimit65536 = False If loadlines(334) = 11 Then boughtartpadlimitlesspixels = True Else boughtartpadlimitlesspixels = False If loadlines(335) = 11 Then boughtartpad4colorpallets = True Else boughtartpad4colorpallets = False If loadlines(336) = 11 Then boughtartpad8colorpallets = True Else boughtartpad8colorpallets = False If loadlines(337) = 11 Then boughtartpad16colorpallets = True Else boughtartpad16colorpallets = False If loadlines(338) = 11 Then boughtartpad32colorpallets = True Else boughtartpad32colorpallets = False If loadlines(339) = 11 Then boughtartpad64colorpallets = True Else boughtartpad64colorpallets = False If loadlines(340) = 11 Then boughtartpad128colorpallets = True Else boughtartpad128colorpallets = False If loadlines(341) = 11 Then boughtartpadcustompallets = True Else boughtartpadcustompallets = False If loadlines(342) = 11 Then boughtartpadpixelplacer = True Else boughtartpadpixelplacer = False If loadlines(343) = 11 Then boughtartpadpixelplacermovementmode = True Else boughtartpadpixelplacermovementmode = False If loadlines(344) = 11 Then boughtartpadpencil = True Else boughtartpadpencil = False If loadlines(345) = 11 Then boughtartpadpaintbrush = True Else boughtartpadpaintbrush = False If loadlines(346) = 11 Then boughtartpadlinetool = True Else boughtartpadlinetool = False If loadlines(347) = 11 Then boughtartpadovaltool = True Else boughtartpadovaltool = False If loadlines(348) = 11 Then boughtartpadrectangletool = True Else boughtartpadrectangletool = False If loadlines(349) = 11 Then boughtartpaderaser = True Else boughtartpaderaser = False If loadlines(350) = 11 Then boughtartpadfilltool = True Else boughtartpadfilltool = False If loadlines(351) = 11 Then boughtartpadtexttool = True Else boughtartpadtexttool = False If loadlines(352) = 11 Then boughtartpadundo = True Else boughtartpadundo = False If loadlines(353) = 11 Then boughtartpadredo = True Else boughtartpadredo = False If loadlines(354) = 11 Then boughtartpadsave = True Else boughtartpadsave = False If loadlines(355) = 11 Then boughtartpadload = True Else boughtartpadload = False For i = 0 To 127 : artpadcolourpallets(i) = Color.FromArgb(loadlines(356 + i)) : Next If loadlines(484) = "" Then Else If loadlines(484) = 11 Then boughtartpadnew = True Else boughtartpadnew = False If IO.File.Exists("C:\ShiftOS\Shiftum42\Skins\Current\skindata.dat") Then loadcurrentskin() If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Icons") Then setupicons() End Sub Private Sub ShiftOSDesktop_Load(sender As Object, e As EventArgs) Handles MyBase.Load If newgame = True Then savegame() Else loadgame() End If ToolStripManager.Renderer = New MyToolStripRenderer() Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None Me.WindowState = FormWindowState.Maximized loadskinfiles() setupdesktop() setupskins() End Sub Public Sub loadcurrentskin() skinlines = IO.File.ReadAllLines("C:\ShiftOS\Shiftum42\Skins\Current\skindata.dat") titlebarcolour = Color.FromArgb(skinlines(0)) windowbordercolour = Color.FromArgb(skinlines(1)) windowbordersize = skinlines(2) titlebarheight = skinlines(3) closebuttoncolour = Color.FromArgb(skinlines(4)) closebuttonheight = skinlines(5) closebuttonwidth = skinlines(6) closebuttonside = skinlines(7) closebuttontop = skinlines(8) titletextcolour = Color.FromArgb(skinlines(9)) titletexttop = skinlines(10) titletextside = skinlines(11) titletextsize = skinlines(12) titletextfont = skinlines(13) titletextstyle = skinlines(14) desktoppanelcolour = Color.FromArgb(skinlines(15)) desktopbackgroundcolour = Color.FromArgb(skinlines(16)) desktoppanelheight = skinlines(17) desktoppanelposition = skinlines(18) clocktextcolour = Color.FromArgb(skinlines(19)) clockbackgroundcolor = Color.FromArgb(skinlines(20)) panelclocktexttop = skinlines(21) panelclocktextsize = skinlines(22) panelclocktextfont = skinlines(23) panelclocktextstyle = skinlines(24) applauncherbuttoncolour = Color.FromArgb(skinlines(25)) applauncherbuttonclickedcolour = Color.FromArgb(skinlines(26)) applauncherbackgroundcolour = Color.FromArgb(skinlines(27)) applaunchermouseovercolour = Color.FromArgb(skinlines(28)) applicationsbuttontextcolour = Color.FromArgb(skinlines(29)) applicationbuttonheight = skinlines(30) applicationbuttontextsize = skinlines(31) applicationbuttontextfont = skinlines(32) applicationbuttontextstyle = skinlines(33) applicationlaunchername = skinlines(34) titletextposition = skinlines(35) rollupbuttoncolour = Color.FromArgb(skinlines(36)) If skinlines(37) = "" Then Else rollupbuttonheight = skinlines(37) If skinlines(38) = "" Then Else rollupbuttonwidth = skinlines(38) If skinlines(39) = "" Then Else rollupbuttonside = skinlines(39) If skinlines(40) = "" Then Else rollupbuttontop = skinlines(40) If skinlines(41) = "" Then Else titlebariconside = skinlines(41) If skinlines(42) = "" Then Else titlebaricontop = skinlines(42) If skinlines(43) = "" Then Else showwindowcorners = skinlines(43) If skinlines(44) = "" Then Else titlebarcornerwidth = skinlines(44) If skinlines(45) = "" Then Else titlebarrightcornercolour = Color.FromArgb(skinlines(45)) If skinlines(46) = "" Then Else titlebarleftcornercolour = Color.FromArgb(skinlines(46)) If skinlines(47) = "" Then Else applaunchermenuholderwidth = skinlines(47) If skinlines(48) = "" Then Else windowborderleftcolour = Color.FromArgb(skinlines(48)) If skinlines(49) = "" Then Else windowborderrightcolour = Color.FromArgb(skinlines(49)) If skinlines(50) = "" Then Else windowborderbottomcolour = Color.FromArgb(skinlines(50)) If skinlines(51) = "" Then Else windowborderbottomrightcolour = Color.FromArgb(skinlines(51)) If skinlines(52) = "" Then Else windowborderbottomleftcolour = Color.FromArgb(skinlines(52)) If skinlines(53) = "" Then Else panelbuttonicontop = skinlines(53) If skinlines(54) = "" Then Else panelbuttoniconside = skinlines(54) If skinlines(55) = "" Then Else panelbuttoniconsize = skinlines(55) If skinlines(56) = "" Then Else panelbuttoniconsize = skinlines(56) If skinlines(57) = "" Then Else panelbuttonheight = skinlines(57) If skinlines(58) = "" Then Else panelbuttonwidth = skinlines(58) If skinlines(59) = "" Then Else panelbuttoncolour = Color.FromArgb(skinlines(59)) If skinlines(60) = "" Then Else panelbuttontextcolour = Color.FromArgb(skinlines(60)) If skinlines(61) = "" Then Else panelbuttontextsize = skinlines(61) If skinlines(62) = "" Then Else panelbuttontextfont = skinlines(62) If skinlines(63) = "" Then Else panelbuttontextstyle = skinlines(63) If skinlines(64) = "" Then Else panelbuttontextside = skinlines(64) If skinlines(65) = "" Then Else panelbuttontexttop = skinlines(65) If skinlines(66) = "" Then Else panelbuttongap = skinlines(66) If skinlines(67) = "" Then Else panelbuttonfromtop = skinlines(67) If skinlines(68) = "" Then Else panelbuttoninitialgap = skinlines(68) If skinlines(69) = "" Then Else minimizebuttoncolour = Color.FromArgb(skinlines(69)) If skinlines(70) = "" Then Else minimizebuttonheight = skinlines(70) If skinlines(71) = "" Then Else minimizebuttonwidth = skinlines(71) If skinlines(72) = "" Then Else minimizebuttonside = skinlines(72) If skinlines(73) = "" Then Else minimizebuttontop = skinlines(73) skinimages(0) = skinlines(100) skinimages(1) = skinlines(101) skinimages(2) = skinlines(102) skinimages(3) = skinlines(103) skinimages(4) = skinlines(104) skinimages(5) = skinlines(105) skinimages(6) = skinlines(106) skinimages(7) = skinlines(107) skinimages(8) = skinlines(108) skinimages(9) = skinlines(109) skinimages(10) = skinlines(110) skinimages(11) = skinlines(111) skinimages(12) = skinlines(112) skinimages(13) = skinlines(113) skinimages(14) = skinlines(114) skinimages(15) = skinlines(115) skinimages(16) = skinlines(116) skinimages(17) = skinlines(117) skinimages(18) = skinlines(118) skinimages(19) = skinlines(119) skinimages(20) = skinlines(120) skinimages(21) = skinlines(121) skinimages(22) = skinlines(122) skinimages(23) = skinlines(123) skinimages(24) = skinlines(124) skinimages(25) = skinlines(125) skinimages(26) = skinlines(126) skinimages(27) = skinlines(127) skinimages(28) = skinlines(128) skinimages(29) = skinlines(129) skinimages(30) = skinlines(130) skinimages(31) = skinlines(131) skinimages(32) = skinlines(132) skinimages(33) = skinlines(133) skinimages(34) = skinlines(134) skinimages(35) = skinlines(135) skinimages(36) = skinlines(136) skinimages(37) = skinlines(137) skinimages(38) = skinlines(138) skinimages(39) = skinlines(139) skinimages(40) = skinlines(140) skinimages(41) = skinlines(141) skinimages(42) = skinlines(142) skinimages(43) = skinlines(143) skinimages(44) = skinlines(144) skinimages(45) = skinlines(145) skinimages(46) = skinlines(146) skinimages(47) = skinlines(147) skinimages(48) = skinlines(148) skinimages(49) = skinlines(149) skinimages(50) = skinlines(150) End Sub Public Sub disposeoldskindata(ByVal fromwhere As String) 'mostly disabled due to issues with disposing causing red X's Select Case fromwhere Case "skinloaderapplyskin" shortdisposecode(Skin_Loader.skinloaderskinclosebutton, Me.skinclosebutton, Shifter.skinclosebutton, True) shortdisposecode(Skin_Loader.skinloaderskintitlebar, Me.skintitlebar, Shifter.shifterskintitlebar, True) shortdisposecode(Skin_Loader.skinloaderskindesktopbackground, Me.skindesktopbackground, Shifter.skindesktopbackground, True) shortdisposecode(Skin_Loader.skinloaderskinrollupbutton, Me.skinrollupbutton, Shifter.skinrollupbutton, True) shortdisposecode(Skin_Loader.skinloaderskintitlebarrightcorner, Me.skintitlebarrightcorner, Shifter.skintitlebarrightcorner, True) shortdisposecode(Skin_Loader.skinloaderskintitlebarleftcorner, Me.skintitlebarleftcorner, Shifter.skintitlebarleftcorner, True) shortdisposecode(Skin_Loader.skinloaderskindesktoppanel, Me.skindesktoppanel, Shifter.skindesktoppanel, True) shortdisposecode(Skin_Loader.skinloaderskindesktoppaneltime, Me.skindesktoppaneltime, Shifter.skindesktoppaneltime, True) shortdisposecode(Skin_Loader.skinloaderskinapplauncherbutton, Me.skinapplauncherbutton, Shifter.skinapplauncherbutton, True) shortdisposecode(Skin_Loader.skinloaderskinwindowborderleft, Me.skinwindowborderleft, Shifter.skinwindowborderleft, True) shortdisposecode(Skin_Loader.skinloaderskinwindowborderright, Me.skinwindowborderright, Shifter.skinwindowborderright, True) shortdisposecode(Skin_Loader.skinloaderskinwindowborderbottom, Me.skinwindowborderbottom, Shifter.skinwindowborderbottom, True) shortdisposecode(Skin_Loader.skinloaderskinwindowborderbottomright, Me.skinwindowborderbottomright, Shifter.skinwindowborderbottomright, True) shortdisposecode(Skin_Loader.skinloaderskinwindowborderbottomleft, Me.skinwindowborderbottomleft, Shifter.skinwindowborderbottomleft, True) shortdisposecode(Skin_Loader.skinloaderskinpanelbutton, Me.skinpanelbutton, Shifter.skinpanelbutton, True) shortdisposecode(Skin_Loader.skinloaderskinminimizebutton, Me.skinminimizebutton, Shifter.skinminimizebutton, True) 'If Me.BackgroundImage Is Nothing Then Else Me.BackgroundImage.Dispose() 'If Me.ApplicationsToolStripMenuItem.BackgroundImage Is Nothing Then Else Me.ApplicationsToolStripMenuItem.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonholder.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonholder.BackgroundImage.Dispose() 'If Me.desktoppanel.BackgroundImage Is Nothing Then Else Me.desktoppanel.BackgroundImage.Dispose() 'If Me.timepanel.BackgroundImage Is Nothing Then Else Me.timepanel.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonclock.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonclock.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonskinloader.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonskinloader.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonfileskimmer.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonfileskimmer.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonfileopener.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonfileopener.BackgroundImage.Dispose() 'If Me.pnlpanelbuttoninfobox.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttoninfobox.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonknowledgeinput.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonknowledgeinput.BackgroundImage.Dispose() 'If Me.pnlpanelbuttoncolourpicker.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttoncolourpicker.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonshiftorium.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonshiftorium.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonfilesaver.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonfilesaver.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonshifter.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonshifter.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonpong.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonpong.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonterminal.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonterminal.BackgroundImage.Dispose() 'If Me.pnlpanelbuttontextpad.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttontextpad.BackgroundImage.Dispose() 'If Me.pnlpanelbuttongraphicpicker.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttongraphicpicker.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonartpad.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonartpad.BackgroundImage.Dispose() 'If Me.pnlpanelbuttoncalculator.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttoncalculator.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonaudioplayer.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonaudioplayer.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonwebbrowser.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonwebbrowser.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonvideoplayer.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonvideoplayer.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonnamechanger.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonnamechanger.BackgroundImage.Dispose() 'If Me.pnlpanelbuttoniconmanager.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttoniconmanager.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonbitnotewallet.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonbitnotewallet.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonbitnotedigger.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonbitnotedigger.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonskinshifter.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonskinshifter.BackgroundImage.Dispose() 'If Me.tbclockicon.BackgroundImage Is Nothing Then Else Me.tbclockicon.BackgroundImage.Dispose() 'If Me.tbskinloadericon.BackgroundImage Is Nothing Then Else Me.tbskinloadericon.BackgroundImage.Dispose() 'If Me.tbfileskimmericon.BackgroundImage Is Nothing Then Else Me.tbfileskimmericon.BackgroundImage.Dispose() 'If Me.tbfileopenericon.BackgroundImage Is Nothing Then Else Me.tbfileopenericon.BackgroundImage.Dispose() 'If Me.tbinfoboxicon.BackgroundImage Is Nothing Then Else Me.tbinfoboxicon.BackgroundImage.Dispose() 'If Me.tbknowledgeinputicon.BackgroundImage Is Nothing Then Else Me.tbknowledgeinputicon.BackgroundImage.Dispose() 'If Me.tbcolourpickericon.BackgroundImage Is Nothing Then Else Me.tbcolourpickericon.BackgroundImage.Dispose() 'If Me.tbshiftoriumicon.BackgroundImage Is Nothing Then Else Me.tbshiftoriumicon.BackgroundImage.Dispose() 'If Me.tbfilesavericon.BackgroundImage Is Nothing Then Else Me.tbfilesavericon.BackgroundImage.Dispose() 'If Me.tbshiftericon.BackgroundImage Is Nothing Then Else Me.tbshiftericon.BackgroundImage.Dispose() 'If Me.tbpongicon.BackgroundImage Is Nothing Then Else Me.tbpongicon.BackgroundImage.Dispose() 'If Me.tbterminalicon.BackgroundImage Is Nothing Then Else Me.tbterminalicon.BackgroundImage.Dispose() 'If Me.tbtextpadicon.BackgroundImage Is Nothing Then Else Me.tbtextpadicon.BackgroundImage.Dispose() 'If Me.tbgraphicpickericon.BackgroundImage Is Nothing Then Else Me.tbgraphicpickericon.BackgroundImage.Dispose() 'If Me.tbartpadicon.BackgroundImage Is Nothing Then Else Me.tbartpadicon.BackgroundImage.Dispose() 'If Me.tbcalculatoricon.BackgroundImage Is Nothing Then Else Me.tbcalculatoricon.BackgroundImage.Dispose() 'If Me.tbaudioplayericon.BackgroundImage Is Nothing Then Else Me.tbaudioplayericon.BackgroundImage.Dispose() 'If Me.tbwebbrowsericon.BackgroundImage Is Nothing Then Else Me.tbwebbrowsericon.BackgroundImage.Dispose() 'If Me.tbvideoplayericon.BackgroundImage Is Nothing Then Else Me.tbvideoplayericon.BackgroundImage.Dispose() 'If Me.tbnamechangericon.BackgroundImage Is Nothing Then Else Me.tbnamechangericon.BackgroundImage.Dispose() 'If Me.tbiconmanagericon.BackgroundImage Is Nothing Then Else Me.tbiconmanagericon.BackgroundImage.Dispose() 'If Me.tbbitnotewalleticon.BackgroundImage Is Nothing Then Else Me.tbbitnotewalleticon.BackgroundImage.Dispose() 'If Me.tbbitnotediggericon.BackgroundImage Is Nothing Then Else Me.tbbitnotediggericon.BackgroundImage.Dispose() 'If Me.tbskinshiftericon.BackgroundImage Is Nothing Then Else Me.tbskinshiftericon.BackgroundImage.Dispose() Me.BackgroundImage = Nothing Me.ApplicationsToolStripMenuItem.BackgroundImage = Nothing Me.pnlpanelbuttonholder.BackgroundImage = Nothing Me.desktoppanel.BackgroundImage = Nothing Me.timepanel.BackgroundImage = Nothing Me.pnlpanelbuttonclock.BackgroundImage = Nothing Me.pnlpanelbuttonskinloader.BackgroundImage = Nothing Me.pnlpanelbuttonfileskimmer.BackgroundImage = Nothing Me.pnlpanelbuttonfileopener.BackgroundImage = Nothing Me.pnlpanelbuttoninfobox.BackgroundImage = Nothing Me.pnlpanelbuttonknowledgeinput.BackgroundImage = Nothing Me.pnlpanelbuttoncolourpicker.BackgroundImage = Nothing Me.pnlpanelbuttonshiftorium.BackgroundImage = Nothing Me.pnlpanelbuttonfilesaver.BackgroundImage = Nothing Me.pnlpanelbuttonshifter.BackgroundImage = Nothing Me.pnlpanelbuttonpong.BackgroundImage = Nothing Me.pnlpanelbuttonterminal.BackgroundImage = Nothing Me.pnlpanelbuttontextpad.BackgroundImage = Nothing Me.pnlpanelbuttongraphicpicker.BackgroundImage = Nothing Me.pnlpanelbuttonartpad.BackgroundImage = Nothing Me.pnlpanelbuttoncalculator.BackgroundImage = Nothing Me.pnlpanelbuttonaudioplayer.BackgroundImage = Nothing Me.pnlpanelbuttonwebbrowser.BackgroundImage = Nothing Me.pnlpanelbuttonvideoplayer.BackgroundImage = Nothing Me.pnlpanelbuttonnamechanger.BackgroundImage = Nothing Me.pnlpanelbuttoniconmanager.BackgroundImage = Nothing Me.pnlpanelbuttonbitnotewallet.BackgroundImage = Nothing Me.pnlpanelbuttonbitnotedigger.BackgroundImage = Nothing Me.pnlpanelbuttonskinshifter.BackgroundImage = Nothing Me.pnlpanelbuttonshiftnet.BackgroundImage = Nothing Me.pnlpanelbuttondownloader.BackgroundImage = Nothing Me.tbclockicon.BackgroundImage = Nothing Me.tbskinloadericon.BackgroundImage = Nothing Me.tbfileskimmericon.BackgroundImage = Nothing Me.tbfileopenericon.BackgroundImage = Nothing Me.tbinfoboxicon.BackgroundImage = Nothing Me.tbknowledgeinputicon.BackgroundImage = Nothing Me.tbcolourpickericon.BackgroundImage = Nothing Me.tbshiftoriumicon.BackgroundImage = Nothing Me.tbfilesavericon.BackgroundImage = Nothing Me.tbshiftericon.BackgroundImage = Nothing Me.tbpongicon.BackgroundImage = Nothing Me.tbterminalicon.BackgroundImage = Nothing Me.tbtextpadicon.BackgroundImage = Nothing Me.tbgraphicpickericon.BackgroundImage = Nothing Me.tbartpadicon.BackgroundImage = Nothing Me.tbcalculatoricon.BackgroundImage = Nothing Me.tbaudioplayericon.BackgroundImage = Nothing Me.tbwebbrowsericon.BackgroundImage = Nothing Me.tbvideoplayericon.BackgroundImage = Nothing Me.tbnamechangericon.BackgroundImage = Nothing Me.tbiconmanagericon.BackgroundImage = Nothing Me.tbbitnotewalleticon.BackgroundImage = Nothing Me.tbbitnotediggericon.BackgroundImage = Nothing Me.tbskinshiftericon.BackgroundImage = Nothing Me.tbshiftneticon.BackgroundImage = Nothing Me.tbdownloadericon.BackgroundImage = Nothing 'For i = 0 To 50 ' skinimages(i) = "" 'Next 'If Skin_Loader.pgleft.BackgroundImage Is Nothing Then Else Skin_Loader.pgleft.BackgroundImage.Dispose() 'If Skin_Loader.pgright.BackgroundImage Is Nothing Then Else Skin_Loader.pgright.BackgroundImage.Dispose() 'If Skin_Loader.pgbottom.BackgroundImage Is Nothing Then Else Skin_Loader.pgbottom.BackgroundImage.Dispose() 'If Skin_Loader.pgbottomlcorner.BackgroundImage Is Nothing Then Else Skin_Loader.pgbottomlcorner.BackgroundImage.Dispose() 'If Skin_Loader.pgbottomrcorner.BackgroundImage Is Nothing Then Else Skin_Loader.pgbottomrcorner.BackgroundImage.Dispose() 'If Clock.Visible = True Then ' If Clock.titlebar.BackgroundImage Is Nothing Then Else Clock.titlebar.BackgroundImage.Dispose() ' Clock.titlebar.BackgroundImage = Nothing 'End If Skin_Loader.pgleft.BackgroundImage = Nothing Skin_Loader.pgright.BackgroundImage = Nothing Skin_Loader.pgbottom.BackgroundImage = Nothing Skin_Loader.pgbottomlcorner.BackgroundImage = Nothing Skin_Loader.pgbottomrcorner.BackgroundImage = Nothing GC.Collect() While My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Current\") Try If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Current\") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Skins\Current\", FileIO.DeleteDirectoryOption.DeleteAllContents) Catch ex As Exception End Try End While My.Computer.FileSystem.CreateDirectory("C:\ShiftOS\Shiftum42\Skins\Current\") If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Preview\") Then My.Computer.FileSystem.CopyDirectory("C:\ShiftOS\Shiftum42\Skins\Preview\", "C:\ShiftOS\Shiftum42\Skins\Current\") My.Computer.FileSystem.WriteAllText("C:\ShiftOS\Shiftum42\Skins\Current\skindata.dat", My.Computer.FileSystem.ReadAllText("C:\ShiftOS\Shiftum42\Skins\Current\skindata.dat").Replace("\Preview", "\Current"), False) Case "shifterapply" shortdisposecode(Skin_Loader.skinloaderskinclosebutton, Me.skinclosebutton, Shifter.skinclosebutton, True) shortdisposecode(Skin_Loader.skinloaderskintitlebar, Me.skintitlebar, Shifter.shifterskintitlebar, True) shortdisposecode(Skin_Loader.skinloaderskindesktopbackground, Me.skindesktopbackground, Shifter.skindesktopbackground, True) shortdisposecode(Skin_Loader.skinloaderskinrollupbutton, Me.skinrollupbutton, Shifter.skinrollupbutton, True) shortdisposecode(Skin_Loader.skinloaderskintitlebarrightcorner, Me.skintitlebarrightcorner, Shifter.skintitlebarrightcorner, True) shortdisposecode(Skin_Loader.skinloaderskintitlebarleftcorner, Me.skintitlebarleftcorner, Shifter.skintitlebarleftcorner, True) shortdisposecode(Skin_Loader.skinloaderskindesktoppanel, Me.skindesktoppanel, Shifter.skindesktoppanel, True) shortdisposecode(Skin_Loader.skinloaderskindesktoppaneltime, Me.skindesktoppaneltime, Shifter.skindesktoppaneltime, True) shortdisposecode(Skin_Loader.skinloaderskinapplauncherbutton, Me.skinapplauncherbutton, Shifter.skinapplauncherbutton, True) shortdisposecode(Skin_Loader.skinloaderskinwindowborderleft, Me.skinwindowborderleft, Shifter.skinwindowborderleft, True) shortdisposecode(Skin_Loader.skinloaderskinwindowborderright, Me.skinwindowborderright, Shifter.skinwindowborderright, True) shortdisposecode(Skin_Loader.skinloaderskinwindowborderbottom, Me.skinwindowborderbottom, Shifter.skinwindowborderbottom, True) shortdisposecode(Skin_Loader.skinloaderskinwindowborderbottomright, Me.skinwindowborderbottomright, Shifter.skinwindowborderbottomright, True) shortdisposecode(Skin_Loader.skinloaderskinwindowborderbottomleft, Me.skinwindowborderbottomleft, Shifter.skinwindowborderbottomleft, True) shortdisposecode(Skin_Loader.skinloaderskinpanelbutton, Me.skinpanelbutton, Shifter.skinpanelbutton, True) shortdisposecode(Skin_Loader.skinloaderskinminimizebutton, Me.skinminimizebutton, Shifter.skinminimizebutton, True) 'If Skin_Loader.Visible Then ' If Skin_Loader.preclosebutton.BackgroundImage Is Nothing Then Else Skin_Loader.preclosebutton.BackgroundImage.Dispose() ' If Skin_Loader.pretitlebar.BackgroundImage Is Nothing Then Else Skin_Loader.pretitlebar.BackgroundImage.Dispose() ' If Skin_Loader.pnldesktoppreview.BackgroundImage Is Nothing Then Else Skin_Loader.pnldesktoppreview.BackgroundImage.Dispose() ' If Skin_Loader.prerollupbutton.BackgroundImage Is Nothing Then Else Skin_Loader.prerollupbutton.BackgroundImage.Dispose() ' If Skin_Loader.prepgtoprcorner.BackgroundImage Is Nothing Then Else Skin_Loader.prepgtoprcorner.BackgroundImage.Dispose() ' If Skin_Loader.prepgtoplcorner.BackgroundImage Is Nothing Then Else Skin_Loader.prepgtoplcorner.BackgroundImage.Dispose() ' If Skin_Loader.predesktoppanel.BackgroundImage Is Nothing Then Else Skin_Loader.predesktoppanel.BackgroundImage.Dispose() ' If Skin_Loader.prepnlpanelbuttonholder.BackgroundImage Is Nothing Then Else Skin_Loader.prepnlpanelbuttonholder.BackgroundImage.Dispose() ' If Skin_Loader.pretimepanel.BackgroundImage Is Nothing Then Else Skin_Loader.pretimepanel.BackgroundImage.Dispose() ' If Skin_Loader.ApplicationsToolStripMenuItem.BackgroundImage Is Nothing Then Else Skin_Loader.ApplicationsToolStripMenuItem.BackgroundImage.Dispose() ' If Skin_Loader.prepgleft.BackgroundImage Is Nothing Then Else Skin_Loader.prepgleft.BackgroundImage.Dispose() ' If Skin_Loader.prepgright.BackgroundImage Is Nothing Then Else Skin_Loader.prepgright.BackgroundImage.Dispose() ' If Skin_Loader.prepgbottom.BackgroundImage Is Nothing Then Else Skin_Loader.prepgbottom.BackgroundImage.Dispose() ' If Skin_Loader.prepgbottomrcorner.BackgroundImage Is Nothing Then Else Skin_Loader.prepgbottomrcorner.BackgroundImage.Dispose() ' If Skin_Loader.prepgbottomlcorner.BackgroundImage Is Nothing Then Else Skin_Loader.prepgbottomlcorner.BackgroundImage.Dispose() ' If Skin_Loader.prepnlpanelbutton.BackgroundImage Is Nothing Then Else Skin_Loader.prepnlpanelbutton.BackgroundImage.Dispose() ' If Skin_Loader.preminimizebutton.BackgroundImage Is Nothing Then Else Skin_Loader.preminimizebutton.BackgroundImage.Dispose() Skin_Loader.preclosebutton.BackgroundImage = Nothing Skin_Loader.pretitlebar.BackgroundImage = Nothing Skin_Loader.pnldesktoppreview.BackgroundImage = Nothing Skin_Loader.prerollupbutton.BackgroundImage = Nothing Skin_Loader.prepgtoprcorner.BackgroundImage = Nothing Skin_Loader.prepgtoplcorner.BackgroundImage = Nothing Skin_Loader.predesktoppanel.BackgroundImage = Nothing Skin_Loader.prepnlpanelbuttonholder.BackgroundImage = Nothing Skin_Loader.pretimepanel.BackgroundImage = Nothing Skin_Loader.ApplicationsToolStripMenuItem.BackgroundImage = Nothing Skin_Loader.prepgleft.BackgroundImage = Nothing Skin_Loader.prepgright.BackgroundImage = Nothing Skin_Loader.prepgbottom.BackgroundImage = Nothing Skin_Loader.prepgbottomrcorner.BackgroundImage = Nothing Skin_Loader.prepgbottomlcorner.BackgroundImage = Nothing Skin_Loader.prepnlpanelbutton.BackgroundImage = Nothing Skin_Loader.preminimizebutton.BackgroundImage = Nothing 'End If 'If Shifter.preclosebutton.BackgroundImage Is Nothing Then Else Shifter.preclosebutton.BackgroundImage.Dispose() 'If Shifter.pretitlebar.BackgroundImage Is Nothing Then Else Shifter.pretitlebar.BackgroundImage.Dispose() 'If Shifter.pnldesktoppreview.BackgroundImage Is Nothing Then Else Shifter.pnldesktoppreview.BackgroundImage.Dispose() 'If Shifter.prerollupbutton.BackgroundImage Is Nothing Then Else Shifter.prerollupbutton.BackgroundImage.Dispose() 'If Shifter.prepgtoprcorner.BackgroundImage Is Nothing Then Else Shifter.prepgtoprcorner.BackgroundImage.Dispose() 'If Shifter.prepgtoplcorner.BackgroundImage Is Nothing Then Else Shifter.prepgtoplcorner.BackgroundImage.Dispose() 'If Shifter.predesktoppanel.BackgroundImage Is Nothing Then Else Shifter.predesktoppanel.BackgroundImage.Dispose() 'If Shifter.prepnlpanelbuttonholder.BackgroundImage Is Nothing Then Else Shifter.prepnlpanelbuttonholder.BackgroundImage.Dispose() 'If Shifter.pretimepanel.BackgroundImage Is Nothing Then Else Shifter.pretimepanel.BackgroundImage.Dispose() 'If Shifter.ApplicationsToolStripMenuItem.BackgroundImage Is Nothing Then Else Shifter.ApplicationsToolStripMenuItem.BackgroundImage.Dispose() 'If Shifter.prepgleft.BackgroundImage Is Nothing Then Else Shifter.prepgleft.BackgroundImage.Dispose() 'If Shifter.prepgright.BackgroundImage Is Nothing Then Else Shifter.prepgright.BackgroundImage.Dispose() 'If Shifter.prepgbottom.BackgroundImage Is Nothing Then Else Shifter.prepgbottom.BackgroundImage.Dispose() 'If Shifter.prepgbottomrcorner.BackgroundImage Is Nothing Then Else Shifter.prepgbottomrcorner.BackgroundImage.Dispose() 'If Shifter.prepgbottomlcorner.BackgroundImage Is Nothing Then Else Shifter.prepgbottomlcorner.BackgroundImage.Dispose() 'If Shifter.prepnlpanelbutton.BackgroundImage Is Nothing Then Else Shifter.prepnlpanelbutton.BackgroundImage.Dispose() 'If Shifter.preminimizebutton.BackgroundImage Is Nothing Then Else Shifter.preminimizebutton.BackgroundImage.Dispose() Shifter.preclosebutton.BackgroundImage = Nothing Shifter.pretitlebar.BackgroundImage = Nothing Shifter.pnldesktoppreview.BackgroundImage = Nothing Shifter.prerollupbutton.BackgroundImage = Nothing Shifter.prepgtoprcorner.BackgroundImage = Nothing Shifter.prepgtoplcorner.BackgroundImage = Nothing Shifter.predesktoppanel.BackgroundImage = Nothing Shifter.prepnlpanelbuttonholder.BackgroundImage = Nothing Shifter.pretimepanel.BackgroundImage = Nothing Shifter.ApplicationsToolStripMenuItem.BackgroundImage = Nothing Shifter.prepgleft.BackgroundImage = Nothing Shifter.prepgright.BackgroundImage = Nothing Shifter.prepgbottom.BackgroundImage = Nothing Shifter.prepgbottomrcorner.BackgroundImage = Nothing Shifter.prepgbottomlcorner.BackgroundImage = Nothing Shifter.prepnlpanelbutton.BackgroundImage = Nothing Shifter.preminimizebutton.BackgroundImage = Nothing ''prevent shifter red x images appearing If Shifter.titlebar.BackgroundImage Is Nothing Then Else Shifter.titlebar.BackgroundImage.Dispose() : Shifter.titlebar.BackgroundImage = Nothing If Shifter.pgtoplcorner.BackgroundImage Is Nothing Then Else Shifter.pgtoplcorner.BackgroundImage.Dispose() : Shifter.pgtoplcorner.BackgroundImage = Nothing If Shifter.pgtoprcorner.BackgroundImage Is Nothing Then Else Shifter.pgtoprcorner.BackgroundImage.Dispose() : Shifter.pgtoprcorner.BackgroundImage = Nothing If Shifter.closebutton.BackgroundImage Is Nothing Then Else Shifter.closebutton.BackgroundImage.Dispose() : Shifter.closebutton.BackgroundImage = Nothing If Shifter.minimizebutton.BackgroundImage Is Nothing Then Else Shifter.minimizebutton.BackgroundImage.Dispose() : Shifter.minimizebutton.BackgroundImage = Nothing If Shifter.rollupbutton.BackgroundImage Is Nothing Then Else Shifter.rollupbutton.BackgroundImage.Dispose() : Shifter.rollupbutton.BackgroundImage = Nothing 'If Clock.Visible = True Then ' If Clock.titlebar.BackgroundImage Is Nothing Then Else Clock.titlebar.BackgroundImage.Dispose() ' Clock.titlebar.BackgroundImage = Nothing 'End If 'If Me.BackgroundImage Is Nothing Then Else Me.BackgroundImage.Dispose() 'If Me.ApplicationsToolStripMenuItem.BackgroundImage Is Nothing Then Else Me.ApplicationsToolStripMenuItem.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonholder.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonholder.BackgroundImage.Dispose() 'If Me.desktoppanel.BackgroundImage Is Nothing Then Else Me.desktoppanel.BackgroundImage.Dispose() 'If Me.timepanel.BackgroundImage Is Nothing Then Else Me.timepanel.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonclock.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonclock.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonskinloader.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonskinloader.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonfileskimmer.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonfileskimmer.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonfileopener.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonfileopener.BackgroundImage.Dispose() 'If Me.pnlpanelbuttoninfobox.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttoninfobox.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonknowledgeinput.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonknowledgeinput.BackgroundImage.Dispose() 'If Me.pnlpanelbuttoncolourpicker.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttoncolourpicker.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonshiftorium.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonshiftorium.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonfilesaver.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonfilesaver.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonshifter.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonshifter.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonpong.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonpong.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonterminal.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonterminal.BackgroundImage.Dispose() 'If Me.pnlpanelbuttontextpad.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttontextpad.BackgroundImage.Dispose() 'If Me.pnlpanelbuttongraphicpicker.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttongraphicpicker.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonartpad.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonartpad.BackgroundImage.Dispose() 'If Me.pnlpanelbuttoncalculator.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttoncalculator.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonaudioplayer.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonaudioplayer.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonwebbrowser.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonwebbrowser.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonvideoplayer.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonvideoplayer.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonnamechanger.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonnamechanger.BackgroundImage.Dispose() 'If Me.pnlpanelbuttoniconmanager.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttoniconmanager.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonbitnotewallet.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonbitnotewallet.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonbitnotedigger.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonbitnotedigger.BackgroundImage.Dispose() 'If Me.pnlpanelbuttonskinshifter.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonskinshifter.BackgroundImage.Dispose() 'If Me.tbclockicon.BackgroundImage Is Nothing Then Else Me.tbclockicon.BackgroundImage.Dispose() 'If Me.tbskinloadericon.BackgroundImage Is Nothing Then Else Me.tbskinloadericon.BackgroundImage.Dispose() 'If Me.tbfileskimmericon.BackgroundImage Is Nothing Then Else Me.tbfileskimmericon.BackgroundImage.Dispose() 'If Me.tbfileopenericon.BackgroundImage Is Nothing Then Else Me.tbfileopenericon.BackgroundImage.Dispose() 'If Me.tbinfoboxicon.BackgroundImage Is Nothing Then Else Me.tbinfoboxicon.BackgroundImage.Dispose() 'If Me.tbknowledgeinputicon.BackgroundImage Is Nothing Then Else Me.tbknowledgeinputicon.BackgroundImage.Dispose() 'If Me.tbcolourpickericon.BackgroundImage Is Nothing Then Else Me.tbcolourpickericon.BackgroundImage.Dispose() 'If Me.tbshiftoriumicon.BackgroundImage Is Nothing Then Else Me.tbshiftoriumicon.BackgroundImage.Dispose() 'If Me.tbfilesavericon.BackgroundImage Is Nothing Then Else Me.tbfilesavericon.BackgroundImage.Dispose() 'If Me.tbshiftericon.BackgroundImage Is Nothing Then Else Me.tbshiftericon.BackgroundImage.Dispose() 'If Me.tbpongicon.BackgroundImage Is Nothing Then Else Me.tbpongicon.BackgroundImage.Dispose() 'If Me.tbterminalicon.BackgroundImage Is Nothing Then Else Me.tbterminalicon.BackgroundImage.Dispose() 'If Me.tbtextpadicon.BackgroundImage Is Nothing Then Else Me.tbtextpadicon.BackgroundImage.Dispose() 'If Me.tbgraphicpickericon.BackgroundImage Is Nothing Then Else Me.tbgraphicpickericon.BackgroundImage.Dispose() 'If Me.tbartpadicon.BackgroundImage Is Nothing Then Else Me.tbartpadicon.BackgroundImage.Dispose() 'If Me.tbcalculatoricon.BackgroundImage Is Nothing Then Else Me.tbcalculatoricon.BackgroundImage.Dispose() 'If Me.tbaudioplayericon.BackgroundImage Is Nothing Then Else Me.tbaudioplayericon.BackgroundImage.Dispose() 'If Me.tbwebbrowsericon.BackgroundImage Is Nothing Then Else Me.tbwebbrowsericon.BackgroundImage.Dispose() 'If Me.tbvideoplayericon.BackgroundImage Is Nothing Then Else Me.tbvideoplayericon.BackgroundImage.Dispose() 'If Me.tbnamechangericon.BackgroundImage Is Nothing Then Else Me.tbnamechangericon.BackgroundImage.Dispose() 'If Me.tbiconmanagericon.BackgroundImage Is Nothing Then Else Me.tbiconmanagericon.BackgroundImage.Dispose() 'If Me.tbbitnotewalleticon.BackgroundImage Is Nothing Then Else Me.tbbitnotewalleticon.BackgroundImage.Dispose() 'If Me.tbbitnotediggericon.BackgroundImage Is Nothing Then Else Me.tbbitnotediggericon.BackgroundImage.Dispose() 'If Me.tbskinshiftericon.BackgroundImage Is Nothing Then Else Me.tbskinshiftericon.BackgroundImage.Dispose() Me.BackgroundImage = Nothing Me.ApplicationsToolStripMenuItem.BackgroundImage = Nothing Me.pnlpanelbuttonholder.BackgroundImage = Nothing Me.desktoppanel.BackgroundImage = Nothing Me.timepanel.BackgroundImage = Nothing Me.pnlpanelbuttonclock.BackgroundImage = Nothing Me.pnlpanelbuttonskinloader.BackgroundImage = Nothing Me.pnlpanelbuttonfileskimmer.BackgroundImage = Nothing Me.pnlpanelbuttonfileopener.BackgroundImage = Nothing Me.pnlpanelbuttoninfobox.BackgroundImage = Nothing Me.pnlpanelbuttonknowledgeinput.BackgroundImage = Nothing Me.pnlpanelbuttoncolourpicker.BackgroundImage = Nothing Me.pnlpanelbuttonshiftorium.BackgroundImage = Nothing Me.pnlpanelbuttonfilesaver.BackgroundImage = Nothing Me.pnlpanelbuttonshifter.BackgroundImage = Nothing Me.pnlpanelbuttonpong.BackgroundImage = Nothing Me.pnlpanelbuttonterminal.BackgroundImage = Nothing Me.pnlpanelbuttontextpad.BackgroundImage = Nothing Me.pnlpanelbuttongraphicpicker.BackgroundImage = Nothing Me.pnlpanelbuttonartpad.BackgroundImage = Nothing Me.pnlpanelbuttoncalculator.BackgroundImage = Nothing Me.pnlpanelbuttonaudioplayer.BackgroundImage = Nothing Me.pnlpanelbuttonwebbrowser.BackgroundImage = Nothing Me.pnlpanelbuttonvideoplayer.BackgroundImage = Nothing Me.pnlpanelbuttonnamechanger.BackgroundImage = Nothing Me.pnlpanelbuttoniconmanager.BackgroundImage = Nothing Me.pnlpanelbuttonbitnotewallet.BackgroundImage = Nothing Me.pnlpanelbuttonbitnotedigger.BackgroundImage = Nothing Me.pnlpanelbuttonskinshifter.BackgroundImage = Nothing Me.pnlpanelbuttonshiftnet.BackgroundImage = Nothing Me.pnlpanelbuttondownloader.BackgroundImage = Nothing Me.tbclockicon.BackgroundImage = Nothing Me.tbskinloadericon.BackgroundImage = Nothing Me.tbfileskimmericon.BackgroundImage = Nothing Me.tbfileopenericon.BackgroundImage = Nothing Me.tbinfoboxicon.BackgroundImage = Nothing Me.tbknowledgeinputicon.BackgroundImage = Nothing Me.tbcolourpickericon.BackgroundImage = Nothing Me.tbshiftoriumicon.BackgroundImage = Nothing Me.tbfilesavericon.BackgroundImage = Nothing Me.tbshiftericon.BackgroundImage = Nothing Me.tbpongicon.BackgroundImage = Nothing Me.tbterminalicon.BackgroundImage = Nothing Me.tbtextpadicon.BackgroundImage = Nothing Me.tbgraphicpickericon.BackgroundImage = Nothing Me.tbartpadicon.BackgroundImage = Nothing Me.tbcalculatoricon.BackgroundImage = Nothing Me.tbaudioplayericon.BackgroundImage = Nothing Me.tbwebbrowsericon.BackgroundImage = Nothing Me.tbvideoplayericon.BackgroundImage = Nothing Me.tbnamechangericon.BackgroundImage = Nothing Me.tbiconmanagericon.BackgroundImage = Nothing Me.tbbitnotewalleticon.BackgroundImage = Nothing Me.tbbitnotediggericon.BackgroundImage = Nothing Me.tbskinshiftericon.BackgroundImage = Nothing Me.tbshiftneticon.BackgroundImage = Nothing Me.tbdownloadericon.BackgroundImage = Nothing GC.Collect() While My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Current\") Try If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Current\") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Skins\Current\", FileIO.DeleteDirectoryOption.DeleteAllContents) Catch ex As Exception End Try End While My.Computer.FileSystem.CreateDirectory("C:\ShiftOS\Shiftum42\Skins\Current\") Case "skinloaderemovepreview" shortdisposecode(Skin_Loader.skinloaderskinclosebutton, Me.skinclosebutton, Shifter.skinclosebutton, False) shortdisposecode(Skin_Loader.skinloaderskintitlebar, Me.skintitlebar, Shifter.shifterskintitlebar, False) shortdisposecode(Skin_Loader.skinloaderskindesktopbackground, Me.skindesktopbackground, Shifter.skindesktopbackground, False) shortdisposecode(Skin_Loader.skinloaderskinrollupbutton, Me.skinrollupbutton, Shifter.skinrollupbutton, False) shortdisposecode(Skin_Loader.skinloaderskintitlebarrightcorner, Me.skintitlebarrightcorner, Shifter.skintitlebarrightcorner, False) shortdisposecode(Skin_Loader.skinloaderskintitlebarleftcorner, Me.skintitlebarleftcorner, Shifter.skintitlebarleftcorner, False) shortdisposecode(Skin_Loader.skinloaderskindesktoppanel, Me.skindesktoppanel, Shifter.skindesktoppanel, False) shortdisposecode(Skin_Loader.skinloaderskindesktoppaneltime, Me.skindesktoppaneltime, Shifter.skindesktoppaneltime, False) shortdisposecode(Skin_Loader.skinloaderskinapplauncherbutton, Me.skinapplauncherbutton, Shifter.skinapplauncherbutton, False) shortdisposecode(Skin_Loader.skinloaderskinwindowborderleft, Me.skinwindowborderleft, Shifter.skinwindowborderleft, False) shortdisposecode(Skin_Loader.skinloaderskinwindowborderright, Me.skinwindowborderright, Shifter.skinwindowborderright, False) shortdisposecode(Skin_Loader.skinloaderskinwindowborderbottom, Me.skinwindowborderbottom, Shifter.skinwindowborderbottom, False) shortdisposecode(Skin_Loader.skinloaderskinwindowborderbottomright, Me.skinwindowborderbottomright, Shifter.skinwindowborderbottomright, False) shortdisposecode(Skin_Loader.skinloaderskinwindowborderbottomleft, Me.skinwindowborderbottomleft, Shifter.skinwindowborderbottomleft, False) shortdisposecode(Skin_Loader.skinloaderskinpanelbutton, Me.skinpanelbutton, Shifter.skinpanelbutton, False) shortdisposecode(Skin_Loader.skinloaderskinminimizebutton, Me.skinminimizebutton, Shifter.skinminimizebutton, False) 'If Skin_Loader.preclosebutton.BackgroundImage Is Nothing Then Else Skin_Loader.preclosebutton.BackgroundImage.Dispose() 'If Skin_Loader.pretitlebar.BackgroundImage Is Nothing Then Else Skin_Loader.pretitlebar.BackgroundImage.Dispose() 'If Skin_Loader.pnldesktoppreview.BackgroundImage Is Nothing Then Else Skin_Loader.pnldesktoppreview.BackgroundImage.Dispose() 'If Skin_Loader.prerollupbutton.BackgroundImage Is Nothing Then Else Skin_Loader.prerollupbutton.BackgroundImage.Dispose() 'If Skin_Loader.prepgtoprcorner.BackgroundImage Is Nothing Then Else Skin_Loader.prepgtoprcorner.BackgroundImage.Dispose() 'If Skin_Loader.prepgtoplcorner.BackgroundImage Is Nothing Then Else Skin_Loader.prepgtoplcorner.BackgroundImage.Dispose() 'If Skin_Loader.predesktoppanel.BackgroundImage Is Nothing Then Else Skin_Loader.predesktoppanel.BackgroundImage.Dispose() 'If Skin_Loader.prepnlpanelbuttonholder.BackgroundImage Is Nothing Then Else Skin_Loader.prepnlpanelbuttonholder.BackgroundImage.Dispose() 'If Skin_Loader.pretimepanel.BackgroundImage Is Nothing Then Else Skin_Loader.pretimepanel.BackgroundImage.Dispose() 'If Skin_Loader.ApplicationsToolStripMenuItem.BackgroundImage Is Nothing Then Else Skin_Loader.ApplicationsToolStripMenuItem.BackgroundImage.Dispose() 'If Skin_Loader.prepgleft.BackgroundImage Is Nothing Then Else Skin_Loader.prepgleft.BackgroundImage.Dispose() 'If Skin_Loader.prepgright.BackgroundImage Is Nothing Then Else Skin_Loader.prepgright.BackgroundImage.Dispose() 'If Skin_Loader.prepgbottom.BackgroundImage Is Nothing Then Else Skin_Loader.prepgbottom.BackgroundImage.Dispose() 'If Skin_Loader.prepgbottomrcorner.BackgroundImage Is Nothing Then Else Skin_Loader.prepgbottomrcorner.BackgroundImage.Dispose() 'If Skin_Loader.prepgbottomlcorner.BackgroundImage Is Nothing Then Else Skin_Loader.prepgbottomlcorner.BackgroundImage.Dispose() 'If Skin_Loader.prepnlpanelbutton.BackgroundImage Is Nothing Then Else Skin_Loader.prepnlpanelbutton.BackgroundImage.Dispose() 'If Skin_Loader.preminimizebutton.BackgroundImage Is Nothing Then Else Skin_Loader.preminimizebutton.BackgroundImage.Dispose() Skin_Loader.preclosebutton.BackgroundImage = Nothing Skin_Loader.pretitlebar.BackgroundImage = Nothing Skin_Loader.pnldesktoppreview.BackgroundImage = Nothing Skin_Loader.prerollupbutton.BackgroundImage = Nothing Skin_Loader.prepgtoprcorner.BackgroundImage = Nothing Skin_Loader.prepgtoplcorner.BackgroundImage = Nothing Skin_Loader.predesktoppanel.BackgroundImage = Nothing Skin_Loader.prepnlpanelbuttonholder.BackgroundImage = Nothing Skin_Loader.pretimepanel.BackgroundImage = Nothing Skin_Loader.ApplicationsToolStripMenuItem.BackgroundImage = Nothing Skin_Loader.prepgleft.BackgroundImage = Nothing Skin_Loader.prepgright.BackgroundImage = Nothing Skin_Loader.prepgbottom.BackgroundImage = Nothing Skin_Loader.prepgbottomrcorner.BackgroundImage = Nothing Skin_Loader.prepgbottomlcorner.BackgroundImage = Nothing Skin_Loader.prepnlpanelbutton.BackgroundImage = Nothing Skin_Loader.preminimizebutton.BackgroundImage = Nothing For i = 0 To 50 Skin_Loader.skinloaderskinimages(i) = "" Next GC.Collect() While My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Preview\") Try If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Preview\") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Skins\Preview\", FileIO.DeleteDirectoryOption.DeleteAllContents) Catch ex As Exception MessageBox.Show(ex.Message) End Try End While My.Computer.FileSystem.CreateDirectory("C:\ShiftOS\Shiftum42\Skins\Preview\") End Select End Sub Private Sub shortdisposecode(ByVal skinloadervarible As Array, ByVal shiftosdesktopvarible As Array, ByVal shiftervarible As Array, ByVal includedesktop As Boolean) If includedesktop = True Then If shiftosdesktopvarible(0) Is Nothing Then Else shiftosdesktopvarible(0).Dispose() If shiftosdesktopvarible(1) Is Nothing Then Else shiftosdesktopvarible(1).Dispose() If shiftosdesktopvarible(2) Is Nothing Then Else shiftosdesktopvarible(2).Dispose() shiftosdesktopvarible(0) = Nothing shiftosdesktopvarible(1) = Nothing shiftosdesktopvarible(2) = Nothing End If If Shifter.Visible Then If shiftervarible(0) Is Nothing Then Else shiftervarible(0).Dispose() If shiftervarible(1) Is Nothing Then Else shiftervarible(1).Dispose() If shiftervarible(2) Is Nothing Then Else shiftervarible(2).Dispose() shiftervarible(0) = Nothing shiftervarible(1) = Nothing shiftervarible(2) = Nothing End If If Skin_Loader.Visible Then If skinloadervarible(0) Is Nothing Then Else skinloadervarible(0).Dispose() If skinloadervarible(1) Is Nothing Then Else skinloadervarible(1).Dispose() If skinloadervarible(2) Is Nothing Then Else skinloadervarible(2).Dispose() skinloadervarible(0) = Nothing skinloadervarible(1) = Nothing skinloadervarible(2) = Nothing End If End Sub Public Sub setupdesktop() If unitymode = False Then Me.BackColor = desktopbackgroundcolour If skindesktopbackground(0) Is Nothing Then Me.BackgroundImage = Nothing Else Me.BackgroundImage = skindesktopbackground(0) Me.BackgroundImageLayout = skindesktopbackgroundstyle Else Me.BackColor = globaltransparencycolour Me.BackgroundImage = Nothing Me.TransparencyKey = globaltransparencycolour End If shiftwindowsontop() ToolStripManager.Renderer = New MyToolStripRenderer() If boughtdesktoppanel = True Then If skindesktoppanel(0) Is Nothing Then desktoppanel.BackColor = desktoppanelcolour desktoppanel.BackgroundImage = Nothing Else desktoppanel.BackgroundImage = skindesktoppanel(0) desktoppanel.BackgroundImageLayout = skindesktoppanelstyle desktoppanel.BackColor = Color.Transparent End If desktoppanel.Size = New Size(desktoppanel.Size.Width, desktoppanelheight) Select Case desktoppanelposition Case "Top" desktoppanel.Dock = DockStyle.Top desktopappmenu.Dock = DockStyle.Top Case "Bottom" desktoppanel.Dock = DockStyle.Bottom desktopappmenu.Dock = DockStyle.Bottom End Select desktoppanel.Show() Else desktoppanel.Hide() End If If boughtapplaunchermenu = True Then ApplicationsToolStripMenuItem.Font = New Font(applicationbuttontextfont, applicationbuttontextsize, applicationbuttontextstyle) ApplicationsToolStripMenuItem.Text = applicationlaunchername KnowledgeInputToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) ShiftoriumToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) ClockToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) ShifterToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) TerminalToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) PongToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) FileSkimmerToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) TextPadToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) SkinLoaderToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) ArtpadToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) CalculatorToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) AudioplayerToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) WebBrowserToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) VideoplayerToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) NameChangerToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) IconManagerToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) BitnoteWalletToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) BitnoteDiggerToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) SkinShifterToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) ShiftnetToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) ShutdownToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) desktopappmenu.ImageScalingSize = New Size(launchericonsize, launchericonsize) KnowledgeInputToolStripMenuItem.Text = knowledgeinputname ShiftoriumToolStripMenuItem.Text = shiftoriumname ClockToolStripMenuItem.Text = clockname ShifterToolStripMenuItem.Text = shiftername TerminalToolStripMenuItem.Text = terminalname PongToolStripMenuItem.Text = pongname FileSkimmerToolStripMenuItem.Text = fileskimmername TextPadToolStripMenuItem.Text = textpadname SkinLoaderToolStripMenuItem.Text = skinloadername ArtpadToolStripMenuItem.Text = artpadname CalculatorToolStripMenuItem.Text = calculatorname AudioplayerToolStripMenuItem.Text = audioplayername WebBrowserToolStripMenuItem.Text = webbrowsername VideoplayerToolStripMenuItem.Text = videoplayername NameChangerToolStripMenuItem.Text = namechangername IconManagerToolStripMenuItem.Text = iconmanagername BitnoteWalletToolStripMenuItem.Text = bitnotewalletname BitnoteDiggerToolStripMenuItem.Text = bitnotediggername SkinShifterToolStripMenuItem.Text = skinshiftername ShiftnetToolStripMenuItem.Text = shiftnetname KnowledgeInputToolStripMenuItem.ForeColor = applicationsbuttontextcolour ShiftoriumToolStripMenuItem.ForeColor = applicationsbuttontextcolour ClockToolStripMenuItem.ForeColor = applicationsbuttontextcolour ShiftoriumToolStripMenuItem.ForeColor = applicationsbuttontextcolour ShifterToolStripMenuItem.ForeColor = applicationsbuttontextcolour TerminalToolStripMenuItem.ForeColor = applicationsbuttontextcolour PongToolStripMenuItem.ForeColor = applicationsbuttontextcolour FileSkimmerToolStripMenuItem.ForeColor = applicationsbuttontextcolour TextPadToolStripMenuItem.ForeColor = applicationsbuttontextcolour SkinLoaderToolStripMenuItem.ForeColor = applicationsbuttontextcolour ArtpadToolStripMenuItem.ForeColor = applicationsbuttontextcolour CalculatorToolStripMenuItem.ForeColor = applicationsbuttontextcolour AudioplayerToolStripMenuItem.ForeColor = applicationsbuttontextcolour WebBrowserToolStripMenuItem.ForeColor = applicationsbuttontextcolour VideoplayerToolStripMenuItem.ForeColor = applicationsbuttontextcolour NameChangerToolStripMenuItem.ForeColor = applicationsbuttontextcolour IconManagerToolStripMenuItem.ForeColor = applicationsbuttontextcolour BitnoteWalletToolStripMenuItem.ForeColor = applicationsbuttontextcolour BitnoteDiggerToolStripMenuItem.ForeColor = applicationsbuttontextcolour SkinShifterToolStripMenuItem.ForeColor = applicationsbuttontextcolour ShiftnetToolStripMenuItem.ForeColor = applicationsbuttontextcolour ShutdownToolStripMenuItem.ForeColor = applicationsbuttontextcolour applaunchermenuholder.Size = ApplicationsToolStripMenuItem.Size ApplicationsToolStripMenuItem.ForeColor = applicationsbuttontextcolour ApplicationsToolStripMenuItem.BackColor = applauncherbuttoncolour applaunchermenuholder.Height = applicationbuttonheight desktopappmenu.Height = applicationbuttonheight ApplicationsToolStripMenuItem.Height = applicationbuttonheight ApplicationsToolStripMenuItem.Visible = True TerminalToolStripMenuItem.Visible = True applaunchermenuholder.Width = applaunchermenuholderwidth desktopappmenu.Width = applaunchermenuholderwidth ApplicationsToolStripMenuItem.Width = applaunchermenuholderwidth If skinapplauncherbutton(0) Is Nothing Then ApplicationsToolStripMenuItem.BackColor = applauncherbuttoncolour ApplicationsToolStripMenuItem.BackgroundImage = Nothing Else ApplicationsToolStripMenuItem.BackColor = Color.Transparent desktopappmenu.BackColor = Color.Transparent ApplicationsToolStripMenuItem.BackgroundImage = skinapplauncherbutton(0) ApplicationsToolStripMenuItem.Text = "" End If Else ApplicationsToolStripMenuItem.Visible = False End If If boughtalclock = True Then ClockToolStripMenuItem.Visible = True If boughtclockicon = True Then ClockToolStripMenuItem.Image = clockiconlauncher End If Else ClockToolStripMenuItem.Visible = False End If If boughtalknowledgeinput = True Then KnowledgeInputToolStripMenuItem.Visible = True If boughtknowledgeinputicon = True Then KnowledgeInputToolStripMenuItem.Image = knowledgeinputiconlauncher End If Else KnowledgeInputToolStripMenuItem.Visible = False End If If boughtalshiftorium = True Then ShiftoriumToolStripMenuItem.Visible = True If boughtshiftoriumicon = True Then ShiftoriumToolStripMenuItem.Image = shiftoriumiconlauncher End If Else ShiftoriumToolStripMenuItem.Visible = False End If If boughtalshifter = True Then ShifterToolStripMenuItem.Visible = True If boughtshiftericon = True Then ShifterToolStripMenuItem.Image = shiftericonlauncher End If Else ShifterToolStripMenuItem.Visible = False End If If boughtalpong = True Then PongToolStripMenuItem.Visible = True If boughtpongicon = True Then PongToolStripMenuItem.Image = pongiconlauncher End If Else PongToolStripMenuItem.Visible = False End If If boughtalfileskimmer = True Then FileSkimmerToolStripMenuItem.Visible = True If boughtfileskimmericon = True Then FileSkimmerToolStripMenuItem.Image = fileskimmericonlauncher End If Else FileSkimmerToolStripMenuItem.Visible = False End If If boughtaltextpad = True Then TextPadToolStripMenuItem.Visible = True If boughttextpadicon = True Then TextPadToolStripMenuItem.Image = textpadiconlauncher End If Else TextPadToolStripMenuItem.Visible = False End If If boughtskinning = True Then SkinLoaderToolStripMenuItem.Visible = True SkinLoaderToolStripMenuItem.Image = skinloadericonlauncher Else SkinLoaderToolStripMenuItem.Visible = False End If If boughtalartpad = True Then ArtpadToolStripMenuItem.Visible = True If boughtartpadicon = True Then ArtpadToolStripMenuItem.Image = artpadiconlauncher End If Else ArtpadToolStripMenuItem.Visible = False End If If boughtcalculator = True Then CalculatorToolStripMenuItem.Visible = True If boughtknowledgeinputicon = True Then CalculatorToolStripMenuItem.Image = calculatoriconlauncher End If Else CalculatorToolStripMenuItem.Visible = False End If If boughtaudioplayer = True Then AudioplayerToolStripMenuItem.Visible = True If boughtknowledgeinputicon = True Then AudioplayerToolStripMenuItem.Image = audioplayericonlauncher End If Else AudioplayerToolStripMenuItem.Visible = False End If If boughtwebbrowser = True Then WebBrowserToolStripMenuItem.Visible = True If boughtknowledgeinputicon = True Then WebBrowserToolStripMenuItem.Image = webbrowsericonlauncher End If Else WebBrowserToolStripMenuItem.Visible = False End If If boughtvideoplayer = True Then VideoplayerToolStripMenuItem.Visible = True If boughtknowledgeinputicon = True Then VideoplayerToolStripMenuItem.Image = videoplayericonlauncher End If Else VideoplayerToolStripMenuItem.Visible = False End If If boughtnamechanger = True Then NameChangerToolStripMenuItem.Visible = True If boughtknowledgeinputicon = True Then NameChangerToolStripMenuItem.Image = namechangericonlauncher End If Else NameChangerToolStripMenuItem.Visible = False End If If boughticonmanager = True Then IconManagerToolStripMenuItem.Visible = True If boughtknowledgeinputicon = True Then IconManagerToolStripMenuItem.Image = iconmanagericonlauncher End If Else IconManagerToolStripMenuItem.Visible = False End If If boughtbitnotewallet = True Then BitnoteWalletToolStripMenuItem.Visible = True If boughtknowledgeinputicon = True Then BitnoteWalletToolStripMenuItem.Image = bitnotewalleticonlauncher End If Else BitnoteWalletToolStripMenuItem.Visible = False End If If boughtbitnotedigger = True Then BitnoteDiggerToolStripMenuItem.Visible = True If boughtknowledgeinputicon = True Then BitnoteDiggerToolStripMenuItem.Image = bitnotediggericonlauncher End If Else BitnoteDiggerToolStripMenuItem.Visible = False End If If boughtskinshifter = True Then SkinShifterToolStripMenuItem.Visible = True If boughtknowledgeinputicon = True Then SkinShifterToolStripMenuItem.Image = skinshiftericonlauncher End If Else SkinShifterToolStripMenuItem.Visible = False End If If boughtshiftnet = True Then SkinShifterToolStripMenuItem.Visible = True If boughtshiftneticon = True Then ShiftnetToolStripMenuItem.Image = shiftneticonlauncher End If Else ShiftnetToolStripMenuItem.Visible = False End If If boughtdesktoppanelclock = True Then setclocktime() paneltimetext.ForeColor = clocktextcolour If skindesktoppaneltime(0) Is Nothing Then timepanel.BackColor = clockbackgroundcolor timepanel.BackgroundImage = Nothing Else timepanel.BackColor = Color.Transparent timepanel.BackgroundImage = skindesktoppaneltime(0) timepanel.BackgroundImageLayout = skindesktoppaneltimestyle End If paneltimetext.Font = New Font(panelclocktextfont, panelclocktextsize, panelclocktextstyle) timepanel.Size = New Size(paneltimetext.Width + 3, timepanel.Height) paneltimetext.Location = New Point(0, panelclocktexttop) timepanel.Show() Else timepanel.Hide() End If If boughtapplaunchershutdown = True Then ShutdownToolStripMenuItem.Visible = True ToolStripSeparator1.Visible = True If boughtshutdownicon = True Then ShutdownToolStripMenuItem.Image = shutdowniconlauncher End If Else ShutdownToolStripMenuItem.Visible = False ToolStripSeparator1.Visible = False End If If boughtterminalicon = True Then TerminalToolStripMenuItem.Image = terminaliconlauncher End If If boughttitlebar = False Then titlebarheight = 0 End If If boughtwindowborders = False Then windowbordersize = 0 End If setuppanelbuttons() End Sub Public Sub setuppanelbuttons() If boughtpanelbuttons Then If Knowledge_Input.Visible Then pnlpanelbuttonknowledgeinput.Show() Else pnlpanelbuttonknowledgeinput.Hide() If Shiftorium.Visible Then pnlpanelbuttonshiftorium.Show() Else pnlpanelbuttonshiftorium.Hide() If Clock.Visible Then pnlpanelbuttonclock.Show() Else pnlpanelbuttonclock.Hide() If Shifter.Visible Then pnlpanelbuttonshifter.Show() Else pnlpanelbuttonshifter.Hide() If Colour_Picker.Visible Then pnlpanelbuttoncolourpicker.Show() Else pnlpanelbuttoncolourpicker.Hide() If infobox.Visible Then pnlpanelbuttoninfobox.Show() Else pnlpanelbuttoninfobox.Hide() If Pong.Visible Then pnlpanelbuttonpong.Show() Else pnlpanelbuttonpong.Hide() If File_Skimmer.Visible Then pnlpanelbuttonfileskimmer.Show() Else pnlpanelbuttonfileskimmer.Hide() If File_Opener.Visible Then pnlpanelbuttonfileopener.Show() Else pnlpanelbuttonfileopener.Hide() If File_Saver.Visible Then pnlpanelbuttonfilesaver.Show() Else pnlpanelbuttonfilesaver.Hide() If TextPad.Visible Then pnlpanelbuttontextpad.Show() Else pnlpanelbuttontextpad.Hide() If Graphic_Picker.Visible Then pnlpanelbuttongraphicpicker.Show() Else pnlpanelbuttongraphicpicker.Hide() If Skin_Loader.Visible Then pnlpanelbuttonskinloader.Show() Else pnlpanelbuttonskinloader.Hide() If ArtPad.Visible Then pnlpanelbuttonartpad.Show() Else pnlpanelbuttonartpad.Hide() If Calculator.Visible Then pnlpanelbuttoncalculator.Show() Else pnlpanelbuttoncalculator.Hide() If Audio_Player.Visible Then pnlpanelbuttonaudioplayer.Show() Else pnlpanelbuttonaudioplayer.Hide() If Web_Browser.Visible Then pnlpanelbuttonwebbrowser.Show() Else pnlpanelbuttonwebbrowser.Hide() If Video_Player.Visible Then pnlpanelbuttonvideoplayer.Show() Else pnlpanelbuttonvideoplayer.Hide() If Name_Changer.Visible Then pnlpanelbuttonnamechanger.Show() Else pnlpanelbuttonnamechanger.Hide() If Icon_Manager.Visible Then pnlpanelbuttoniconmanager.Show() Else pnlpanelbuttoniconmanager.Hide() If Bitnote_Wallet.Visible Then pnlpanelbuttonbitnotewallet.Show() Else pnlpanelbuttonbitnotewallet.Hide() If Bitnote_Digger.Visible Then pnlpanelbuttonbitnotedigger.Show() Else pnlpanelbuttonbitnotedigger.Hide() If Skinshifter.Visible Then pnlpanelbuttonskinshifter.Show() Else pnlpanelbuttonskinshifter.Hide() If Shiftnet.Visible Then pnlpanelbuttonshiftnet.Show() Else pnlpanelbuttonshiftnet.Hide() If Downloader.Visible Then pnlpanelbuttondownloader.Show() Else pnlpanelbuttondownloader.Hide() If Terminal.Visible Then pnlpanelbuttonterminal.Show() Else pnlpanelbuttonterminal.Hide() tbknowledgeinputicon.Image = knowledgeinputiconpanelbutton.Clone tbknowledgeinputtext.Text = knowledgeinputname tbshiftoriumtext.Text = shiftoriumname tbclocktext.Text = clockname tbshiftertext.Text = shiftername tbcolourpickertext.Text = colourpickername tbpongtext.Text = pongname tbfileskimmertext.Text = fileskimmername tbfileopenertext.Text = fileopenername tbfilesavertext.Text = filesavername tbtextpadtext.Text = textpadname tbgraphicpickertext.Text = graphicpickername tbskinloadertext.Text = skinloadername tbartpadtext.Text = artpadname tbcalculatortext.Text = calculatorname tbaudioplayertext.Text = audioplayername tbwebbrowsertext.Text = webbrowsername tbvideoplayertext.Text = videoplayername tbnamechangertext.Text = namechangername tbiconmanagertext.Text = iconmanagername tbbitnotewallettext.Text = bitnotewalletname tbbitnotediggertext.Text = bitnotediggername tbskinshiftertext.Text = skinshiftername tbshiftnettext.Text = shiftnetname tbdownloadertext.Text = downloadername tbterminaltext.Text = terminalname pnlpanelbuttonknowledgeinput.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttonshiftorium.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttonclock.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttonshifter.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttoncolourpicker.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttoninfobox.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttonpong.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttonfileskimmer.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttonfileopener.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttonfilesaver.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttontextpad.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttongraphicpicker.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttonskinloader.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttonartpad.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttoncalculator.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttonaudioplayer.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttonwebbrowser.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttonvideoplayer.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttonnamechanger.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttoniconmanager.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttonbitnotewallet.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttonbitnotedigger.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttonskinshifter.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttonshiftnet.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttondownloader.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) pnlpanelbuttonterminal.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) setpanelbuttonappearnce(pnlpanelbuttonknowledgeinput, tbknowledgeinputicon, tbknowledgeinputtext, False) setpanelbuttonappearnce(pnlpanelbuttonshiftorium, tbshiftoriumicon, tbshiftoriumtext, False) setpanelbuttonappearnce(pnlpanelbuttonclock, tbclockicon, tbclocktext, False) setpanelbuttonappearnce(pnlpanelbuttonshifter, tbshiftericon, tbshiftertext, False) setpanelbuttonappearnce(pnlpanelbuttoncolourpicker, tbcolourpickericon, tbcolourpickertext, False) setpanelbuttonappearnce(pnlpanelbuttoninfobox, tbinfoboxicon, tbinfoboxtext, False) setpanelbuttonappearnce(pnlpanelbuttonpong, tbpongicon, tbpongtext, False) setpanelbuttonappearnce(pnlpanelbuttonfileskimmer, tbfileskimmericon, tbfileskimmertext, False) setpanelbuttonappearnce(pnlpanelbuttonfileopener, tbfileopenericon, tbfileopenertext, False) setpanelbuttonappearnce(pnlpanelbuttonfilesaver, tbfilesavericon, tbfilesavertext, False) setpanelbuttonappearnce(pnlpanelbuttontextpad, tbtextpadicon, tbtextpadtext, False) setpanelbuttonappearnce(pnlpanelbuttongraphicpicker, tbgraphicpickericon, tbgraphicpickertext, False) setpanelbuttonappearnce(pnlpanelbuttonskinloader, tbskinloadericon, tbskinloadertext, False) setpanelbuttonappearnce(pnlpanelbuttonartpad, tbartpadicon, tbartpadtext, False) setpanelbuttonappearnce(pnlpanelbuttoncalculator, tbcalculatoricon, tbcalculatortext, False) setpanelbuttonappearnce(pnlpanelbuttonaudioplayer, tbaudioplayericon, tbaudioplayertext, False) setpanelbuttonappearnce(pnlpanelbuttonwebbrowser, tbwebbrowsericon, tbwebbrowsertext, False) setpanelbuttonappearnce(pnlpanelbuttonvideoplayer, tbvideoplayericon, tbvideoplayertext, False) setpanelbuttonappearnce(pnlpanelbuttonnamechanger, tbnamechangericon, tbnamechangertext, False) setpanelbuttonappearnce(pnlpanelbuttoniconmanager, tbiconmanagericon, tbiconmanagertext, False) setpanelbuttonappearnce(pnlpanelbuttonbitnotewallet, tbbitnotewalleticon, tbbitnotewallettext, False) setpanelbuttonappearnce(pnlpanelbuttonbitnotedigger, tbbitnotediggericon, tbbitnotediggertext, False) setpanelbuttonappearnce(pnlpanelbuttonskinshifter, tbskinshiftericon, tbskinshiftertext, False) setpanelbuttonappearnce(pnlpanelbuttonshiftnet, tbshiftneticon, tbshiftnettext, False) setpanelbuttonappearnce(pnlpanelbuttondownloader, tbdownloadericon, tbdownloadertext, False) setpanelbuttonappearnce(pnlpanelbuttonterminal, tbterminalicon, tbterminaltext, False) setuppanelbuttonicons(tbknowledgeinputicon, knowledgeinputiconpanelbutton) setuppanelbuttonicons(tbshiftoriumicon, shiftoriumiconpanelbutton) setuppanelbuttonicons(tbclockicon, clockiconpanelbutton) setuppanelbuttonicons(tbshiftericon, shiftericonpanelbutton) setuppanelbuttonicons(tbcolourpickericon, colourpickericonpanelbutton) setuppanelbuttonicons(tbinfoboxicon, infoboxiconpanelbutton) setuppanelbuttonicons(tbpongicon, pongiconpanelbutton) setuppanelbuttonicons(tbfileskimmericon, fileskimmericonpanelbutton) setuppanelbuttonicons(tbfileopenericon, fileopenericonpanelbutton) setuppanelbuttonicons(tbfilesavericon, filesavericonpanelbutton) setuppanelbuttonicons(tbtextpadicon, textpadiconpanelbutton) setuppanelbuttonicons(tbgraphicpickericon, graphicpickericonpanelbutton) setuppanelbuttonicons(tbskinloadericon, skinloadericonpanelbutton) setuppanelbuttonicons(tbartpadicon, artpadiconpanelbutton) setuppanelbuttonicons(tbcalculatoricon, calculatoriconpanelbutton) setuppanelbuttonicons(tbaudioplayericon, audioplayericonpanelbutton) setuppanelbuttonicons(tbwebbrowsericon, webbrowsericonpanelbutton) setuppanelbuttonicons(tbvideoplayericon, videoplayericonpanelbutton) setuppanelbuttonicons(tbnamechangericon, namechangericonpanelbutton) setuppanelbuttonicons(tbiconmanagericon, iconmanagericonpanelbutton) setuppanelbuttonicons(tbbitnotewalleticon, bitnotewalleticonpanelbutton) setuppanelbuttonicons(tbbitnotediggericon, bitnotediggericonpanelbutton) setuppanelbuttonicons(tbskinshiftericon, skinshiftericonpanelbutton) setuppanelbuttonicons(tbshiftneticon, shiftneticonpanelbutton) setuppanelbuttonicons(tbdownloadericon, downloadericonpanelbutton) setuppanelbuttonicons(tbterminalicon, terminaliconpanelbutton) pnlpanelbuttonholder.Padding = New Padding(panelbuttoninitialgap, 0, 0, 0) End If End Sub Public Sub setuppanelbuttonicons(ByVal tbicon As PictureBox, ByVal image As Image) tbicon.Image = image tbicon.Size = New Size(panelbuttoniconsize, panelbuttoniconsize) End Sub Public Sub setpanelbuttonappearnce(ByVal panelbutton As Panel, ByVal icon As PictureBox, ByVal text As Label, ByVal sendback As Boolean) If sendback = True Then panelbutton.SendToBack() icon.Location = New Point(panelbuttoniconside, panelbuttonicontop) icon.Size = New Size(panelbuttoniconsize, panelbuttoniconsize) panelbutton.Size = New Size(panelbuttonwidth, panelbuttonheight) panelbutton.BackColor = panelbuttoncolour panelbutton.BackgroundImage = skinpanelbutton(0) If skinpanelbutton(0) Is Nothing Then Else panelbutton.BackColor = Color.Transparent panelbutton.BackgroundImageLayout = skinpanelbuttonstyle text.ForeColor = panelbuttontextcolour text.Font = New Font(panelbuttontextfont, panelbuttontextsize, panelbuttontextstyle) text.Location = New Point(panelbuttontextside, panelbuttontexttop) End Sub Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown If e.KeyCode = Keys.T AndAlso e.Control Then Terminal.Show() Terminal.BringToFront() If terminalfullscreen = True Then Terminal.fullterminal() End If End Sub Public Sub closeeverything() If boughtmultitasking = False Then 'Knowledge_Input.Close() 'Shiftorium.Close() 'Clock.Close() 'Shifter.Close() 'Colour_Picker.Close() 'infobox.Close() 'Pong.Close() 'File_Skimmer.Close() 'File_Opener.Close() 'File_Saver.Close() 'TextPad.Close() 'Graphic_Picker.Close() 'Skin_Loader.Close() 'ArtPad.Close() 'Calculator.Close() 'Audio_Player.Close() 'Web_Browser.Close() 'Video_Player.Close() 'Name_Changer.Close() 'Icon_Manager.Close() 'Bitnote_Wallet.Close() 'Bitnote_Digger.Close() 'Skinshifter.Close() 'Shiftnet.Close() 'Downloader.Close() 'template.Close() For Each f In My.Application.OpenForms.Cast(Of Form)().ToArray() Select Case f.Name Case "ShiftOSDesktop", "HijackScreen", "ShiftOS Save File Converter" 'do nothing Case Else f.Close() End Select Next End If If forceclose = True Then 'Knowledge_Input.Close() 'Shiftorium.Close() 'Clock.Close() 'Shifter.Close() 'Colour_Picker.Close() 'infobox.Close() 'Pong.Close() 'File_Skimmer.Close() 'TextPad.Close() 'File_Opener.Close() 'File_Saver.Close() 'Graphic_Picker.Close() 'Skin_Loader.Close() 'ArtPad.Close() 'Calculator.Close() 'Audio_Player.Close() 'Web_Browser.Close() 'Video_Player.Close() 'Name_Changer.Close() 'Icon_Manager.Close() 'Bitnote_Wallet.Close() 'Bitnote_Digger.Close() 'Skinshifter.Close() 'Shiftnet.Close() 'Downloader.Close() 'template.Close() For Each f In My.Application.OpenForms.Cast(Of Form)().ToArray() Select Case f.Name Case "ShiftOSDesktop", "HijackScreen", "ShiftOS Save File Converter" 'do nothing Case Else f.Close() End Select Next End If forceclose = False End Sub Public Sub shutdownshiftos() forceclose = True closeeverything() Terminal.txtterm.Text = Terminal.txtterm.Text & Environment.NewLine & "System Is Shutting Down..." & Environment.NewLine log = log & My.Computer.Clock.LocalTime & " ShutDown ShiftOS with " & codepoints & " Code Points!" & Environment.NewLine savegame() Terminal.tmrshutdown.Start() End Sub Public Sub addtitlebars() 'attempted future code to dramatically increase development time and simplify code 'For Each f In My.Application.OpenForms.Cast(Of Form)().ToArray() ' Select Case f.Name ' Case "ShiftOSDesktop", "HijackScreen", "ShiftOS Save File Converter" ' 'do nothing ' Case Else ' If f.Visible = True Then ' f.titlebar.Show() ' f.setuptitlebar() ' f.Size = New Size(f.Width, f.Size.Height + f.titlebar.Height) ' End If ' End Select 'Next If Knowledge_Input.Visible = True Then Knowledge_Input.titlebar.Show() Knowledge_Input.setuptitlebar() Knowledge_Input.Size = New Size(Knowledge_Input.Width, Knowledge_Input.Size.Height + Knowledge_Input.titlebar.Height) End If If Shiftorium.Visible = True Then Shiftorium.titlebar.Show() Shiftorium.setuptitlebar() Shiftorium.Size = New Size(Shiftorium.Width, Shiftorium.Size.Height + Shiftorium.titlebar.Height) End If If Clock.Visible = True Then Clock.titlebar.Show() Clock.setuptitlebar() Clock.Size = New Size(Clock.Width, Clock.Size.Height + Clock.titlebar.Height) End If If Shifter.Visible = True Then Shifter.titlebar.Show() Shifter.setuptitlebar() Shifter.Size = New Size(Shifter.Width, Shifter.Size.Height + Shifter.titlebar.Height) End If If Colour_Picker.Visible = True Then Colour_Picker.titlebar.Show() Colour_Picker.setuptitlebar() Colour_Picker.Size = New Size(Colour_Picker.Width, Colour_Picker.Size.Height + Colour_Picker.titlebar.Height) End If If infobox.Visible = True Then infobox.titlebar.Show() infobox.setuptitlebar() infobox.Size = New Size(infobox.Width, infobox.Size.Height + infobox.titlebar.Height) End If If Pong.Visible = True Then Pong.titlebar.Show() Pong.setuptitlebar() Pong.Size = New Size(Pong.Width, Pong.Size.Height + Pong.titlebar.Height) End If If File_Skimmer.Visible = True Then File_Skimmer.titlebar.Show() File_Skimmer.setuptitlebar() File_Skimmer.Size = New Size(File_Skimmer.Width, File_Skimmer.Size.Height + File_Skimmer.titlebar.Height) End If If TextPad.Visible = True Then TextPad.titlebar.Show() TextPad.setuptitlebar() TextPad.Size = New Size(TextPad.Width, TextPad.Size.Height + TextPad.titlebar.Height) End If If File_Opener.Visible = True Then File_Opener.titlebar.Show() File_Opener.setuptitlebar() File_Opener.Size = New Size(File_Opener.Width, File_Opener.Size.Height + File_Opener.titlebar.Height) End If If File_Saver.Visible = True Then File_Saver.titlebar.Show() File_Saver.setuptitlebar() File_Saver.Size = New Size(File_Saver.Width, File_Saver.Size.Height + File_Saver.titlebar.Height) End If If Graphic_Picker.Visible = True Then Graphic_Picker.titlebar.Show() Graphic_Picker.setuptitlebar() Graphic_Picker.Size = New Size(Graphic_Picker.Width, Graphic_Picker.Size.Height + Graphic_Picker.titlebar.Height) End If If Skin_Loader.Visible = True Then Skin_Loader.titlebar.Show() Skin_Loader.setuptitlebar() Skin_Loader.Size = New Size(Skin_Loader.Width, Skin_Loader.Size.Height + Skin_Loader.titlebar.Height) End If If ArtPad.Visible = True Then ArtPad.titlebar.Show() ArtPad.setuptitlebar() ArtPad.Size = New Size(ArtPad.Width, ArtPad.Size.Height + ArtPad.titlebar.Height) End If If Calculator.Visible = True Then Calculator.titlebar.Show() Calculator.setuptitlebar() Calculator.Size = New Size(Calculator.Width, Calculator.Size.Height + Calculator.titlebar.Height) End If If Audio_Player.Visible = True Then Audio_Player.titlebar.Show() Audio_Player.setuptitlebar() Audio_Player.Size = New Size(Audio_Player.Width, Audio_Player.Size.Height + Audio_Player.titlebar.Height) End If If Web_Browser.Visible = True Then Web_Browser.titlebar.Show() Web_Browser.setuptitlebar() Web_Browser.Size = New Size(Web_Browser.Width, Web_Browser.Size.Height + Web_Browser.titlebar.Height) End If If Name_Changer.Visible = True Then Name_Changer.titlebar.Show() Name_Changer.setuptitlebar() Name_Changer.Size = New Size(Name_Changer.Width, Name_Changer.Size.Height + Name_Changer.titlebar.Height) End If If Icon_Manager.Visible = True Then Icon_Manager.titlebar.Show() Icon_Manager.setuptitlebar() Icon_Manager.Size = New Size(Icon_Manager.Width, Icon_Manager.Size.Height + Icon_Manager.titlebar.Height) End If If Bitnote_Wallet.Visible = True Then Bitnote_Wallet.titlebar.Show() Bitnote_Wallet.setuptitlebar() Bitnote_Wallet.Size = New Size(Bitnote_Wallet.Width, Bitnote_Wallet.Size.Height + Bitnote_Wallet.titlebar.Height) End If If Bitnote_Digger.Visible = True Then Bitnote_Digger.titlebar.Show() Bitnote_Digger.setuptitlebar() Bitnote_Digger.Size = New Size(Bitnote_Digger.Width, Bitnote_Digger.Size.Height + Bitnote_Digger.titlebar.Height) End If If Skinshifter.Visible = True Then Skinshifter.titlebar.Show() Skinshifter.setuptitlebar() Skinshifter.Size = New Size(Skinshifter.Width, Skinshifter.Size.Height + Skinshifter.titlebar.Height) End If If Shiftnet.Visible = True Then Shiftnet.titlebar.Show() Shiftnet.setuptitlebar() Shiftnet.Size = New Size(Shiftnet.Width, Shiftnet.Size.Height + Shiftnet.titlebar.Height) End If If Downloader.Visible = True Then Downloader.titlebar.Show() Downloader.setuptitlebar() Downloader.Size = New Size(Downloader.Width, Downloader.Size.Height + Downloader.titlebar.Height) End If If template.Visible = True Then template.titlebar.Show() template.setuptitlebar() template.Size = New Size(ArtPad.Width, ArtPad.Size.Height + ArtPad.titlebar.Height) End If If terminalfullscreen = False Then If Terminal.Visible = True Then Terminal.titlebar.Show() Terminal.setuptitlebar() Terminal.Size = New Size(Terminal.Width, Terminal.Size.Height + Terminal.titlebar.Height) End If End If End Sub Public Sub addborders() Knowledge_Input.pgleft.Show() Knowledge_Input.pgbottom.Show() Knowledge_Input.pgright.Show() Knowledge_Input.Size = New Size(Knowledge_Input.Width + Knowledge_Input.pgleft.Width + Knowledge_Input.pgright.Width, Knowledge_Input.Height + Knowledge_Input.pgbottom.Height) If boughttitlebar = True Then Knowledge_Input.setuptitlebar() Shiftorium.pgleft.Show() Shiftorium.pgbottom.Show() Shiftorium.pgright.Show() Shiftorium.Size = New Size(Shiftorium.Width + Shiftorium.pgleft.Width + Shiftorium.pgright.Width, Shiftorium.Height + Shiftorium.pgbottom.Height) If boughttitlebar = True Then Shiftorium.setuptitlebar() Clock.pgleft.Show() Clock.pgbottom.Show() Clock.pgright.Show() Clock.Size = New Size(Clock.Width + Clock.pgleft.Width + Clock.pgright.Width, Clock.Height + Clock.pgbottom.Height) If boughttitlebar = True Then Clock.setuptitlebar() Shifter.pgleft.Show() Shifter.pgbottom.Show() Shifter.pgright.Show() Shifter.Size = New Size(Shifter.Width + Shifter.pgleft.Width + Shifter.pgright.Width, Shifter.Height + Shifter.pgbottom.Height) If boughttitlebar = True Then Shifter.setuptitlebar() Colour_Picker.pgleft.Show() Colour_Picker.pgbottom.Show() Colour_Picker.pgright.Show() Colour_Picker.Size = New Size(Colour_Picker.Width + Colour_Picker.pgleft.Width + Colour_Picker.pgright.Width, Colour_Picker.Height + Colour_Picker.pgbottom.Height) If boughttitlebar = True Then Colour_Picker.setuptitlebar() infobox.pgleft.Show() infobox.pgbottom.Show() infobox.pgright.Show() infobox.Size = New Size(infobox.Width + infobox.pgleft.Width + infobox.pgright.Width, infobox.Height + infobox.pgbottom.Height) If boughttitlebar = True Then infobox.setuptitlebar() Pong.pgleft.Show() Pong.pgbottom.Show() Pong.pgright.Show() Pong.Size = New Size(Pong.Width + Pong.pgleft.Width + Pong.pgright.Width, Pong.Height + Pong.pgbottom.Height) If boughttitlebar = True Then Pong.setuptitlebar() File_Skimmer.pgleft.Show() File_Skimmer.pgbottom.Show() File_Skimmer.pgright.Show() File_Skimmer.Size = New Size(File_Skimmer.Width + File_Skimmer.pgleft.Width + File_Skimmer.pgright.Width, File_Skimmer.Height + File_Skimmer.pgbottom.Height) If boughttitlebar = True Then File_Skimmer.setuptitlebar() TextPad.pgleft.Show() TextPad.pgbottom.Show() TextPad.pgright.Show() TextPad.Size = New Size(File_Skimmer.Width + TextPad.pgleft.Width + TextPad.pgright.Width, TextPad.Height + TextPad.pgbottom.Height) If boughttitlebar = True Then TextPad.setuptitlebar() File_Opener.pgleft.Show() File_Opener.pgbottom.Show() File_Opener.pgright.Show() File_Opener.Size = New Size(File_Skimmer.Width + File_Opener.pgleft.Width + File_Opener.pgright.Width, File_Opener.Height + File_Opener.pgbottom.Height) If boughttitlebar = True Then File_Opener.setuptitlebar() File_Saver.pgleft.Show() File_Saver.pgbottom.Show() File_Saver.pgright.Show() File_Saver.Size = New Size(File_Skimmer.Width + File_Saver.pgleft.Width + File_Saver.pgright.Width, File_Saver.Height + File_Saver.pgbottom.Height) If boughttitlebar = True Then File_Saver.setuptitlebar() Graphic_Picker.pgleft.Show() Graphic_Picker.pgbottom.Show() Graphic_Picker.pgright.Show() Graphic_Picker.Size = New Size(Graphic_Picker.Width + Graphic_Picker.pgleft.Width + Graphic_Picker.pgright.Width, Graphic_Picker.Height + Graphic_Picker.pgbottom.Height) If boughttitlebar = True Then Graphic_Picker.setuptitlebar() Skin_Loader.pgleft.Show() Skin_Loader.pgbottom.Show() Skin_Loader.pgright.Show() Skin_Loader.Size = New Size(Skin_Loader.Width + Skin_Loader.pgleft.Width + Skin_Loader.pgright.Width, Skin_Loader.Height + Skin_Loader.pgbottom.Height) If boughttitlebar = True Then Skin_Loader.setuptitlebar() ArtPad.pgleft.Show() ArtPad.pgbottom.Show() ArtPad.pgright.Show() ArtPad.Size = New Size(ArtPad.Width + ArtPad.pgleft.Width + ArtPad.pgright.Width, ArtPad.Height + ArtPad.pgbottom.Height) If boughttitlebar = True Then ArtPad.setuptitlebar() Calculator.pgleft.Show() Calculator.pgbottom.Show() Calculator.pgright.Show() Calculator.Size = New Size(Calculator.Width + Calculator.pgleft.Width + Calculator.pgright.Width, Calculator.Height + Calculator.pgbottom.Height) If boughttitlebar = True Then Calculator.setuptitlebar() Audio_Player.pgleft.Show() Audio_Player.pgbottom.Show() Audio_Player.pgright.Show() Audio_Player.Size = New Size(Audio_Player.Width + Audio_Player.pgleft.Width + Audio_Player.pgright.Width, Audio_Player.Height + Audio_Player.pgbottom.Height) If boughttitlebar = True Then Audio_Player.setuptitlebar() Web_Browser.pgleft.Show() Web_Browser.pgbottom.Show() Web_Browser.pgright.Show() Web_Browser.Size = New Size(Web_Browser.Width + Web_Browser.pgleft.Width + Web_Browser.pgright.Width, Web_Browser.Height + Web_Browser.pgbottom.Height) If boughttitlebar = True Then Web_Browser.setuptitlebar() Video_Player.pgleft.Show() Video_Player.pgbottom.Show() Video_Player.pgright.Show() Video_Player.Size = New Size(Video_Player.Width + Video_Player.pgleft.Width + Video_Player.pgright.Width, Video_Player.Height + Video_Player.pgbottom.Height) If boughttitlebar = True Then Video_Player.setuptitlebar() Name_Changer.pgleft.Show() Name_Changer.pgbottom.Show() Name_Changer.pgright.Show() Name_Changer.Size = New Size(Name_Changer.Width + Name_Changer.pgleft.Width + Name_Changer.pgright.Width, Name_Changer.Height + Name_Changer.pgbottom.Height) If boughttitlebar = True Then Name_Changer.setuptitlebar() Icon_Manager.pgleft.Show() Icon_Manager.pgbottom.Show() Icon_Manager.pgright.Show() Icon_Manager.Size = New Size(Icon_Manager.Width + Icon_Manager.pgleft.Width + Icon_Manager.pgright.Width, Icon_Manager.Height + Icon_Manager.pgbottom.Height) If boughttitlebar = True Then Icon_Manager.setuptitlebar() Bitnote_Wallet.pgleft.Show() Bitnote_Wallet.pgbottom.Show() Bitnote_Wallet.pgright.Show() Bitnote_Wallet.Size = New Size(Bitnote_Wallet.Width + Bitnote_Wallet.pgleft.Width + Bitnote_Wallet.pgright.Width, Bitnote_Wallet.Height + Bitnote_Wallet.pgbottom.Height) If boughttitlebar = True Then Bitnote_Wallet.setuptitlebar() Bitnote_Digger.pgleft.Show() Bitnote_Digger.pgbottom.Show() Bitnote_Digger.pgright.Show() Bitnote_Digger.Size = New Size(Bitnote_Digger.Width + Bitnote_Digger.pgleft.Width + Bitnote_Digger.pgright.Width, Bitnote_Digger.Height + Bitnote_Digger.pgbottom.Height) If boughttitlebar = True Then Bitnote_Digger.setuptitlebar() Skinshifter.pgleft.Show() Skinshifter.pgbottom.Show() Skinshifter.pgright.Show() Skinshifter.Size = New Size(Skinshifter.Width + Skinshifter.pgleft.Width + Skinshifter.pgright.Width, Skinshifter.Height + Skinshifter.pgbottom.Height) If boughttitlebar = True Then Skinshifter.setuptitlebar() Shiftnet.pgleft.Show() Shiftnet.pgbottom.Show() Shiftnet.pgright.Show() Shiftnet.Size = New Size(Shiftnet.Width + Shiftnet.pgleft.Width + Shiftnet.pgright.Width, Shiftnet.Height + Shiftnet.pgbottom.Height) If boughttitlebar = True Then Shiftnet.setuptitlebar() Downloader.pgleft.Show() Downloader.pgbottom.Show() Downloader.pgright.Show() Downloader.Size = New Size(Downloader.Width + Downloader.pgleft.Width + Downloader.pgright.Width, Downloader.Height + Downloader.pgbottom.Height) If boughttitlebar = True Then Downloader.setuptitlebar() template.pgleft.Show() template.pgbottom.Show() template.pgright.Show() template.Size = New Size(template.Width + template.pgleft.Width + template.pgright.Width, template.Height + template.pgbottom.Height) If boughttitlebar = True Then ArtPad.setuptitlebar() If terminalfullscreen = False Then Terminal.pgleft.Show() Terminal.pgbottom.Show() Terminal.pgright.Show() Terminal.Size = New Size(Terminal.Width + Terminal.pgleft.Width + Terminal.pgright.Width, Terminal.Height + Terminal.pgbottom.Height) If boughttitlebar = True Then Terminal.setuptitlebar() End If End Sub Public Sub setupalltitlebars() Knowledge_Input.setuptitlebar() Shiftorium.setuptitlebar() Clock.setuptitlebar() Shifter.setuptitlebar() Colour_Picker.setuptitlebar() infobox.setuptitlebar() Pong.setuptitlebar() File_Skimmer.setuptitlebar() TextPad.setuptitlebar() File_Opener.setuptitlebar() File_Saver.setuptitlebar() Graphic_Picker.setuptitlebar() Skin_Loader.setuptitlebar() ArtPad.setuptitlebar() Calculator.setuptitlebar() Audio_Player.setuptitlebar() Web_Browser.setuptitlebar() Video_Player.setuptitlebar() Name_Changer.setuptitlebar() Icon_Manager.setuptitlebar() Bitnote_Wallet.setuptitlebar() Bitnote_Digger.setuptitlebar() Skinshifter.setuptitlebar() Shiftnet.setuptitlebar() Downloader.setuptitlebar() template.setuptitlebar() If terminalfullscreen = False Then Terminal.setuptitlebar() End Sub Public Sub setupskins() Knowledge_Input.setskin() Shiftorium.setskin() Clock.setskin() Shifter.setskin() Colour_Picker.setskin() infobox.setskin() Pong.setskin() File_Skimmer.setskin() TextPad.setskin() File_Opener.setskin() File_Saver.setskin() Graphic_Picker.setskin() Skin_Loader.setskin() ArtPad.setskin() Calculator.setskin() Audio_Player.setskin() Web_Browser.setskin() Video_Player.setskin() Name_Changer.setskin() Icon_Manager.setskin() Bitnote_Wallet.setskin() Bitnote_Digger.setskin() Skinshifter.setskin() Shiftnet.setskin() Downloader.setskin() template.setskin() If terminalfullscreen = False Then Terminal.setskin() End Sub Public Sub shiftwindowsontop() If unitymode = True Then Knowledge_Input.TopMost = False Shiftorium.TopMost = False Clock.TopMost = False Shifter.TopMost = False Colour_Picker.TopMost = False infobox.TopMost = False Pong.TopMost = False File_Skimmer.TopMost = False TextPad.TopMost = False File_Opener.TopMost = False File_Saver.TopMost = False Graphic_Picker.TopMost = False Skin_Loader.TopMost = False ArtPad.TopMost = False Calculator.TopMost = False Audio_Player.TopMost = False Web_Browser.TopMost = False Video_Player.TopMost = False Name_Changer.TopMost = False Icon_Manager.TopMost = False Bitnote_Wallet.TopMost = False Bitnote_Digger.TopMost = False Skinshifter.TopMost = False Shiftnet.TopMost = False Downloader.TopMost = False template.TopMost = False Terminal.TopMost = False Else Me.BringToFront() Knowledge_Input.TopMost = True Shiftorium.TopMost = True Clock.TopMost = True Shifter.TopMost = True Colour_Picker.TopMost = True infobox.TopMost = True Pong.TopMost = True File_Skimmer.TopMost = True TextPad.TopMost = True File_Opener.TopMost = True File_Saver.TopMost = True Graphic_Picker.TopMost = True Skin_Loader.TopMost = True ArtPad.TopMost = True Calculator.TopMost = True Audio_Player.TopMost = True Web_Browser.TopMost = True Video_Player.TopMost = True Name_Changer.TopMost = True Icon_Manager.TopMost = True Bitnote_Wallet.TopMost = True Bitnote_Digger.TopMost = True Skinshifter.TopMost = True Shiftnet.TopMost = True Downloader.TopMost = True template.TopMost = True Terminal.TopMost = True End If End Sub Public Sub loadskinfiles() If skinimages(0) = "" Then Else skinclosebutton(0) = GetImage(skinimages(0)) If skinimages(1) = "" Then Else skinclosebutton(1) = GetImage(skinimages(1)) If skinimages(2) = "" Then Else skinclosebutton(2) = GetImage(skinimages(2)) If skinimages(3) = "" Then Else skintitlebar(0) = GetImage(skinimages(3)) If skinimages(4) = "" Then Else skintitlebar(1) = GetImage(skinimages(4)) If skinimages(5) = "" Then Else skintitlebar(2) = GetImage(skinimages(5)) If skinimages(6) = "" Then Else skindesktopbackground(0) = GetImage(skinimages(6)) If skinimages(7) = "" Then Else skindesktopbackground(1) = GetImage(skinimages(7)) If skinimages(8) = "" Then Else skindesktopbackground(2) = GetImage(skinimages(8)) If skinimages(9) = "" Then Else skinrollupbutton(0) = GetImage(skinimages(9)) If skinimages(10) = "" Then Else skinrollupbutton(1) = GetImage(skinimages(10)) If skinimages(11) = "" Then Else skinrollupbutton(2) = GetImage(skinimages(11)) If skinimages(12) = "" Then Else skintitlebarrightcorner(0) = GetImage(skinimages(12)) If skinimages(13) = "" Then Else skintitlebarrightcorner(1) = GetImage(skinimages(13)) If skinimages(14) = "" Then Else skintitlebarrightcorner(2) = GetImage(skinimages(14)) If skinimages(15) = "" Then Else skintitlebarleftcorner(0) = GetImage(skinimages(15)) If skinimages(16) = "" Then Else skintitlebarleftcorner(1) = GetImage(skinimages(16)) If skinimages(17) = "" Then Else skintitlebarleftcorner(2) = GetImage(skinimages(17)) If skinimages(18) = "" Then Else skindesktoppanel(0) = GetImage(skinimages(18)) If skinimages(19) = "" Then Else skindesktoppanel(1) = GetImage(skinimages(19)) If skinimages(20) = "" Then Else skindesktoppanel(2) = GetImage(skinimages(20)) If skinimages(21) = "" Then Else skindesktoppaneltime(0) = GetImage(skinimages(21)) If skinimages(22) = "" Then Else skindesktoppaneltime(1) = GetImage(skinimages(22)) If skinimages(23) = "" Then Else skindesktoppaneltime(2) = GetImage(skinimages(23)) If skinimages(24) = "" Then Else skinapplauncherbutton(0) = GetImage(skinimages(24)) If skinimages(25) = "" Then Else skinapplauncherbutton(1) = GetImage(skinimages(25)) If skinimages(26) = "" Then Else skinapplauncherbutton(2) = GetImage(skinimages(26)) If skinimages(27) = "" Then Else skinwindowborderleft(0) = GetImage(skinimages(27)) If skinimages(28) = "" Then Else skinwindowborderleft(1) = GetImage(skinimages(28)) If skinimages(29) = "" Then Else skinwindowborderleft(2) = GetImage(skinimages(29)) If skinimages(30) = "" Then Else skinwindowborderright(0) = GetImage(skinimages(30)) If skinimages(31) = "" Then Else skinwindowborderright(1) = GetImage(skinimages(31)) If skinimages(32) = "" Then Else skinwindowborderright(2) = GetImage(skinimages(32)) If skinimages(33) = "" Then Else skinwindowborderbottom(0) = GetImage(skinimages(33)) If skinimages(34) = "" Then Else skinwindowborderbottom(1) = GetImage(skinimages(34)) If skinimages(35) = "" Then Else skinwindowborderbottom(2) = GetImage(skinimages(35)) If skinimages(36) = "" Then Else skinwindowborderbottomright(0) = GetImage(skinimages(36)) If skinimages(37) = "" Then Else skinwindowborderbottomright(1) = GetImage(skinimages(37)) If skinimages(38) = "" Then Else skinwindowborderbottomright(2) = GetImage(skinimages(38)) If skinimages(39) = "" Then Else skinwindowborderbottomleft(0) = GetImage(skinimages(39)) If skinimages(40) = "" Then Else skinwindowborderbottomleft(1) = GetImage(skinimages(40)) If skinimages(41) = "" Then Else skinwindowborderbottomleft(2) = GetImage(skinimages(41)) If skinimages(42) = "" Then Else skinminimizebutton(0) = GetImage(skinimages(42)) If skinimages(43) = "" Then Else skinminimizebutton(1) = GetImage(skinimages(43)) If skinimages(44) = "" Then Else skinminimizebutton(2) = GetImage(skinimages(44)) If skinimages(45) = "" Then Else skinpanelbutton(0) = GetImage(skinimages(45)) If skinimages(46) = "" Then Else skinpanelbutton(1) = GetImage(skinimages(46)) If skinimages(47) = "" Then Else skinpanelbutton(2) = GetImage(skinimages(47)) End Sub Private Function GetImage(ByVal fileName As String) As Bitmap Dim ret As Bitmap Using img As Image = Image.FromFile(fileName) ret = New Bitmap(img) End Using Return ret End Function Public Sub setcolours() If Shiftorium.Visible = True Then Shiftorium.titlebar.BackColor = titlebarcolour Shiftorium.pgtoplcorner.BackColor = titlebarleftcornercolour Shiftorium.pgtoprcorner.BackColor = titlebarrightcornercolour Shiftorium.pgleft.BackColor = windowborderleftcolour Shiftorium.pgleft.BackgroundImage = skinwindowborderleft(0) Shiftorium.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Shiftorium.pgright.BackColor = windowborderrightcolour Shiftorium.pgright.BackgroundImage = skinwindowborderright(0) Shiftorium.pgright.BackgroundImageLayout = skinwindowborderrightstyle Shiftorium.pgbottom.BackColor = windowborderbottomcolour Shiftorium.pgbottom.BackgroundImage = skinwindowborderbottom(0) Shiftorium.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Shiftorium.pgbottomlcorner.BackColor = windowborderbottomleftcolour Shiftorium.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Shiftorium.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Shiftorium.pgbottomlcorner.Height = windowbordersize Shiftorium.pgbottomrcorner.BackColor = windowborderbottomrightcolour Shiftorium.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Shiftorium.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Shiftorium.pgbottomrcorner.Height = windowbordersize Else Shiftorium.Close() End If If Knowledge_Input.Visible = True Then Knowledge_Input.titlebar.BackColor = titlebarcolour Knowledge_Input.pgtoplcorner.BackColor = titlebarleftcornercolour Knowledge_Input.pgtoprcorner.BackColor = titlebarrightcornercolour Knowledge_Input.pgleft.BackColor = windowborderleftcolour Knowledge_Input.pgleft.BackgroundImage = skinwindowborderleft(0) Knowledge_Input.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Knowledge_Input.pgright.BackColor = windowborderrightcolour Knowledge_Input.pgright.BackgroundImage = skinwindowborderright(0) Knowledge_Input.pgright.BackgroundImageLayout = skinwindowborderrightstyle Knowledge_Input.pgbottom.BackColor = windowborderbottomcolour Knowledge_Input.pgbottom.BackgroundImage = skinwindowborderbottom(0) Knowledge_Input.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Knowledge_Input.pgbottomlcorner.BackColor = windowborderbottomleftcolour Knowledge_Input.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Knowledge_Input.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Knowledge_Input.pgbottomlcorner.Height = windowbordersize Knowledge_Input.pgbottomrcorner.BackColor = windowborderbottomrightcolour Knowledge_Input.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Knowledge_Input.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Knowledge_Input.pgbottomrcorner.Height = windowbordersize Else Knowledge_Input.Close() End If If Clock.Visible = True Then Clock.titlebar.BackColor = titlebarcolour Clock.pgtoplcorner.BackColor = titlebarleftcornercolour Clock.pgtoprcorner.BackColor = titlebarrightcornercolour Clock.pgleft.BackColor = windowborderleftcolour Clock.pgleft.BackgroundImage = skinwindowborderleft(0) Clock.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Clock.pgright.BackColor = windowborderrightcolour Clock.pgright.BackgroundImage = skinwindowborderright(0) Clock.pgright.BackgroundImageLayout = skinwindowborderrightstyle Clock.pgbottom.BackColor = windowborderbottomcolour Clock.pgbottom.BackgroundImage = skinwindowborderbottom(0) Clock.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Clock.pgbottomlcorner.BackColor = windowborderbottomleftcolour Clock.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Clock.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Clock.pgbottomlcorner.Height = windowbordersize Clock.pgbottomrcorner.BackColor = windowborderbottomrightcolour Clock.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Clock.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Clock.pgbottomrcorner.Height = windowbordersize Else Clock.Close() End If If Shifter.Visible = True Then Shifter.titlebar.BackColor = titlebarcolour Shifter.pgtoplcorner.BackColor = titlebarleftcornercolour Shifter.pgtoprcorner.BackColor = titlebarrightcornercolour Shifter.pgleft.BackColor = windowborderleftcolour Shifter.pgleft.BackgroundImage = skinwindowborderleft(0) Shifter.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Shifter.pgright.BackColor = windowborderrightcolour Shifter.pgright.BackgroundImage = skinwindowborderright(0) Shifter.pgright.BackgroundImageLayout = skinwindowborderrightstyle Shifter.pgbottom.BackColor = windowborderbottomcolour Shifter.pgbottom.BackgroundImage = skinwindowborderbottom(0) Shifter.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Shifter.pgbottomlcorner.BackColor = windowborderbottomleftcolour Shifter.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Shifter.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Shifter.pgbottomlcorner.Height = windowbordersize Shifter.pgbottomrcorner.BackColor = windowborderbottomrightcolour Shifter.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Shifter.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Shifter.pgbottomrcorner.Height = windowbordersize Else Shifter.Close() End If If Colour_Picker.Visible = True Then Colour_Picker.titlebar.BackColor = titlebarcolour Colour_Picker.pgtoplcorner.BackColor = titlebarleftcornercolour Colour_Picker.pgtoprcorner.BackColor = titlebarrightcornercolour Colour_Picker.pgleft.BackColor = windowborderleftcolour Colour_Picker.pgleft.BackgroundImage = skinwindowborderleft(0) Colour_Picker.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Colour_Picker.pgright.BackColor = windowborderrightcolour Colour_Picker.pgright.BackgroundImage = skinwindowborderright(0) Colour_Picker.pgright.BackgroundImageLayout = skinwindowborderrightstyle Colour_Picker.pgbottom.BackColor = windowborderbottomcolour Colour_Picker.pgbottom.BackgroundImage = skinwindowborderbottom(0) Colour_Picker.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Colour_Picker.pgbottomlcorner.BackColor = windowborderbottomleftcolour Colour_Picker.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Colour_Picker.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Colour_Picker.pgbottomlcorner.Height = windowbordersize Colour_Picker.pgbottomrcorner.BackColor = windowborderbottomrightcolour Colour_Picker.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Colour_Picker.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Colour_Picker.pgbottomrcorner.Height = windowbordersize Else Colour_Picker.Close() End If If infobox.Visible = True Then infobox.titlebar.BackColor = titlebarcolour infobox.pgtoplcorner.BackColor = titlebarleftcornercolour infobox.pgtoprcorner.BackColor = titlebarrightcornercolour infobox.pgleft.BackColor = windowborderleftcolour infobox.pgleft.BackgroundImage = skinwindowborderleft(0) infobox.pgleft.BackgroundImageLayout = skinwindowborderleftstyle infobox.pgright.BackColor = windowborderrightcolour infobox.pgright.BackgroundImage = skinwindowborderright(0) infobox.pgright.BackgroundImageLayout = skinwindowborderrightstyle infobox.pgbottom.BackColor = windowborderbottomcolour infobox.pgbottom.BackgroundImage = skinwindowborderbottom(0) infobox.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle infobox.pgbottomlcorner.BackColor = windowborderbottomleftcolour infobox.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) infobox.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle infobox.pgbottomlcorner.Height = windowbordersize infobox.pgbottomrcorner.BackColor = windowborderbottomrightcolour infobox.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) infobox.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle infobox.pgbottomrcorner.Height = windowbordersize Else infobox.Close() End If If Pong.Visible = True Then Pong.titlebar.BackColor = titlebarcolour Pong.pgtoplcorner.BackColor = titlebarleftcornercolour Pong.pgtoprcorner.BackColor = titlebarrightcornercolour Pong.pgleft.BackColor = windowborderleftcolour Pong.pgleft.BackgroundImage = skinwindowborderleft(0) Pong.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Pong.pgright.BackColor = windowborderrightcolour Pong.pgright.BackgroundImage = skinwindowborderright(0) Pong.pgright.BackgroundImageLayout = skinwindowborderrightstyle Pong.pgbottom.BackColor = windowborderbottomcolour Pong.pgbottom.BackgroundImage = skinwindowborderbottom(0) Pong.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Pong.pgbottomlcorner.BackColor = windowborderbottomleftcolour Pong.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Pong.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Pong.pgbottomlcorner.Height = windowbordersize Pong.pgbottomrcorner.BackColor = windowborderbottomrightcolour Pong.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Pong.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Pong.pgbottomrcorner.Height = windowbordersize Else Pong.Close() End If If File_Skimmer.Visible = True Then File_Skimmer.titlebar.BackColor = titlebarcolour File_Skimmer.pgtoplcorner.BackColor = titlebarleftcornercolour File_Skimmer.pgtoprcorner.BackColor = titlebarrightcornercolour File_Skimmer.pgleft.BackColor = windowborderleftcolour File_Skimmer.pgleft.BackgroundImage = skinwindowborderleft(0) File_Skimmer.pgleft.BackgroundImageLayout = skinwindowborderleftstyle File_Skimmer.pgright.BackColor = windowborderrightcolour File_Skimmer.pgright.BackgroundImage = skinwindowborderright(0) File_Skimmer.pgright.BackgroundImageLayout = skinwindowborderrightstyle File_Skimmer.pgbottom.BackColor = windowborderbottomcolour File_Skimmer.pgbottom.BackgroundImage = skinwindowborderbottom(0) File_Skimmer.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle File_Skimmer.pgbottomlcorner.BackColor = windowborderbottomleftcolour File_Skimmer.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) File_Skimmer.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle File_Skimmer.pgbottomlcorner.Height = windowbordersize File_Skimmer.pgbottomrcorner.BackColor = windowborderbottomrightcolour File_Skimmer.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) File_Skimmer.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle File_Skimmer.pgbottomrcorner.Height = windowbordersize Else File_Skimmer.Close() End If If TextPad.Visible = True Then TextPad.titlebar.BackColor = titlebarcolour TextPad.pgtoplcorner.BackColor = titlebarleftcornercolour TextPad.pgtoprcorner.BackColor = titlebarrightcornercolour TextPad.pgleft.BackColor = windowborderleftcolour TextPad.pgleft.BackgroundImage = skinwindowborderleft(0) TextPad.pgleft.BackgroundImageLayout = skinwindowborderleftstyle TextPad.pgright.BackColor = windowborderrightcolour TextPad.pgright.BackgroundImage = skinwindowborderright(0) TextPad.pgright.BackgroundImageLayout = skinwindowborderrightstyle TextPad.pgbottom.BackColor = windowborderbottomcolour TextPad.pgbottom.BackgroundImage = skinwindowborderbottom(0) TextPad.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle TextPad.pgbottomlcorner.BackColor = windowborderbottomleftcolour TextPad.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) TextPad.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle TextPad.pgbottomlcorner.Height = windowbordersize TextPad.pgbottomrcorner.BackColor = windowborderbottomrightcolour TextPad.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) TextPad.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle TextPad.pgbottomrcorner.Height = windowbordersize Else TextPad.Close() End If If File_Opener.Visible = True Then File_Opener.titlebar.BackColor = titlebarcolour File_Opener.pgtoplcorner.BackColor = titlebarleftcornercolour File_Opener.pgtoprcorner.BackColor = titlebarrightcornercolour File_Opener.pgleft.BackColor = windowborderleftcolour File_Opener.pgleft.BackgroundImage = skinwindowborderleft(0) File_Opener.pgleft.BackgroundImageLayout = skinwindowborderleftstyle File_Opener.pgright.BackColor = windowborderrightcolour File_Opener.pgright.BackgroundImage = skinwindowborderright(0) File_Opener.pgright.BackgroundImageLayout = skinwindowborderrightstyle File_Opener.pgbottom.BackColor = windowborderbottomcolour File_Opener.pgbottom.BackgroundImage = skinwindowborderbottom(0) File_Opener.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle File_Opener.pgbottomlcorner.BackColor = windowborderbottomleftcolour File_Opener.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) File_Opener.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle File_Opener.pgbottomlcorner.Height = windowbordersize File_Opener.pgbottomrcorner.BackColor = windowborderbottomrightcolour File_Opener.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) File_Opener.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle File_Opener.pgbottomrcorner.Height = windowbordersize Else File_Opener.Close() End If If File_Saver.Visible = True Then File_Saver.titlebar.BackColor = titlebarcolour File_Saver.pgtoplcorner.BackColor = titlebarleftcornercolour File_Saver.pgtoprcorner.BackColor = titlebarrightcornercolour File_Saver.pgleft.BackColor = windowborderleftcolour File_Saver.pgleft.BackgroundImage = skinwindowborderleft(0) File_Saver.pgleft.BackgroundImageLayout = skinwindowborderleftstyle File_Saver.pgright.BackColor = windowborderrightcolour File_Saver.pgright.BackgroundImage = skinwindowborderright(0) File_Saver.pgright.BackgroundImageLayout = skinwindowborderrightstyle File_Saver.pgbottom.BackColor = windowborderbottomcolour File_Saver.pgbottom.BackgroundImage = skinwindowborderbottom(0) File_Saver.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle File_Saver.pgbottomlcorner.BackColor = windowborderbottomleftcolour File_Saver.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) File_Saver.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle File_Saver.pgbottomlcorner.Height = windowbordersize File_Saver.pgbottomrcorner.BackColor = windowborderbottomrightcolour File_Saver.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) File_Saver.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle File_Saver.pgbottomrcorner.Height = windowbordersize Else File_Saver.Close() End If If Graphic_Picker.Visible = True Then Graphic_Picker.titlebar.BackColor = titlebarcolour Graphic_Picker.pgtoplcorner.BackColor = titlebarleftcornercolour Graphic_Picker.pgtoprcorner.BackColor = titlebarrightcornercolour Graphic_Picker.pgleft.BackColor = windowborderleftcolour Graphic_Picker.pgleft.BackgroundImage = skinwindowborderleft(0) Graphic_Picker.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Graphic_Picker.pgright.BackColor = windowborderrightcolour Graphic_Picker.pgright.BackgroundImage = skinwindowborderright(0) Graphic_Picker.pgright.BackgroundImageLayout = skinwindowborderrightstyle Graphic_Picker.pgbottom.BackColor = windowborderbottomcolour Graphic_Picker.pgbottom.BackgroundImage = skinwindowborderbottom(0) Graphic_Picker.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Graphic_Picker.pgbottomlcorner.BackColor = windowborderbottomleftcolour Graphic_Picker.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Graphic_Picker.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Graphic_Picker.pgbottomlcorner.Height = windowbordersize Graphic_Picker.pgbottomrcorner.BackColor = windowborderbottomrightcolour Graphic_Picker.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Graphic_Picker.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Graphic_Picker.pgbottomrcorner.Height = windowbordersize Else Graphic_Picker.Close() End If If Skin_Loader.Visible = True Then Skin_Loader.titlebar.BackColor = titlebarcolour Skin_Loader.pgtoplcorner.BackColor = titlebarleftcornercolour Skin_Loader.pgtoprcorner.BackColor = titlebarrightcornercolour Skin_Loader.pgleft.BackColor = windowborderleftcolour Skin_Loader.pgleft.BackgroundImage = skinwindowborderleft(0) Skin_Loader.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Skin_Loader.pgright.BackColor = windowborderrightcolour Skin_Loader.pgright.BackgroundImage = skinwindowborderright(0) Skin_Loader.pgright.BackgroundImageLayout = skinwindowborderrightstyle Skin_Loader.pgbottom.BackgroundImage = skinwindowborderbottom(0) Skin_Loader.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Skin_Loader.pgbottom.BackColor = windowborderbottomcolour Skin_Loader.pgbottomlcorner.BackColor = windowborderbottomleftcolour Skin_Loader.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Skin_Loader.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Skin_Loader.pgbottomlcorner.Height = windowbordersize Skin_Loader.pgbottomrcorner.BackColor = windowborderbottomrightcolour Skin_Loader.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Skin_Loader.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Skin_Loader.pgbottomrcorner.Height = windowbordersize Else Skin_Loader.Close() End If If ArtPad.Visible = True Then ArtPad.titlebar.BackColor = titlebarcolour ArtPad.pgtoplcorner.BackColor = titlebarleftcornercolour ArtPad.pgtoprcorner.BackColor = titlebarrightcornercolour ArtPad.pgleft.BackColor = windowborderleftcolour ArtPad.pgleft.BackgroundImage = skinwindowborderleft(0) ArtPad.pgleft.BackgroundImageLayout = skinwindowborderleftstyle ArtPad.pgright.BackColor = windowborderrightcolour ArtPad.pgright.BackgroundImage = skinwindowborderright(0) ArtPad.pgright.BackgroundImageLayout = skinwindowborderrightstyle ArtPad.pgbottom.BackgroundImage = skinwindowborderbottom(0) ArtPad.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle ArtPad.pgbottom.BackColor = windowborderbottomcolour ArtPad.pgbottomlcorner.BackColor = windowborderbottomleftcolour ArtPad.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) ArtPad.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle ArtPad.pgbottomlcorner.Height = windowbordersize ArtPad.pgbottomrcorner.BackColor = windowborderbottomrightcolour ArtPad.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) ArtPad.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle ArtPad.pgbottomrcorner.Height = windowbordersize Else ArtPad.Close() End If If Calculator.Visible = True Then Calculator.titlebar.BackColor = titlebarcolour Calculator.pgtoplcorner.BackColor = titlebarleftcornercolour Calculator.pgtoprcorner.BackColor = titlebarrightcornercolour Calculator.pgleft.BackColor = windowborderleftcolour Calculator.pgleft.BackgroundImage = skinwindowborderleft(0) Calculator.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Calculator.pgright.BackColor = windowborderrightcolour Calculator.pgright.BackgroundImage = skinwindowborderright(0) Calculator.pgright.BackgroundImageLayout = skinwindowborderrightstyle Calculator.pgbottom.BackgroundImage = skinwindowborderbottom(0) Calculator.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Calculator.pgbottom.BackColor = windowborderbottomcolour Calculator.pgbottomlcorner.BackColor = windowborderbottomleftcolour Calculator.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Calculator.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Calculator.pgbottomlcorner.Height = windowbordersize Calculator.pgbottomrcorner.BackColor = windowborderbottomrightcolour Calculator.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Calculator.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Calculator.pgbottomrcorner.Height = windowbordersize Else Calculator.Close() End If If Audio_Player.Visible = True Then Audio_Player.titlebar.BackColor = titlebarcolour Audio_Player.pgtoplcorner.BackColor = titlebarleftcornercolour Audio_Player.pgtoprcorner.BackColor = titlebarrightcornercolour Audio_Player.pgleft.BackColor = windowborderleftcolour Audio_Player.pgleft.BackgroundImage = skinwindowborderleft(0) Audio_Player.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Audio_Player.pgright.BackColor = windowborderrightcolour Audio_Player.pgright.BackgroundImage = skinwindowborderright(0) Audio_Player.pgright.BackgroundImageLayout = skinwindowborderrightstyle Audio_Player.pgbottom.BackgroundImage = skinwindowborderbottom(0) Audio_Player.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Audio_Player.pgbottom.BackColor = windowborderbottomcolour Audio_Player.pgbottomlcorner.BackColor = windowborderbottomleftcolour Audio_Player.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Audio_Player.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Audio_Player.pgbottomlcorner.Height = windowbordersize Audio_Player.pgbottomrcorner.BackColor = windowborderbottomrightcolour Audio_Player.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Audio_Player.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Audio_Player.pgbottomrcorner.Height = windowbordersize Else Audio_Player.Close() End If If Web_Browser.Visible = True Then Web_Browser.titlebar.BackColor = titlebarcolour Web_Browser.pgtoplcorner.BackColor = titlebarleftcornercolour Web_Browser.pgtoprcorner.BackColor = titlebarrightcornercolour Web_Browser.pgleft.BackColor = windowborderleftcolour Web_Browser.pgleft.BackgroundImage = skinwindowborderleft(0) Web_Browser.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Web_Browser.pgright.BackColor = windowborderrightcolour Web_Browser.pgright.BackgroundImage = skinwindowborderright(0) Web_Browser.pgright.BackgroundImageLayout = skinwindowborderrightstyle Web_Browser.pgbottom.BackgroundImage = skinwindowborderbottom(0) Web_Browser.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Web_Browser.pgbottom.BackColor = windowborderbottomcolour Web_Browser.pgbottomlcorner.BackColor = windowborderbottomleftcolour Web_Browser.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Web_Browser.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Web_Browser.pgbottomlcorner.Height = windowbordersize Web_Browser.pgbottomrcorner.BackColor = windowborderbottomrightcolour Web_Browser.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Web_Browser.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Web_Browser.pgbottomrcorner.Height = windowbordersize Else Web_Browser.Close() End If If Video_Player.Visible = True Then Video_Player.titlebar.BackColor = titlebarcolour Video_Player.pgtoplcorner.BackColor = titlebarleftcornercolour Video_Player.pgtoprcorner.BackColor = titlebarrightcornercolour Video_Player.pgleft.BackColor = windowborderleftcolour Video_Player.pgleft.BackgroundImage = skinwindowborderleft(0) Video_Player.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Video_Player.pgright.BackColor = windowborderrightcolour Video_Player.pgright.BackgroundImage = skinwindowborderright(0) Video_Player.pgright.BackgroundImageLayout = skinwindowborderrightstyle Video_Player.pgbottom.BackgroundImage = skinwindowborderbottom(0) Video_Player.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Video_Player.pgbottom.BackColor = windowborderbottomcolour Video_Player.pgbottomlcorner.BackColor = windowborderbottomleftcolour Video_Player.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Video_Player.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Video_Player.pgbottomlcorner.Height = windowbordersize Video_Player.pgbottomrcorner.BackColor = windowborderbottomrightcolour Video_Player.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Video_Player.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Video_Player.pgbottomrcorner.Height = windowbordersize Else Video_Player.Close() End If If Name_Changer.Visible = True Then Name_Changer.titlebar.BackColor = titlebarcolour Name_Changer.pgtoplcorner.BackColor = titlebarleftcornercolour Name_Changer.pgtoprcorner.BackColor = titlebarrightcornercolour Name_Changer.pgleft.BackColor = windowborderleftcolour Name_Changer.pgleft.BackgroundImage = skinwindowborderleft(0) Name_Changer.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Name_Changer.pgright.BackColor = windowborderrightcolour Name_Changer.pgright.BackgroundImage = skinwindowborderright(0) Name_Changer.pgright.BackgroundImageLayout = skinwindowborderrightstyle Name_Changer.pgbottom.BackgroundImage = skinwindowborderbottom(0) Name_Changer.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Name_Changer.pgbottom.BackColor = windowborderbottomcolour Name_Changer.pgbottomlcorner.BackColor = windowborderbottomleftcolour Name_Changer.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Name_Changer.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Name_Changer.pgbottomlcorner.Height = windowbordersize Name_Changer.pgbottomrcorner.BackColor = windowborderbottomrightcolour Name_Changer.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Name_Changer.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Name_Changer.pgbottomrcorner.Height = windowbordersize Else Name_Changer.Close() End If If Icon_Manager.Visible = True Then Icon_Manager.titlebar.BackColor = titlebarcolour Icon_Manager.pgtoplcorner.BackColor = titlebarleftcornercolour Icon_Manager.pgtoprcorner.BackColor = titlebarrightcornercolour Icon_Manager.pgleft.BackColor = windowborderleftcolour Icon_Manager.pgleft.BackgroundImage = skinwindowborderleft(0) Icon_Manager.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Icon_Manager.pgright.BackColor = windowborderrightcolour Icon_Manager.pgright.BackgroundImage = skinwindowborderright(0) Icon_Manager.pgright.BackgroundImageLayout = skinwindowborderrightstyle Icon_Manager.pgbottom.BackgroundImage = skinwindowborderbottom(0) Icon_Manager.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Icon_Manager.pgbottom.BackColor = windowborderbottomcolour Icon_Manager.pgbottomlcorner.BackColor = windowborderbottomleftcolour Icon_Manager.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Icon_Manager.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Icon_Manager.pgbottomlcorner.Height = windowbordersize Icon_Manager.pgbottomrcorner.BackColor = windowborderbottomrightcolour Icon_Manager.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Icon_Manager.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Icon_Manager.pgbottomrcorner.Height = windowbordersize Else Icon_Manager.Close() End If If Bitnote_Wallet.Visible = True Then Bitnote_Wallet.titlebar.BackColor = titlebarcolour Bitnote_Wallet.pgtoplcorner.BackColor = titlebarleftcornercolour Bitnote_Wallet.pgtoprcorner.BackColor = titlebarrightcornercolour Bitnote_Wallet.pgleft.BackColor = windowborderleftcolour Bitnote_Wallet.pgleft.BackgroundImage = skinwindowborderleft(0) Bitnote_Wallet.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Bitnote_Wallet.pgright.BackColor = windowborderrightcolour Bitnote_Wallet.pgright.BackgroundImage = skinwindowborderright(0) Bitnote_Wallet.pgright.BackgroundImageLayout = skinwindowborderrightstyle Bitnote_Wallet.pgbottom.BackgroundImage = skinwindowborderbottom(0) Bitnote_Wallet.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Bitnote_Wallet.pgbottom.BackColor = windowborderbottomcolour Bitnote_Wallet.pgbottomlcorner.BackColor = windowborderbottomleftcolour Bitnote_Wallet.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Bitnote_Wallet.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Bitnote_Wallet.pgbottomlcorner.Height = windowbordersize Bitnote_Wallet.pgbottomrcorner.BackColor = windowborderbottomrightcolour Bitnote_Wallet.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Bitnote_Wallet.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Bitnote_Wallet.pgbottomrcorner.Height = windowbordersize Else Bitnote_Wallet.Close() End If If Bitnote_Digger.Visible = True Then Bitnote_Digger.titlebar.BackColor = titlebarcolour Bitnote_Digger.pgtoplcorner.BackColor = titlebarleftcornercolour Bitnote_Digger.pgtoprcorner.BackColor = titlebarrightcornercolour Bitnote_Digger.pgleft.BackColor = windowborderleftcolour Bitnote_Digger.pgleft.BackgroundImage = skinwindowborderleft(0) Bitnote_Digger.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Bitnote_Digger.pgright.BackColor = windowborderrightcolour Bitnote_Digger.pgright.BackgroundImage = skinwindowborderright(0) Bitnote_Digger.pgright.BackgroundImageLayout = skinwindowborderrightstyle Bitnote_Digger.pgbottom.BackgroundImage = skinwindowborderbottom(0) Bitnote_Digger.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Bitnote_Digger.pgbottom.BackColor = windowborderbottomcolour Bitnote_Digger.pgbottomlcorner.BackColor = windowborderbottomleftcolour Bitnote_Digger.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Bitnote_Digger.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Bitnote_Digger.pgbottomlcorner.Height = windowbordersize Bitnote_Digger.pgbottomrcorner.BackColor = windowborderbottomrightcolour Bitnote_Digger.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Bitnote_Digger.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Bitnote_Digger.pgbottomrcorner.Height = windowbordersize Else Bitnote_Digger.Close() End If If Skinshifter.Visible = True Then Skinshifter.titlebar.BackColor = titlebarcolour Skinshifter.pgtoplcorner.BackColor = titlebarleftcornercolour Skinshifter.pgtoprcorner.BackColor = titlebarrightcornercolour Skinshifter.pgleft.BackColor = windowborderleftcolour Skinshifter.pgleft.BackgroundImage = skinwindowborderleft(0) Skinshifter.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Skinshifter.pgright.BackColor = windowborderrightcolour Skinshifter.pgright.BackgroundImage = skinwindowborderright(0) Skinshifter.pgright.BackgroundImageLayout = skinwindowborderrightstyle Skinshifter.pgbottom.BackgroundImage = skinwindowborderbottom(0) Skinshifter.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Skinshifter.pgbottom.BackColor = windowborderbottomcolour Skinshifter.pgbottomlcorner.BackColor = windowborderbottomleftcolour Skinshifter.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Skinshifter.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Skinshifter.pgbottomlcorner.Height = windowbordersize Skinshifter.pgbottomrcorner.BackColor = windowborderbottomrightcolour Skinshifter.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Skinshifter.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Skinshifter.pgbottomrcorner.Height = windowbordersize Else Skinshifter.Close() End If If Shiftnet.Visible = True Then Shiftnet.titlebar.BackColor = titlebarcolour Shiftnet.pgtoplcorner.BackColor = titlebarleftcornercolour Shiftnet.pgtoprcorner.BackColor = titlebarrightcornercolour Shiftnet.pgleft.BackColor = windowborderleftcolour Shiftnet.pgleft.BackgroundImage = skinwindowborderleft(0) Shiftnet.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Shiftnet.pgright.BackColor = windowborderrightcolour Shiftnet.pgright.BackgroundImage = skinwindowborderright(0) Shiftnet.pgright.BackgroundImageLayout = skinwindowborderrightstyle Shiftnet.pgbottom.BackgroundImage = skinwindowborderbottom(0) Shiftnet.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Shiftnet.pgbottom.BackColor = windowborderbottomcolour Shiftnet.pgbottomlcorner.BackColor = windowborderbottomleftcolour Shiftnet.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Shiftnet.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Shiftnet.pgbottomlcorner.Height = windowbordersize Shiftnet.pgbottomrcorner.BackColor = windowborderbottomrightcolour Shiftnet.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Shiftnet.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Shiftnet.pgbottomrcorner.Height = windowbordersize Else Shiftnet.Close() End If If Downloader.Visible = True Then Downloader.titlebar.BackColor = titlebarcolour Downloader.pgtoplcorner.BackColor = titlebarleftcornercolour Downloader.pgtoprcorner.BackColor = titlebarrightcornercolour Downloader.pgleft.BackColor = windowborderleftcolour Downloader.pgleft.BackgroundImage = skinwindowborderleft(0) Downloader.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Downloader.pgright.BackColor = windowborderrightcolour Downloader.pgright.BackgroundImage = skinwindowborderright(0) Downloader.pgright.BackgroundImageLayout = skinwindowborderrightstyle Downloader.pgbottom.BackgroundImage = skinwindowborderbottom(0) Downloader.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Downloader.pgbottom.BackColor = windowborderbottomcolour Downloader.pgbottomlcorner.BackColor = windowborderbottomleftcolour Downloader.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Downloader.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Downloader.pgbottomlcorner.Height = windowbordersize Downloader.pgbottomrcorner.BackColor = windowborderbottomrightcolour Downloader.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Downloader.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Downloader.pgbottomrcorner.Height = windowbordersize Else Downloader.Close() End If If template.Visible = True Then template.titlebar.BackColor = titlebarcolour template.pgtoplcorner.BackColor = titlebarleftcornercolour template.pgtoprcorner.BackColor = titlebarrightcornercolour template.pgleft.BackColor = windowborderleftcolour template.pgleft.BackgroundImage = skinwindowborderleft(0) template.pgleft.BackgroundImageLayout = skinwindowborderleftstyle template.pgright.BackColor = windowborderrightcolour template.pgright.BackgroundImage = skinwindowborderright(0) template.pgright.BackgroundImageLayout = skinwindowborderrightstyle template.pgbottom.BackgroundImage = skinwindowborderbottom(0) template.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle template.pgbottom.BackColor = windowborderbottomcolour template.pgbottomlcorner.BackColor = windowborderbottomleftcolour template.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) template.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle template.pgbottomlcorner.Height = windowbordersize template.pgbottomrcorner.BackColor = windowborderbottomrightcolour template.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) template.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle template.pgbottomrcorner.Height = windowbordersize Else template.Close() End If If Terminal.Visible = True Then Terminal.titlebar.BackColor = titlebarcolour Terminal.pgtoplcorner.BackColor = titlebarleftcornercolour Terminal.pgtoprcorner.BackColor = titlebarrightcornercolour Terminal.pgleft.BackColor = windowborderleftcolour Terminal.pgleft.BackgroundImage = skinwindowborderleft(0) Terminal.pgleft.BackgroundImageLayout = skinwindowborderleftstyle Terminal.pgright.BackColor = windowborderrightcolour Terminal.pgright.BackgroundImage = skinwindowborderright(0) Terminal.pgright.BackgroundImageLayout = skinwindowborderrightstyle Terminal.pgbottom.BackColor = windowborderbottomcolour Terminal.pgbottom.BackgroundImage = skinwindowborderbottom(0) Terminal.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle Terminal.pgbottomlcorner.BackColor = windowborderbottomleftcolour Terminal.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) Terminal.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle Terminal.pgbottomlcorner.Height = windowbordersize Terminal.pgbottomrcorner.BackColor = windowborderbottomrightcolour Terminal.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) Terminal.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle Terminal.pgbottomrcorner.Height = windowbordersize Else Terminal.Close() End If End Sub Public Sub setupiconprocess(ByVal location As String, ByRef imagetochange As Image) If IO.File.Exists("C:\ShiftOS\Shiftum42\Icons\" & location & ".pic") Then imagetochange = GetImage("C:\ShiftOS\Shiftum42\Icons\" & location & ".pic") End If End Sub Public Sub setupicons() iconmanagericondatalines = IO.File.ReadAllLines("C:\ShiftOS\Shiftum42\Icons\icondata.dat") titlebariconsize = iconmanagericondatalines(0) panelbuttoniconsize = iconmanagericondatalines(1) launchericonsize = iconmanagericondatalines(2) setupiconprocess("titlebarartpadicon", artpadicontitlebar) setupiconprocess("titlebaraudioplayericon", audioplayericontitlebar) setupiconprocess("titlebarcalculatoricon", calculatoricontitlebar) setupiconprocess("titlebarclockicon", clockicontitlebar) setupiconprocess("titlebarcolourpickericon", colourpickericontitlebar) setupiconprocess("titlebarfileopenericon", fileopenericontitlebar) setupiconprocess("titlebarfilesavericon", filesavericontitlebar) setupiconprocess("titlebarfileskimmericon", fileskimmericontitlebar) setupiconprocess("titlebargraphicpickericon", graphicpickericontitlebar) setupiconprocess("titlebarinfoboxicon", infoboxicontitlebar) setupiconprocess("titlebarknowledgeinputicon", knowledgeinputicontitlebar) setupiconprocess("titlebarpongicon", pongicontitlebar) setupiconprocess("titlebarshiftericon", shiftericontitlebar) setupiconprocess("titlebarshiftoriumicon", shiftoriumicontitlebar) setupiconprocess("titlebarskinloadericon", skinloadericontitlebar) setupiconprocess("titlebarterminalicon", terminalicontitlebar) setupiconprocess("titlebartextpadicon", textpadicontitlebar) setupiconprocess("titlebarvideoplayericon", videoplayericontitlebar) setupiconprocess("titlebarwebbrowsericon", webbrowsericontitlebar) setupiconprocess("titlebarnamechangericon", namechangericontitlebar) setupiconprocess("titlebariconmanagericon", iconmanagericontitlebar) setupiconprocess("titlebarbitnotewalleticon", bitnotewalleticontitlebar) setupiconprocess("titlebarbitnotediggericon", bitnotediggericontitlebar) setupiconprocess("titlebarbitnotediggericon", bitnotediggericontitlebar) setupiconprocess("panelbuttonartpadicon", artpadiconpanelbutton) setupiconprocess("panelbuttonaudioplayericon", audioplayericonpanelbutton) setupiconprocess("panelbuttoncalculatoricon", calculatoriconpanelbutton) setupiconprocess("panelbuttonclockicon", clockiconpanelbutton) setupiconprocess("panelbuttoncolourpickericon", colourpickericonpanelbutton) setupiconprocess("panelbuttonfileopenericon", fileopenericonpanelbutton) setupiconprocess("panelbuttonfilesavericon", filesavericonpanelbutton) setupiconprocess("panelbuttonfileskimmericon", fileskimmericonpanelbutton) setupiconprocess("panelbuttongraphicpickericon", graphicpickericonpanelbutton) setupiconprocess("panelbuttoninfoboxicon", infoboxiconpanelbutton) setupiconprocess("panelbuttonknowledgeinputicon", knowledgeinputiconpanelbutton) setupiconprocess("panelbuttonpongicon", pongiconpanelbutton) setupiconprocess("panelbuttonshiftericon", shiftericonpanelbutton) setupiconprocess("panelbuttonshiftoriumicon", shiftoriumiconpanelbutton) setupiconprocess("panelbuttonskinloadericon", skinloadericonpanelbutton) setupiconprocess("panelbuttonterminalicon", terminaliconpanelbutton) setupiconprocess("panelbuttontextpadicon", textpadiconpanelbutton) setupiconprocess("panelbuttonvideoplayericon", videoplayericonpanelbutton) setupiconprocess("panelbuttonwebbrowsericon", webbrowsericonpanelbutton) setupiconprocess("panelbuttonnamechangericon", namechangericonpanelbutton) setupiconprocess("panelbuttoniconmanagericon", iconmanagericonpanelbutton) setupiconprocess("panelbuttonbitnotewalleticon", bitnotewalleticonpanelbutton) setupiconprocess("panelbuttonbitnotediggericon", bitnotediggericonpanelbutton) setupiconprocess("panelbuttonbitnotediggericon", bitnotediggericonpanelbutton) setupiconprocess("launcherartpadicon", artpadiconlauncher) setupiconprocess("launcheraudioplayericon", audioplayericonlauncher) setupiconprocess("launchercalculatoricon", calculatoriconlauncher) setupiconprocess("launcherclockicon", clockiconlauncher) setupiconprocess("launchercolourpickericon", colourpickericonlauncher) setupiconprocess("launcherfileopenericon", fileopenericonlauncher) setupiconprocess("launcherfilesavericon", filesavericonlauncher) setupiconprocess("launcherfileskimmericon", fileskimmericonlauncher) setupiconprocess("launchergraphicpickericon", graphicpickericonlauncher) setupiconprocess("launcherinfoboxicon", infoboxiconlauncher) setupiconprocess("launcherknowledgeinputicon", knowledgeinputiconlauncher) setupiconprocess("launcherpongicon", pongiconlauncher) setupiconprocess("launchershiftericon", shiftericonlauncher) setupiconprocess("launchershiftoriumicon", shiftoriumiconlauncher) setupiconprocess("launcherskinloadericon", skinloadericonlauncher) setupiconprocess("launcherterminalicon", terminaliconlauncher) setupiconprocess("launchertextpadicon", textpadiconlauncher) setupiconprocess("launchervideoplayericon", videoplayericonlauncher) setupiconprocess("launcherwebbrowsericon", webbrowsericonlauncher) setupiconprocess("launchernamechangericon", namechangericonlauncher) setupiconprocess("launchericonmanagericon", iconmanagericonlauncher) setupiconprocess("launcherbitnotewalleticon", bitnotewalleticonlauncher) setupiconprocess("launcherbitnotediggericon", bitnotediggericonlauncher) setupiconprocess("launcherbitnotediggericon", bitnotediggericonlauncher) setupiconprocess("launchershutdownicon", shutdowniconlauncher) End Sub Private Sub KnowledgeInputToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KnowledgeInputToolStripMenuItem.Click closeeverything() log = log & My.Computer.Clock.LocalTime & " User opened Knowledge Input from the app launcher" & Environment.NewLine Knowledge_Input.Show() Knowledge_Input.BringToFront() End Sub Private Sub ShiftoriumToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShiftoriumToolStripMenuItem.Click closeeverything() log = log & My.Computer.Clock.LocalTime & " User opened Shiftorium from the app launcher" & Environment.NewLine Shiftorium.Show() Shiftorium.BringToFront() End Sub Private Sub ClockToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClockToolStripMenuItem.Click closeeverything() log = log & My.Computer.Clock.LocalTime & " User opened Clock from the app launcher" & Environment.NewLine Clock.Show() Clock.BringToFront() End Sub Private Sub TerminalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TerminalToolStripMenuItem.Click closeeverything() log = log & My.Computer.Clock.LocalTime & " User opened Terminal from the app launcher" & Environment.NewLine Terminal.Show() Terminal.BringToFront() End Sub Private Sub CalculatorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CalculatorToolStripMenuItem.Click closeeverything() Calculator.Show() Calculator.BringToFront() End Sub Private Sub ApplicationsToolStripMenuItem_MouseEnter(sender As Object, e As EventArgs) Handles ApplicationsToolStripMenuItem.MouseEnter Me.Focus() ToolStripManager.Renderer = New MyToolStripRenderer() End Sub Private Sub ShutdownToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShutdownToolStripMenuItem.Click Terminal.Show() Terminal.BringToFront() log = log & My.Computer.Clock.LocalTime & " User Shut Down ShiftOS from the app launcher" & Environment.NewLine shutdownshiftos() End Sub Private Sub clocktick_Tick(sender As Object, e As EventArgs) Handles clocktick.Tick setclocktime() End Sub Private Sub setclocktime() If boughtsplitsecondtime = True Then paneltimetext.Text = TimeOfDay Else If boughtminuteaccuracytime = True Then If Date.Now.Hour < 12 Then paneltimetext.Text = TimeOfDay.Hour & ":" & Format(TimeOfDay.Minute, "00") & " AM" Else paneltimetext.Text = TimeOfDay.Hour - 12 & ":" & Format(TimeOfDay.Minute, "00") & " PM" End If Else If boughtpmandam = True Then If Date.Now.Hour < 12 Then paneltimetext.Text = TimeOfDay.Hour & " AM" Else paneltimetext.Text = TimeOfDay.Hour - 12 & " PM" End If Else If boughthourspastmidnight = True Then paneltimetext.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60 / 60) Else If boughtminutespastmidnight = True Then paneltimetext.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60) Else If boughtsecondspastmidnight = True Then paneltimetext.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds) End If End If End If End If End If End If End Sub Private Sub ShifterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShifterToolStripMenuItem.Click closeeverything() log = log & My.Computer.Clock.LocalTime & " User opened Shifter from the app launcher" & Environment.NewLine Shifter.Show() Shifter.BringToFront() End Sub Private Sub PongToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PongToolStripMenuItem.Click closeeverything() Pong.Show() Pong.BringToFront() End Sub Private Sub FileSkimmerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FileSkimmerToolStripMenuItem.Click closeeverything() File_Skimmer.Show() File_Skimmer.BringToFront() End Sub Private Sub TextPadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TextPadToolStripMenuItem.Click closeeverything() TextPad.Show() TextPad.BringToFront() End Sub Private Sub SkinLoaderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SkinLoaderToolStripMenuItem.Click closeeverything() Skin_Loader.Show() Skin_Loader.BringToFront() End Sub Private Sub ArtpadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ArtpadToolStripMenuItem.Click closeeverything() ArtPad.Show() ArtPad.BringToFront() End Sub Private Sub AudioplayerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AudioplayerToolStripMenuItem.Click closeeverything() Audio_Player.Show() Audio_Player.BringToFront() End Sub Private Sub WebBrowserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WebBrowserToolStripMenuItem.Click closeeverything() Web_Browser.Show() Web_Browser.BringToFront() If Web_Browser.Location.Y <= 0 Then Web_Browser.Location = New Point(Web_Browser.Location.X, Web_Browser.Location.Y + 5000) Web_Browser.resettitlebar() End Sub Private Sub VideoplayerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VideoplayerToolStripMenuItem.Click closeeverything() Video_Player.Show() Video_Player.BringToFront() End Sub Private Sub NameChangerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NameChangerToolStripMenuItem.Click closeeverything() Name_Changer.Show() Name_Changer.BringToFront() End Sub Private Sub IconManagerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IconManagerToolStripMenuItem.Click closeeverything() Icon_Manager.Show() Icon_Manager.BringToFront() End Sub Private Sub bitnotewalletToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BitnoteWalletToolStripMenuItem.Click closeeverything() Bitnote_Wallet.Show() Bitnote_Wallet.BringToFront() End Sub Private Sub bitnotediggerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BitnoteDiggerToolStripMenuItem.Click closeeverything() Bitnote_Digger.Show() Bitnote_Digger.BringToFront() End Sub Private Sub SkinshifterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SkinShifterToolStripMenuItem.Click closeeverything() Skinshifter.Show() Skinshifter.BringToFront() End Sub Private Sub ShiftnetToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShiftnetToolStripMenuItem.Click closeeverything() Shiftnet.Show() Shiftnet.BringToFront() End Sub Private Sub autosave_Tick(sender As Object, e As EventArgs) Handles autosave.Tick savegame() End Sub Public Sub ApplicationsToolStripMenuItem_Paint(sender As Object, e As PaintEventArgs) Handles ApplicationsToolStripMenuItem.Paint If skinapplauncherbutton(0) Is Nothing Then Else e.Graphics.DrawImage(skinapplauncherbutton(0), 0, 0, skinapplauncherbutton(0).Width, skinapplauncherbutton(0).Height) End If End Sub Public Sub minimizeprogram(ByVal whatprogram As Form) If whatprogram.Location.Y > 0 Then whatprogram.Location = New Point(whatprogram.Location.X, whatprogram.Location.Y - 5000) Else whatprogram.Location = New Point(whatprogram.Location.X, whatprogram.Location.Y + 5000) whatprogram.BringToFront() End If End Sub Private Sub pnlpanelbuttonclock_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonclock.Click, tbclockicon.Click, tbclocktext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Clock) End If End Sub Private Sub pnlpanelbuttoncolourpicker_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttoncolourpicker.Click, tbcolourpickericon.Click, tbcolourpickertext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Colour_Picker) End If End Sub Private Sub pnlpanelbuttonfileopener_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonfileopener.Click, tbfileopenericon.Click, tbfileopenertext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(File_Opener) End If End Sub Private Sub pnlpanelbuttonfilesaver_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonfilesaver.Click, tbfilesavericon.Click, tbfilesavertext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(File_Saver) End If End Sub Private Sub pnlpanelbuttonfileskimmer_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonfileskimmer.Click, tbfileskimmericon.Click, tbfileskimmertext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(File_Skimmer) End If End Sub Private Sub pnlpanelbuttongraphicpicker_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttongraphicpicker.Click, tbgraphicpickericon.Click, tbgraphicpickertext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Graphic_Picker) End If End Sub Private Sub pnlpanelbuttoninfobox_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttoninfobox.Click, tbinfoboxicon.Click, tbinfoboxtext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(infobox) End If End Sub Private Sub pnlpanelbuttonknowledgeinput_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonknowledgeinput.Click, tbknowledgeinputicon.Click, tbknowledgeinputtext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Knowledge_Input) End If End Sub Private Sub pnlpanelbuttonpong_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonpong.Click, tbpongicon.Click, tbpongtext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Pong) End If End Sub Private Sub pnlpanelbuttonshifter_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonshifter.Click, tbshiftericon.Click, tbshiftertext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Shifter) End If End Sub Private Sub pnlpanelbuttonshiftorium_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonshiftorium.Click, tbshiftoriumicon.Click, tbshiftoriumtext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Shiftorium) End If End Sub Private Sub pnlpanelbuttonskinloader_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonskinloader.Click, tbskinloadericon.Click, tbskinloadertext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Skin_Loader) End If End Sub Private Sub pnlpanelbuttonterminal_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonterminal.Click, tbterminalicon.Click, tbterminaltext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Terminal) End If End Sub Private Sub pnlpanelbuttontextpad_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttontextpad.Click, tbtextpadicon.Click, tbtextpadtext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(TextPad) End If End Sub Private Sub pnlpanelbuttonartpad_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonartpad.Click, tbartpadicon.Click, tbartpadtext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(ArtPad) End If End Sub Private Sub pnlpanelbuttoncalculator_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttoncalculator.Click, tbcalculatoricon.Click, tbcalculatortext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Calculator) End If End Sub Private Sub pnlpanelbuttonaudioplayer_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonaudioplayer.Click, tbaudioplayericon.Click, tbaudioplayertext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Audio_Player) End If End Sub Private Sub pnlpanelbuttonwebbrowser_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonwebbrowser.Click, tbwebbrowsericon.Click, tbwebbrowsertext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Web_Browser) End If End Sub Private Sub pnlpanelbuttonvideoplayer_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonvideoplayer.Click, tbvideoplayericon.Click, tbvideoplayertext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Video_Player) End If End Sub Private Sub pnlpanelbuttonnamechanger_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonnamechanger.Click, tbnamechangericon.Click, tbnamechangertext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Name_Changer) End If End Sub Private Sub pnlpanelbuttoniconmanager_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttoniconmanager.Click, tbiconmanagericon.Click, tbiconmanagertext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Icon_Manager) End If End Sub Private Sub pnlpanelbuttonbitnotewallet_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonbitnotewallet.Click, tbbitnotewalleticon.Click, tbbitnotewallettext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Bitnote_Wallet) End If End Sub Private Sub pnlpanelbuttonbitnotedigger_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonbitnotedigger.Click, tbbitnotediggericon.Click, tbbitnotediggertext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Bitnote_Digger) End If End Sub Private Sub pnlpanelbuttonskinshifter_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonskinshifter.Click, tbskinshiftericon.Click, tbskinshiftertext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Skinshifter) End If End Sub Private Sub pnlpanelbuttonShiftnet_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonshiftnet.Click, tbshiftneticon.Click, tbshiftnettext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Shiftnet) End If End Sub Private Sub pnlpanelbuttonDownloader_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttondownloader.Click, tbdownloadericon.Click, tbdownloadertext.Click If boughtusefulpanelbuttons = True Then minimizeprogram(Downloader) End If End Sub End Class