diff options
Diffstat (limited to 'ShiftOS/ShiftOSDesktop.vb')
| -rw-r--r-- | ShiftOS/ShiftOSDesktop.vb | 4092 |
1 files changed, 4092 insertions, 0 deletions
diff --git a/ShiftOS/ShiftOSDesktop.vb b/ShiftOS/ShiftOSDesktop.vb new file mode 100644 index 0000000..854649d --- /dev/null +++ b/ShiftOS/ShiftOSDesktop.vb @@ -0,0 +1,4092 @@ +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
\ No newline at end of file |