JanusWM small foundation

ShiftOS-TheRevival/API/TerminalAPI.vb

@@ -11,13 +11,15 @@ Module TerminalAPI
         Strings.OnceInfo(4) = "!"
         If IsConsoleParent = True Then
             Console.TopMost = False
-            Cursor.Hide()
             Strings.OnceInfo(7) = Console.Width
             Strings.OnceInfo(8) = Console.Height
+            Console.TextBox1.Font = New Font("Consolas", 11)
+            Console.ConsoleFontHandle.Stop()
+            Cursor.Hide()
             If Strings.IsFree = True Then
                 Strings.ComputerInfo(0) = "shiftos"
                 Strings.ComputerInfo(1) = "user"
-                Strings.ComputerInfo(7) = 1
+                Strings.ComputerInfo(7) = 2
                 Terminal_CheckFeature()
                 Terminal_PrintPrompt()
                 Terminal_AssignPrompt()
@@ -52,11 +54,17 @@ Module TerminalAPI
                 End If
             End If
         Else
-            Cursor.Show()
             Console_Windowed()
             Console.TopMost = True
+            Try
+                Console.TextBox1.Font = GUISCustomizations.GUIConsoleFont
+            Catch ex As Exception
+                Console.TextBox1.Font = New Font("Consolas", 11)
+            End Try
             Terminal_PrintPrompt()
             Terminal_AssignPrompt()
+            Cursor.Show()
+            Console.ConsoleFontHandle.Start()
         End If
         Console.CurrentDirectory = Strings.OnceInfo(1)
         Console.Pseudodir = Console.CurrentDirectory.Replace(Strings.OnceInfo(1), "!\")
@@ -189,6 +197,8 @@ Module TerminalAPI
             Case "05tray"
                 _05tray()
                 NewLine("you cheater!")
+            Case "anus"
+                AnusWM_Menu.Show()
             Case "applist"
                 If IsStartG = True Then
                     AppList()

ShiftOS-TheRevival/Functions/InGame/ROMs/GUISCustomizations.vb

@@ -1,4 +1,6 @@
 Public Class GUISCustomizations
     'Desktop Stuff
     Public Shared DesktopColor As Color
+    'Console Stuff
+    Public Shared GUIConsoleFont As Font
 End Class

ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb

@@ -3,11 +3,11 @@
     Public Shared ComputerInfo(7) As String
     Public Shared IsFree As Boolean
     Public Shared OnceInfo(8) As String
-    Public Shared AvailableFeature(41) As String
+    Public Shared AvailableFeature(53) As String
     Public Shared CLIInterpreter As String
     Public Shared SaveFile As String
     Public Shared Achievement As String
-    Public Shared ProcessID(1) As String
+    Public Shared ProcessID(15) As String
 
     'STRING CATEGORIZATION WRITING RULES!
     'THIS IS IN ORDER TO REMAIN COMPATIBLE WITH OLDER VERSIONS!
@@ -96,6 +96,18 @@
     '39 = KI Fruits [Adds fruit category into the Knowledge Input] (default : 0)
     '40 = DuWM RGB Support [Adds RGB and its other variant support to DuWM] (default : 0)
     '41 = DuWM 16 Colors Support [Adds mix of RGB color support into ShiftOS] (default : 0)
+    '42 = KI US States [Adds United States States category into the Knowledge Input] (default : 0)
+    '43 = DuWM Advanced Read and Write [Expands read and write support for DuWM] (default : 0)
+    '44 = File Skimmer [A file manager for ShiftOS] (default : 0)
+    '45 = File Skimmer Folder Support [Supports for reading and writing folder in File Skimmer] (default : 0)
+    '46 = File Skimmer File Support [Supports for reading and writing file in File Skimmer] (default : 0)
+    '47 = File Skimmer Delete Support [Adds file deletion function into ShiftOS] (default : 0)
+    '48 = File Skimmer ZIP Support [Adds ZIP compression function into ShiftOS] (default : 0)
+    '49 = File Skimmer Properties Pane [Adds a sidebar contains file/directory informations] (default : 0)
+    '50 = File Skimmer JobBar [Adds a top bar for actions on File Skimmer] (default : 0)
+    '51 = File Skimmer Small Icons [Adds small icons layout on File Skimmer] (default : 0)
+    '52 = File Skimmer List [Adds small icons layout on File Skimmer] (default : 0)
+    '53 = Shifter Console [Adds Console Customization on Shifter] (default : 0)
     '
     'Features bought hierarchy :
     '
@@ -142,7 +154,19 @@
     '>>DuWM RGB Support (DUWMRGB) (225 CP)
     '>>>DuWM 16 Colors Support (DUWMRGB2) (275 CP)
     '>>Shifter (SHIFTER) (250 CP)
+    '>>>Shifter Console (SHR_CONSOLE) (275 CP)
     '>>Knowledge Input (KNOWLEDGE) (275 CP)
     '>>>KI Animals (KI_ANIMALS) (300 CP)
     '>>>KI Fruits (KI_FRUITS) (300 CP)
+    '>>>KI US States (KI_US) (300 CP)
+    '>>DuWM Advanced Read and Write support (DUWM_RW) (250 CP)
+    '>>>File Skimmer (FILESKIMMER) (300 CP)
+    '>>>>FS Folder Support (FS_FOLDER) (325 CP)
+    '>>>>>FS File Support (FS_FILE) (350 CP)
+    '>>>>>>FS Delete Support (FS_DELETE) (400 CP)
+    '>>>>>>FS ZIP Support (FS_ZIP) (500 CP)
+    '>>>>FS Properties Pane (FS_PPANE) (350 CP)
+    '>>>>FS JobBar (FS_JOBBAR) (400 CP)
+    '>>>>>FS Small Icons Layout (FS_SMALLICONS) (425 CP)
+    '>>>>>FS List Layout (FS_LIST) (425 CP)
 End Class

ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb

@@ -142,15 +142,18 @@
             If Strings.AvailableFeature(36) = 0 Then
                 NewLine("(shifter | 250 CP) Shifter")
             Else
+                If Strings.AvailableFeature(53) = 0 Then
+                    NewLine("(shr_console | 275 CP) Shifter Console")
+                End If
                 If Strings.AvailableFeature(40) = 0 Then
-                    NewLine("(duwmrgb | 225 CP) DuWM RGB Support")
+                        NewLine("(duwmrgb | 225 CP) DuWM RGB Support")
-                Else
+                    Else
-                    If Strings.AvailableFeature(41) = 0 Then
+                        If Strings.AvailableFeature(41) = 0 Then
-                        NewLine("(duwmrgb2 | 275 CP) DuWM 16 Color Support")
+                            NewLine("(duwmrgb2 | 275 CP) DuWM 16 Color Support")
+                        End If
                     End If
                 End If
-            End If
+            If Strings.AvailableFeature(37) = 0 Then
-                If Strings.AvailableFeature(37) = 0 Then
                 NewLine("(knowledge | 275 CP) Knowledge Input")
             Else
                 If Strings.AvailableFeature(38) = 0 Then
@@ -159,6 +162,44 @@
                 If Strings.AvailableFeature(39) = 0 Then
                     NewLine("(ki_fruits | 300 CP) KI Fruits")
                 End If
+                If Strings.AvailableFeature(42) = 0 Then
+                    NewLine("(ki_us | 300 CP) KI US States")
+                End If
+            End If
+            If Strings.AvailableFeature(43) = 0 Then
+                NewLine("(duwm_rw | 250 CP) DuWM Advanced Read and Write support")
+            Else
+                If Strings.AvailableFeature(44) = 0 Then
+                    NewLine("(fileskimmer | 300 CP) File Skimmer")
+                Else
+                    If Strings.AvailableFeature(45) = 0 Then
+                        NewLine("(fs_folder | 325 CP) FS Folder Support")
+                    Else
+                        If Strings.AvailableFeature(46) = 0 Then
+                            NewLine("(fs_file | 350 CP) FS File Support")
+                        Else
+                            If Strings.AvailableFeature(47) = 0 Then
+                                NewLine("(fs_delete | 400 CP) FS Delete Support")
+                            End If
+                            If Strings.AvailableFeature(48) = 0 Then
+                                NewLine("(fs_zip | 500 CP) FS ZIP Support")
+                            End If
+                        End If
+                    End If
+                    If Strings.AvailableFeature(49) = 0 Then
+                        NewLine("(fs_ppane | 350 CP) FS Property Pane")
+                    End If
+                    If Strings.AvailableFeature(50) = 0 Then
+                        NewLine("(fs_jobbar | 400 CP) FS JobBar")
+                    Else
+                        If Strings.AvailableFeature(51) = 0 Then
+                            NewLine("(fs_smallicons | 425 CP) FS Small Icons Layout")
+                        End If
+                        If Strings.AvailableFeature(52) = 0 Then
+                            NewLine("(fs_list | 425 CP) FS List Layout")
+                        End If
+                    End If
+                End If
             End If
         End If
     End Sub
@@ -495,6 +536,182 @@
                     NewLine(ManHeader(1))
                     NormalCommand()
                 End If
+            Case "ki_animals"
+                If Strings.AvailableFeature(38) = 0 Then
+                    ManHeader(0) = "KI Animals"
+                    ManHeader(1) = "300 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Adds animals category into Knowledge Input")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "ki_fruits"
+                If Strings.AvailableFeature(39) = 0 Then
+                    ManHeader(0) = "KI Fruits"
+                    ManHeader(1) = "300 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Adds fruits category into Knowledge Input")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "duwmrgb"
+                If Strings.AvailableFeature(40) = 0 Then
+                    ManHeader(0) = "DuWM RGB support"
+                    ManHeader(1) = "225 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Adds Red, Green, and Blue and its darker/lighter color support for Dual Window Manager")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "duwmrgb2"
+                If Strings.AvailableFeature(41) = 0 Then
+                    ManHeader(0) = "DuWM 16 Colors support"
+                    ManHeader(1) = "275 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Adds 16 colors support for Dual Window Manager")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "ki_us"
+                If Strings.AvailableFeature(42) = 0 Then
+                    ManHeader(0) = "KI US States"
+                    ManHeader(1) = "300 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Adds US States category into Knowledge Input")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "duwm_rw"
+                If Strings.AvailableFeature(43) = 0 Then
+                    ManHeader(0) = "DuWM Advanced Read and Write support"
+                    ManHeader(1) = "250 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Expands read and write support for Dual Window Manager")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "fileskimmer"
+                If Strings.AvailableFeature(44) = 0 Then
+                    ManHeader(0) = "File Skimmer"
+                    ManHeader(1) = "300 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("A file manager for ShiftOS")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "fs_folder"
+                If Strings.AvailableFeature(45) = 0 Then
+                    ManHeader(0) = "FS Folder support"
+                    ManHeader(1) = "325 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Adds folder read and write support for File Skimmer")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "fs_file"
+                If Strings.AvailableFeature(46) = 0 Then
+                    ManHeader(0) = "FS File support"
+                    ManHeader(1) = "350 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Adds file read and write support for File Skimmer")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "fs_delete"
+                If Strings.AvailableFeature(47) = 0 Then
+                    ManHeader(0) = "FS Delete support"
+                    ManHeader(1) = "400 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Supports file or directory deletion function in ShiftOS")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "fs_zip"
+                If Strings.AvailableFeature(48) = 0 Then
+                    ManHeader(0) = "FS Delete support"
+                    ManHeader(1) = "500 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Supports ZIP compression function in ShiftOS")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "fs_ppane"
+                If Strings.AvailableFeature(49) = 0 Then
+                    ManHeader(0) = "FS Property Pane"
+                    ManHeader(1) = "350 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("A sidebar for displaying informations about the file / directory")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "fs_jobbar"
+                If Strings.AvailableFeature(50) = 0 Then
+                    ManHeader(0) = "FS JobBar"
+                    ManHeader(1) = "400 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("A top panel contains certain actions for File Skimmer")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "fs_smallicons"
+                If Strings.AvailableFeature(51) = 0 Then
+                    ManHeader(0) = "FS Small Icons Layout"
+                    ManHeader(1) = "425 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Adds small icons as a display layout in File Skimmer")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "fs_list"
+                If Strings.AvailableFeature(52) = 0 Then
+                    ManHeader(0) = "FS List"
+                    ManHeader(1) = "425 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Adds list as a display layout in File Skimmer")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "shr_console"
+                If Strings.AvailableFeature(53) = 0 Then
+                    ManHeader(0) = "Shifter Console"
+                    ManHeader(1) = "275 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Adds Console customability on Shifter")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
             Case Else
                 NormalCommand()
                 Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
@@ -631,6 +848,42 @@
             Case "duwmrgb2"
                 Shiftorium_InstallFeatures(True, "duwmrgb2", 41, 275)
                 NormalCommand()
+            Case "ki_us"
+                Shiftorium_InstallFeatures(True, "ki_us", 42, 300)
+                NormalCommand()
+            Case "duwm_rw"
+                Shiftorium_InstallFeatures(True, "duwm_rw", 43, 250)
+                NormalCommand()
+            Case "fileskimmer"
+                Shiftorium_InstallFeatures(True, "fileskimmer", 44, 300)
+                NormalCommand()
+            Case "fs_folder"
+                Shiftorium_InstallFeatures(True, "fs_folder", 45, 325)
+                NormalCommand()
+            Case "fs_file"
+                Shiftorium_InstallFeatures(True, "fs_file", 46, 350)
+                NormalCommand()
+            Case "fs_delete"
+                Shiftorium_InstallFeatures(True, "fs_delete", 47, 400)
+                NormalCommand()
+            Case "fs_zip"
+                Shiftorium_InstallFeatures(True, "fs_zip", 48, 500)
+                NormalCommand()
+            Case "fs_ppane"
+                Shiftorium_InstallFeatures(True, "fs_ppane", 49, 350)
+                NormalCommand()
+            Case "fs_jobbar"
+                Shiftorium_InstallFeatures(True, "fs_jobbar", 50, 400)
+                NormalCommand()
+            Case "fs_smallicons"
+                Shiftorium_InstallFeatures(True, "fs_smallicons", 51, 425)
+                NormalCommand()
+            Case "fs_list"
+                Shiftorium_InstallFeatures(True, "fs_list", 52, 425)
+                NormalCommand()
+            Case "shr_console"
+                Shiftorium_InstallFeatures(True, "shr_console", 53, 275)
+                NormalCommand()
             Case Else
                 NormalCommand()
                 NewLine("Shiftorium: Bad command or not available")
@@ -799,18 +1052,22 @@
                             Strings.AvailableFeature(35) = "1"
                             Strings.ComputerInfo(7) = 1
                             GUISCustomizations.DesktopColor = Color.Black
+                            GUISCustomizations.GUIConsoleFont = New Font("Consolas", 11)
                             Strings.AvailableFeature(36) = "0"
                             Strings.AvailableFeature(37) = "0"
+                            Strings.AvailableFeature(43) = "0"
                             success = True
                         Case "shifter"
                             Strings.AvailableFeature(36) = "1"
                             Strings.AvailableFeature(40) = "0"
                             Strings.AvailableFeature(41) = "0"
+                            Strings.AvailableFeature(53) = "0"
                             success = True
                         Case "knowledge"
                             Strings.AvailableFeature(37) = "1"
                             Strings.AvailableFeature(38) = "0"
                             Strings.AvailableFeature(39) = "0"
+                            Strings.AvailableFeature(42) = "0"
                             success = True
                         Case "ki_animals"
                             Strings.AvailableFeature(38) = "1"
@@ -825,6 +1082,51 @@
                             Strings.AvailableFeature(40) = "3"
                             Strings.AvailableFeature(41) = "1"
                             success = True
+                        Case "ki_us"
+                            Strings.AvailableFeature(42) = "1"
+                            success = True
+                        Case "duwm_rw"
+                            Strings.AvailableFeature(43) = "1"
+                            Strings.AvailableFeature(44) = "0"
+                            success = True
+                        Case "fileskimmer"
+                            Strings.AvailableFeature(44) = "1"
+                            Strings.AvailableFeature(45) = "0"
+                            Strings.AvailableFeature(49) = "0"
+                            Strings.AvailableFeature(50) = "0"
+                            success = True
+                        Case "fs_folder"
+                            Strings.AvailableFeature(45) = "1"
+                            Strings.AvailableFeature(46) = "0"
+                            success = True
+                        Case "fs_file"
+                            Strings.AvailableFeature(46) = "1"
+                            Strings.AvailableFeature(47) = "0"
+                            Strings.AvailableFeature(48) = "0"
+                            success = True
+                        Case "fs_delete"
+                            Strings.AvailableFeature(47) = "1"
+                            success = True
+                        Case "fs_zip"
+                            Strings.AvailableFeature(48) = "1"
+                            success = True
+                        Case "fs_ppane"
+                            Strings.AvailableFeature(49) = "1"
+                            success = True
+                        Case "fs_jobbar"
+                            Strings.AvailableFeature(50) = "1"
+                            Strings.AvailableFeature(51) = "0"
+                            Strings.AvailableFeature(52) = "0"
+                            success = True
+                        Case "fs_smallicons"
+                            Strings.AvailableFeature(51) = "1"
+                            success = True
+                        Case "fs_list"
+                            Strings.AvailableFeature(52) = "1"
+                            success = True
+                        Case "shr_console"
+                            Strings.AvailableFeature(53) = "1"
+                            success = True
                     End Select
                     If success = False Then
                         If IsCLI = True Then

ShiftOS-TheRevival/Functions/InGame/SystemManager/Terminate.vb

@@ -12,6 +12,7 @@
         Cursor.Show()
         NewLine("Shutting down...")
         ShiftOSMenu.Show()
+        Cursor.Show()
         If IsStartG = False Then
             Console.Close()
         End If

ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb

@@ -2,7 +2,7 @@
 
 Module SaveLoadSystem
 
-    Public Sub NewGameMode()
+    Public Sub NewGameMode(Chapter As Integer)
         'Sets all features to 2 (Unavailable for Shiftorium) except ShiftOS Key (AvailableFeatures(11))
         Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", True)
         Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS", True)
@@ -14,52 +14,128 @@ Module SaveLoadSystem
         Strings.ComputerInfo(1) = "user"
         Strings.ComputerInfo(2) = "0"
         Strings.ComputerInfo(4) = "0"
-        Strings.AvailableFeature(0) = "2"
+        Select Case Chapter
-        Strings.AvailableFeature(1) = "2"
+            Case 0
-        Strings.AvailableFeature(2) = "2"
+                Strings.AvailableFeature(0) = "2"
-        Strings.AvailableFeature(3) = "2"
+                Strings.AvailableFeature(1) = "2"
-        Strings.AvailableFeature(4) = "2"
+                Strings.AvailableFeature(2) = "2"
-        Strings.AvailableFeature(5) = "2"
+                Strings.AvailableFeature(3) = "2"
-        Strings.AvailableFeature(6) = "2"
+                Strings.AvailableFeature(4) = "2"
-        Strings.AvailableFeature(7) = "2"
+                Strings.AvailableFeature(5) = "2"
-        Strings.AvailableFeature(8) = "2"
+                Strings.AvailableFeature(6) = "2"
-        Strings.AvailableFeature(9) = "2"
+                Strings.AvailableFeature(7) = "2"
-        Strings.AvailableFeature(10) = "2"
+                Strings.AvailableFeature(8) = "2"
-        Strings.AvailableFeature(11) = "0"
+                Strings.AvailableFeature(9) = "2"
-        Strings.AvailableFeature(12) = "2"
+                Strings.AvailableFeature(10) = "2"
-        Strings.AvailableFeature(13) = "2"
+                Strings.AvailableFeature(11) = "0"
-        Strings.AvailableFeature(14) = "2"
+                Strings.AvailableFeature(12) = "2"
-        Strings.AvailableFeature(15) = "2"
+                Strings.AvailableFeature(13) = "2"
-        '0.2.4 Features
+                Strings.AvailableFeature(14) = "2"
-        Strings.AvailableFeature(16) = "2"
+                Strings.AvailableFeature(15) = "2"
-        Strings.AvailableFeature(17) = "2"
+                '0.2.4 Features
-        Strings.AvailableFeature(18) = "2"
+                Strings.AvailableFeature(16) = "2"
-        Strings.AvailableFeature(19) = "2"
+                Strings.AvailableFeature(17) = "2"
-        Strings.AvailableFeature(20) = "2"
+                Strings.AvailableFeature(18) = "2"
-        Strings.AvailableFeature(21) = "2"
+                Strings.AvailableFeature(19) = "2"
-        Strings.AvailableFeature(22) = "2"
+                Strings.AvailableFeature(20) = "2"
-        '0.2.5 Features
+                Strings.AvailableFeature(21) = "2"
-        Strings.AvailableFeature(23) = "2"
+                Strings.AvailableFeature(22) = "2"
-        Strings.AvailableFeature(24) = "2"
+                '0.2.5 Features
-        Strings.AvailableFeature(25) = "2"
+                Strings.AvailableFeature(23) = "2"
-        Strings.AvailableFeature(26) = "2"
+                Strings.AvailableFeature(24) = "2"
-        Strings.AvailableFeature(27) = "2"
+                Strings.AvailableFeature(25) = "2"
-        Strings.AvailableFeature(28) = "2"
+                Strings.AvailableFeature(26) = "2"
-        Strings.AvailableFeature(29) = "2"
+                Strings.AvailableFeature(27) = "2"
-        Strings.AvailableFeature(30) = "2"
+                Strings.AvailableFeature(28) = "2"
-        '0.2.6 Features
+                Strings.AvailableFeature(29) = "2"
-        Strings.AvailableFeature(31) = "2"
+                Strings.AvailableFeature(30) = "2"
-        Strings.AvailableFeature(32) = "2"
+                '0.2.6 Features
-        Strings.AvailableFeature(33) = "2"
+                Strings.AvailableFeature(31) = "2"
-        '0.2.7 Features
+                Strings.AvailableFeature(32) = "2"
-        Strings.AvailableFeature(34) = "2"
+                Strings.AvailableFeature(33) = "2"
-        Strings.AvailableFeature(35) = "2"
+                '0.2.7 Features
-        Strings.AvailableFeature(36) = "2"
+                Strings.AvailableFeature(34) = "2"
-        Strings.AvailableFeature(37) = "2"
+                Strings.AvailableFeature(35) = "2"
-        Strings.AvailableFeature(38) = "2"
+                Strings.AvailableFeature(36) = "2"
-        Strings.AvailableFeature(39) = "2"
+                Strings.AvailableFeature(37) = "2"
-        Strings.AvailableFeature(40) = "2"
+                Strings.AvailableFeature(38) = "2"
-        Strings.AvailableFeature(41) = "2"
+                Strings.AvailableFeature(39) = "2"
+                Strings.AvailableFeature(40) = "2"
+                Strings.AvailableFeature(41) = "2"
+                '0.2.8 Features
+                Strings.AvailableFeature(42) = "2"
+                Strings.AvailableFeature(43) = "2"
+                Strings.AvailableFeature(44) = "2"
+                Strings.AvailableFeature(45) = "2"
+                Strings.AvailableFeature(46) = "2"
+                Strings.AvailableFeature(47) = "2"
+                Strings.AvailableFeature(48) = "2"
+                Strings.AvailableFeature(49) = "2"
+                Strings.AvailableFeature(50) = "2"
+                Strings.AvailableFeature(51) = "2"
+                Strings.AvailableFeature(52) = "2"
+                Strings.AvailableFeature(53) = "2"
+            Case 1
+                Strings.AvailableFeature(0) = "1"
+                Strings.AvailableFeature(1) = "1"
+                Strings.AvailableFeature(2) = "1"
+                Strings.AvailableFeature(3) = "1"
+                Strings.AvailableFeature(4) = "1"
+                Strings.AvailableFeature(5) = "3"
+                Strings.AvailableFeature(6) = "3"
+                Strings.AvailableFeature(7) = "3"
+                Strings.AvailableFeature(8) = "1"
+                Strings.AvailableFeature(9) = "1"
+                Strings.AvailableFeature(10) = "1"
+                Strings.AvailableFeature(11) = "1"
+                Strings.AvailableFeature(12) = "3"
+                Strings.AvailableFeature(13) = "1"
+                Strings.AvailableFeature(14) = "1"
+                Strings.AvailableFeature(15) = "1"
+                '0.2.4 Features
+                Strings.AvailableFeature(16) = "1"
+                Strings.AvailableFeature(17) = "1"
+                Strings.AvailableFeature(18) = "1"
+                Strings.AvailableFeature(19) = "1"
+                Strings.AvailableFeature(20) = "1"
+                Strings.AvailableFeature(21) = "1"
+                Strings.AvailableFeature(22) = "1"
+                '0.2.5 Features
+                Strings.AvailableFeature(23) = "1"
+                Strings.AvailableFeature(24) = "3"
+                Strings.AvailableFeature(25) = "3"
+                Strings.AvailableFeature(26) = "3"
+                Strings.AvailableFeature(27) = "3"
+                Strings.AvailableFeature(28) = "3"
+                Strings.AvailableFeature(29) = "1"
+                Strings.AvailableFeature(30) = "1"
+                '0.2.6 Features
+                Strings.AvailableFeature(31) = "1"
+                Strings.AvailableFeature(32) = "1"
+                Strings.AvailableFeature(33) = "1"
+                '0.2.7 Features
+                Strings.AvailableFeature(34) = "1"
+                Strings.AvailableFeature(35) = "2"
+                Strings.AvailableFeature(36) = "2"
+                Strings.AvailableFeature(37) = "2"
+                Strings.AvailableFeature(38) = "2"
+                Strings.AvailableFeature(39) = "2"
+                Strings.AvailableFeature(40) = "2"
+                Strings.AvailableFeature(41) = "2"
+                '0.2.8 Features
+                Strings.AvailableFeature(42) = "2"
+                Strings.AvailableFeature(43) = "2"
+                Strings.AvailableFeature(44) = "2"
+                Strings.AvailableFeature(45) = "2"
+                Strings.AvailableFeature(46) = "2"
+                Strings.AvailableFeature(47) = "2"
+                Strings.AvailableFeature(48) = "2"
+                Strings.AvailableFeature(49) = "2"
+                Strings.AvailableFeature(50) = "2"
+                Strings.AvailableFeature(51) = "2"
+                Strings.AvailableFeature(52) = "2"
+                Strings.AvailableFeature(53) = "2"
+        End Select
     End Sub
 
     Public Sub FreeRoamMode()
@@ -68,7 +144,7 @@ Module SaveLoadSystem
         Strings.ComputerInfo(0) = "shiftos"
         Strings.ComputerInfo(1) = "user"
         Strings.ComputerInfo(2) = "0"
-        Strings.ComputerInfo(4) = "42"
+        Strings.ComputerInfo(4) = "53"
         Strings.AvailableFeature(0) = "1"
         Strings.AvailableFeature(1) = "1"
         Strings.AvailableFeature(2) = "1"
@@ -115,13 +191,29 @@ Module SaveLoadSystem
         Strings.AvailableFeature(39) = "1"
         Strings.AvailableFeature(40) = "3"
         Strings.AvailableFeature(41) = "1"
+        '0.2.8 Features
+        Strings.AvailableFeature(42) = "1"
+        Strings.AvailableFeature(43) = "1"
+        Strings.AvailableFeature(44) = "1"
+        Strings.AvailableFeature(45) = "1"
+        Strings.AvailableFeature(46) = "1"
+        Strings.AvailableFeature(47) = "1"
+        Strings.AvailableFeature(48) = "1"
+        Strings.AvailableFeature(49) = "1"
+        Strings.AvailableFeature(50) = "1"
+        Strings.AvailableFeature(51) = "1"
+        Strings.AvailableFeature(52) = "1"
+        Strings.AvailableFeature(53) = "1"
+        'GUI Customizations
+        GUISCustomizations.DesktopColor = Color.Black
+        GUISCustomizations.GUIConsoleFont = New Font("Consolas", 11)
     End Sub
 
     Public Sub GodMode()
         'Same as new game but codepoints automatically assigned to 9999 and not saved into the FS
         Strings.ComputerInfo(0) = "shiftos"
         Strings.ComputerInfo(1) = "user"
-        Strings.ComputerInfo(2) = 9999
+        Strings.ComputerInfo(2) = 100000
         Strings.ComputerInfo(4) = "0"
         Strings.AvailableFeature(0) = "2"
         Strings.AvailableFeature(1) = "2"
@@ -168,6 +260,19 @@ Module SaveLoadSystem
         Strings.AvailableFeature(39) = "2"
         Strings.AvailableFeature(40) = "2"
         Strings.AvailableFeature(41) = "2"
+        '0.2.8 Features
+        Strings.AvailableFeature(42) = "2"
+        Strings.AvailableFeature(43) = "2"
+        Strings.AvailableFeature(44) = "2"
+        Strings.AvailableFeature(45) = "2"
+        Strings.AvailableFeature(46) = "2"
+        Strings.AvailableFeature(47) = "2"
+        Strings.AvailableFeature(48) = "2"
+        Strings.AvailableFeature(49) = "2"
+        Strings.AvailableFeature(50) = "2"
+        Strings.AvailableFeature(51) = "2"
+        Strings.AvailableFeature(52) = "2"
+        Strings.AvailableFeature(53) = "2"
     End Sub
 
     Public Sub SaveGame()
@@ -179,6 +284,10 @@ Module SaveLoadSystem
                     Case 1
                         Dim DesktopColor As Integer = GUISCustomizations.DesktopColor.ToArgb()
                         File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\Shifter_Desktop.sos", DesktopColor.ToString)
+                        Dim ConsoleFont(1) As String
+                        ConsoleFont(0) = GUISCustomizations.GUIConsoleFont.Name
+                        ConsoleFont(1) = GUISCustomizations.GUIConsoleFont.Size
+                        File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\Shifter_ConsoleFont.sos", ConsoleFont)
                 End Select
             End If
         End If
@@ -198,6 +307,13 @@ Module SaveLoadSystem
                         Else
                             GUISCustomizations.DesktopColor = Color.Black
                         End If
+                        If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\Shifter_ConsoleFont.sos") = True Then
+                            Dim ConsoleFont(1) As String
+                            ConsoleFont = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\Shifter_ConsoleFont.sos")
+                            GUISCustomizations.GUIConsoleFont = New Font(ConsoleFont(0), ConsoleFont(1))
+                        Else
+                            GUISCustomizations.GUIConsoleFont = New Font("Consolas", 11)
+                        End If
                 End Select
             End If
         End If

ShiftOS-TheRevival/Functions/OutGame/TheUpdater.vb

@@ -187,6 +187,18 @@ Module TheUpdater
                 Strings.AvailableFeature(39) = 2
                 Strings.AvailableFeature(40) = 2
                 Strings.AvailableFeature(41) = 2
+                Strings.AvailableFeature(42) = 2
+                Strings.AvailableFeature(43) = 2
+                Strings.AvailableFeature(44) = 2
+                Strings.AvailableFeature(45) = 2
+                Strings.AvailableFeature(46) = 2
+                Strings.AvailableFeature(47) = 2
+                Strings.AvailableFeature(48) = 2
+                Strings.AvailableFeature(49) = 2
+                Strings.AvailableFeature(50) = 2
+                Strings.AvailableFeature(51) = 2
+                Strings.AvailableFeature(52) = 2
+                Strings.AvailableFeature(53) = 2
                 Strings.ComputerInfo(0) = ComputerInfoHere(0)
                 Strings.ComputerInfo(1) = ComputerInfoHere(1)
                 Strings.ComputerInfo(2) = ComputerInfoHere(2)
@@ -247,6 +259,98 @@ Module TheUpdater
                 Strings.AvailableFeature(39) = 2
                 Strings.AvailableFeature(40) = 2
                 Strings.AvailableFeature(41) = 2
+                Strings.AvailableFeature(42) = 2
+                Strings.AvailableFeature(43) = 2
+                Strings.AvailableFeature(44) = 2
+                Strings.AvailableFeature(45) = 2
+                Strings.AvailableFeature(46) = 2
+                Strings.AvailableFeature(47) = 2
+                Strings.AvailableFeature(48) = 2
+                Strings.AvailableFeature(49) = 2
+                Strings.AvailableFeature(50) = 2
+                Strings.AvailableFeature(51) = 2
+                Strings.AvailableFeature(52) = 2
+                Strings.AvailableFeature(53) = 2
+                Strings.ComputerInfo(0) = ComputerInfoHere(0)
+                Strings.ComputerInfo(1) = ComputerInfoHere(1)
+                Strings.ComputerInfo(2) = ComputerInfoHere(2)
+                Strings.ComputerInfo(3) = ComputerInfoHere(3)
+                Strings.ComputerInfo(4) = ComputerInfoHere(4)
+                Strings.ComputerInfo(5) = "0F"
+                Strings.ComputerInfo(6) = "F0"
+                If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS") = True Then
+
+                Else
+                    Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS")
+                End If
+                ShiftOSUpdater.Button2.Text = "Updated!"
+            Case "0.2.7"
+                Strings.AvailableFeature(0) = AvailableFeatureHere(0)
+                Strings.AvailableFeature(1) = AvailableFeatureHere(1)
+                Strings.AvailableFeature(2) = AvailableFeatureHere(2)
+                Strings.AvailableFeature(3) = AvailableFeatureHere(3)
+                Strings.AvailableFeature(4) = AvailableFeatureHere(4)
+                Strings.AvailableFeature(5) = AvailableFeatureHere(5)
+                Strings.AvailableFeature(6) = AvailableFeatureHere(6)
+                Strings.AvailableFeature(7) = AvailableFeatureHere(7)
+                Strings.AvailableFeature(8) = AvailableFeatureHere(8)
+                Strings.AvailableFeature(9) = AvailableFeatureHere(9)
+                Strings.AvailableFeature(10) = AvailableFeatureHere(10)
+                Strings.AvailableFeature(11) = AvailableFeatureHere(11)
+                Strings.AvailableFeature(12) = AvailableFeatureHere(12)
+                Strings.AvailableFeature(13) = AvailableFeatureHere(13)
+                Strings.AvailableFeature(14) = AvailableFeatureHere(14)
+                Strings.AvailableFeature(15) = AvailableFeatureHere(15)
+                Strings.AvailableFeature(16) = AvailableFeatureHere(16)
+                Strings.AvailableFeature(17) = AvailableFeatureHere(17)
+                Strings.AvailableFeature(18) = AvailableFeatureHere(18)
+                Strings.AvailableFeature(19) = AvailableFeatureHere(19)
+                Strings.AvailableFeature(20) = AvailableFeatureHere(20)
+                Strings.AvailableFeature(21) = AvailableFeatureHere(21)
+                Strings.AvailableFeature(22) = AvailableFeatureHere(22)
+                Strings.AvailableFeature(23) = AvailableFeatureHere(23)
+                Strings.AvailableFeature(24) = AvailableFeatureHere(24)
+                Strings.AvailableFeature(25) = AvailableFeatureHere(25)
+                Strings.AvailableFeature(26) = AvailableFeatureHere(26)
+                Strings.AvailableFeature(27) = AvailableFeatureHere(27)
+                Strings.AvailableFeature(28) = AvailableFeatureHere(28)
+                Strings.AvailableFeature(29) = AvailableFeatureHere(29)
+                Strings.AvailableFeature(30) = AvailableFeatureHere(30)
+                Strings.AvailableFeature(31) = AvailableFeatureHere(31)
+                Strings.AvailableFeature(32) = AvailableFeatureHere(32)
+                Strings.AvailableFeature(33) = AvailableFeatureHere(33)
+                Strings.AvailableFeature(34) = AvailableFeatureHere(34)
+                Strings.AvailableFeature(35) = AvailableFeatureHere(35)
+                Strings.AvailableFeature(36) = AvailableFeatureHere(36)
+                Strings.AvailableFeature(37) = AvailableFeatureHere(37)
+                Strings.AvailableFeature(38) = AvailableFeatureHere(38)
+                Strings.AvailableFeature(39) = AvailableFeatureHere(39)
+                Strings.AvailableFeature(40) = AvailableFeatureHere(40)
+                Strings.AvailableFeature(41) = AvailableFeatureHere(41)
+                If Strings.AvailableFeature(37) = 1 Then
+                    Strings.AvailableFeature(42) = 0
+                Else
+                    Strings.AvailableFeature(42) = 2
+                End If
+                If Strings.AvailableFeature(35) = 1 Then
+                    Strings.AvailableFeature(43) = 0
+                Else
+                    Strings.AvailableFeature(43) = 2
+                End If
+                Strings.AvailableFeature(44) = 2
+                Strings.AvailableFeature(45) = 2
+                Strings.AvailableFeature(46) = 2
+                Strings.AvailableFeature(47) = 2
+                Strings.AvailableFeature(48) = 2
+                Strings.AvailableFeature(49) = 2
+                Strings.AvailableFeature(50) = 2
+                Strings.AvailableFeature(51) = 2
+                Strings.AvailableFeature(52) = 2
+                If Strings.AvailableFeature(36) = 1 Then
+                    Strings.AvailableFeature(53) = 0
+                Else
+                    Strings.AvailableFeature(53) = 2
+                End If
                 Strings.ComputerInfo(0) = ComputerInfoHere(0)
                 Strings.ComputerInfo(1) = ComputerInfoHere(1)
                 Strings.ComputerInfo(2) = ComputerInfoHere(2)

ShiftOS-TheRevival/MainForms/Applications/Console.Designer.vb

@@ -29,7 +29,7 @@ Partial Class Console
         Me.InfoBarTimer = New System.Windows.Forms.Timer(Me.components)
         Me.ToolBar = New System.Windows.Forms.TextBox()
         Me.ShortcutHandler = New System.ComponentModel.BackgroundWorker()
-        Me.DuWMHandle = New System.Windows.Forms.Timer(Me.components)
+        Me.ConsoleFontHandle = New System.Windows.Forms.Timer(Me.components)
         Me.SuspendLayout()
         '
         'TextBox1
@@ -81,7 +81,7 @@ Partial Class Console
         Me.ToolBar.TabIndex = 1
         Me.ToolBar.Visible = False
         '
-        'DuWMHandle
+        'ConsoleFontHandle
         '
         '
         'Console
@@ -109,5 +109,5 @@ Partial Class Console
     Friend WithEvents InfoBarTimer As Timer
     Friend WithEvents ToolBar As TextBox
     Public WithEvents ShortcutHandler As System.ComponentModel.BackgroundWorker
-    Friend WithEvents DuWMHandle As Timer
+    Friend WithEvents ConsoleFontHandle As Timer
 End Class

ShiftOS-TheRevival/MainForms/Applications/Console.resx

@@ -126,7 +126,7 @@
   <metadata name="ShortcutHandler.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>274, 17</value>
   </metadata>
-  <metadata name="DuWMHandle.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <metadata name="ConsoleFontHandle.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>415, 17</value>
   </metadata>
 </root>

ShiftOS-TheRevival/MainForms/Applications/Console.vb

@@ -22,9 +22,7 @@ Public Class Console
         With ShortcutHandler
             .WorkerSupportsCancellation = True
         End With
-        'MsgBox("Full!")
         Console_Full()
-        'MsgBox("Initialize!")
         InitializeTerminal()
     End Sub
 
@@ -227,7 +225,7 @@ Public Class Console
         If Strings.OnceInfo(0) = "Yes" Then
             InfoBar.Text = InfoBar.Text & " root |"
         Else
-            InfoBar.Text = InfoBar.Text & " user |"
+            InfoBar.Text = InfoBar.Text & " " & Strings.ComputerInfo(1) & " |"
         End If
         InfoBar.Text = InfoBar.Text & " " & CurrentInterpreter & " |"
         InfoBar.Text = InfoBar.Text & " " & Strings.ComputerInfo(2) & " CP |"
@@ -238,7 +236,12 @@ Public Class Console
 
     End Sub
 
-    Private Sub DuWMHandle_Tick(sender As Object, e As EventArgs) Handles DuWMHandle.Tick
+    Private Sub ConsoleFontHandle_Tick(sender As Object, e As EventArgs) Handles ConsoleFontHandle.Tick
-
+        If InfoBar.Font IsNot GUISCustomizations.GUIConsoleFont Then
+            InfoBar.Font = GUISCustomizations.GUIConsoleFont
+        End If
+        If ToolBar.Font IsNot GUISCustomizations.GUIConsoleFont Then
+            ToolBar.Font = GUISCustomizations.GUIConsoleFont
+        End If
     End Sub
 End Class

ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Console.Designer.vb

@@ -0,0 +1,157 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class DuWM_Shifter_Console
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.lbl_Title = New System.Windows.Forms.Label()
+        Me.lbl_DescConsole = New System.Windows.Forms.Label()
+        Me.lbl_ConsoleFont = New System.Windows.Forms.Label()
+        Me.cmb_ConsoleFont = New System.Windows.Forms.ComboBox()
+        Me.lbl_ConsoleFontSize = New System.Windows.Forms.Label()
+        Me.cmb_ConsoleFontSize = New System.Windows.Forms.ComboBox()
+        Me.lbl_Example = New System.Windows.Forms.Label()
+        Me.txt_ConsoleExample = New System.Windows.Forms.TextBox()
+        Me.SuspendLayout()
+        '
+        'lbl_Title
+        '
+        Me.lbl_Title.AutoSize = True
+        Me.lbl_Title.Font = New System.Drawing.Font("Segoe UI", 24.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle))
+        Me.lbl_Title.Location = New System.Drawing.Point(11, 10)
+        Me.lbl_Title.Name = "lbl_Title"
+        Me.lbl_Title.Size = New System.Drawing.Size(136, 45)
+        Me.lbl_Title.TabIndex = 1
+        Me.lbl_Title.Text = "Console"
+        '
+        'lbl_DescConsole
+        '
+        Me.lbl_DescConsole.AutoSize = True
+        Me.lbl_DescConsole.Font = New System.Drawing.Font("Segoe UI", 12.0!)
+        Me.lbl_DescConsole.ForeColor = System.Drawing.Color.Black
+        Me.lbl_DescConsole.Location = New System.Drawing.Point(15, 71)
+        Me.lbl_DescConsole.Name = "lbl_DescConsole"
+        Me.lbl_DescConsole.Size = New System.Drawing.Size(266, 21)
+        Me.lbl_DescConsole.TabIndex = 3
+        Me.lbl_DescConsole.Text = "Choose Console font face and its size"
+        '
+        'lbl_ConsoleFont
+        '
+        Me.lbl_ConsoleFont.AutoSize = True
+        Me.lbl_ConsoleFont.Font = New System.Drawing.Font("Segoe UI", 12.0!)
+        Me.lbl_ConsoleFont.ForeColor = System.Drawing.Color.Black
+        Me.lbl_ConsoleFont.Location = New System.Drawing.Point(15, 106)
+        Me.lbl_ConsoleFont.Name = "lbl_ConsoleFont"
+        Me.lbl_ConsoleFont.Size = New System.Drawing.Size(135, 21)
+        Me.lbl_ConsoleFont.TabIndex = 4
+        Me.lbl_ConsoleFont.Text = "Console Font Face"
+        '
+        'cmb_ConsoleFont
+        '
+        Me.cmb_ConsoleFont.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
+        Me.cmb_ConsoleFont.Font = New System.Drawing.Font("Segoe UI", 12.0!)
+        Me.cmb_ConsoleFont.FormattingEnabled = True
+        Me.cmb_ConsoleFont.Items.AddRange(New Object() {"Consolas", "Courier New", "Lucida Console"})
+        Me.cmb_ConsoleFont.Location = New System.Drawing.Point(156, 103)
+        Me.cmb_ConsoleFont.Name = "cmb_ConsoleFont"
+        Me.cmb_ConsoleFont.Size = New System.Drawing.Size(250, 30)
+        Me.cmb_ConsoleFont.TabIndex = 5
+        '
+        'lbl_ConsoleFontSize
+        '
+        Me.lbl_ConsoleFontSize.AutoSize = True
+        Me.lbl_ConsoleFontSize.Font = New System.Drawing.Font("Segoe UI", 12.0!)
+        Me.lbl_ConsoleFontSize.ForeColor = System.Drawing.Color.Black
+        Me.lbl_ConsoleFontSize.Location = New System.Drawing.Point(15, 147)
+        Me.lbl_ConsoleFontSize.Name = "lbl_ConsoleFontSize"
+        Me.lbl_ConsoleFontSize.Size = New System.Drawing.Size(133, 21)
+        Me.lbl_ConsoleFontSize.TabIndex = 6
+        Me.lbl_ConsoleFontSize.Text = "Console Font Size"
+        '
+        'cmb_ConsoleFontSize
+        '
+        Me.cmb_ConsoleFontSize.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
+        Me.cmb_ConsoleFontSize.Font = New System.Drawing.Font("Segoe UI", 12.0!)
+        Me.cmb_ConsoleFontSize.FormattingEnabled = True
+        Me.cmb_ConsoleFontSize.Items.AddRange(New Object() {"6", "8", "9", "10", "11", "12", "14", "16"})
+        Me.cmb_ConsoleFontSize.Location = New System.Drawing.Point(156, 144)
+        Me.cmb_ConsoleFontSize.Name = "cmb_ConsoleFontSize"
+        Me.cmb_ConsoleFontSize.Size = New System.Drawing.Size(70, 30)
+        Me.cmb_ConsoleFontSize.TabIndex = 5
+        '
+        'lbl_Example
+        '
+        Me.lbl_Example.AutoSize = True
+        Me.lbl_Example.Font = New System.Drawing.Font("Segoe UI", 12.0!)
+        Me.lbl_Example.ForeColor = System.Drawing.Color.Black
+        Me.lbl_Example.Location = New System.Drawing.Point(15, 189)
+        Me.lbl_Example.Name = "lbl_Example"
+        Me.lbl_Example.Size = New System.Drawing.Size(75, 21)
+        Me.lbl_Example.TabIndex = 6
+        Me.lbl_Example.Text = "Example :"
+        '
+        'txt_ConsoleExample
+        '
+        Me.txt_ConsoleExample.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txt_ConsoleExample.BackColor = System.Drawing.Color.Black
+        Me.txt_ConsoleExample.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txt_ConsoleExample.Font = New System.Drawing.Font("Consolas", 11.0!)
+        Me.txt_ConsoleExample.ForeColor = System.Drawing.Color.White
+        Me.txt_ConsoleExample.Location = New System.Drawing.Point(19, 218)
+        Me.txt_ConsoleExample.Multiline = True
+        Me.txt_ConsoleExample.Name = "txt_ConsoleExample"
+        Me.txt_ConsoleExample.ReadOnly = True
+        Me.txt_ConsoleExample.Size = New System.Drawing.Size(600, 243)
+        Me.txt_ConsoleExample.TabIndex = 7
+        Me.txt_ConsoleExample.Text = "devx@shiftos $> ver" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ShiftOS 11 build 11.0.9"
+        '
+        'DuWM_Shifter_Console
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.txt_ConsoleExample)
+        Me.Controls.Add(Me.lbl_Example)
+        Me.Controls.Add(Me.lbl_ConsoleFontSize)
+        Me.Controls.Add(Me.cmb_ConsoleFontSize)
+        Me.Controls.Add(Me.cmb_ConsoleFont)
+        Me.Controls.Add(Me.lbl_ConsoleFont)
+        Me.Controls.Add(Me.lbl_DescConsole)
+        Me.Controls.Add(Me.lbl_Title)
+        Me.ForeColor = System.Drawing.Color.Black
+        Me.Name = "DuWM_Shifter_Console"
+        Me.Size = New System.Drawing.Size(640, 480)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents lbl_Title As Label
+    Friend WithEvents lbl_DescConsole As Label
+    Friend WithEvents lbl_ConsoleFont As Label
+    Friend WithEvents cmb_ConsoleFont As ComboBox
+    Friend WithEvents lbl_ConsoleFontSize As Label
+    Friend WithEvents cmb_ConsoleFontSize As ComboBox
+    Friend WithEvents lbl_Example As Label
+    Friend WithEvents txt_ConsoleExample As TextBox
+End Class

ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Console.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Console.vb

@@ -0,0 +1,48 @@
+Public Class DuWM_Shifter_Console
+    Private Sub DuWM_Shifter_Console_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        txt_ConsoleExample.Font = Console.TextBox1.Font
+        cmb_ConsoleFont.Text = GUISCustomizations.GUIConsoleFont.Name
+        cmb_ConsoleFontSize.Text = GUISCustomizations.GUIConsoleFont.Size
+    End Sub
+
+    Private Sub cmb_ConsoleFont_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cmb_ConsoleFont.DrawItem
+        e.DrawBackground()
+        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
+            e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
+        End If
+        Dim sf As New StringFormat
+        Using b As New SolidBrush(e.ForeColor)
+            e.Graphics.DrawString(cmb_ConsoleFont.GetItemText(cmb_ConsoleFont.Items(e.Index)), e.Font, b, e.Bounds, sf)
+        End Using
+        e.DrawFocusRectangle()
+    End Sub
+
+    Private Sub cmb_ConsoleFontSize_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cmb_ConsoleFontSize.DrawItem
+        e.DrawBackground()
+        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
+            e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
+        End If
+        Dim sf As New StringFormat
+        Using b As New SolidBrush(e.ForeColor)
+            e.Graphics.DrawString(cmb_ConsoleFontSize.GetItemText(cmb_ConsoleFontSize.Items(e.Index)), e.Font, b, e.Bounds, sf)
+        End Using
+        e.DrawFocusRectangle()
+    End Sub
+
+    Private Sub cmb_ConsoleFont_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_ConsoleFont.SelectedIndexChanged
+        Select Case cmb_ConsoleFont.SelectedItem
+            Case "Consolas"
+                txt_ConsoleExample.Font = New Font("Consolas", txt_ConsoleExample.Font.Size)
+            Case "Courier New"
+                txt_ConsoleExample.Font = New Font("Courier New", txt_ConsoleExample.Font.Size)
+            Case "Lucida Console"
+                txt_ConsoleExample.Font = New Font("Lucida Console", txt_ConsoleExample.Font.Size)
+        End Select
+        DuWM_Shifter_Configs.ConsoleFont = txt_ConsoleExample.Font
+    End Sub
+
+    Private Sub cmb_ConsoleFontSize_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_ConsoleFontSize.SelectedIndexChanged
+        txt_ConsoleExample.Font = New Font(txt_ConsoleExample.Font.Name, cmb_ConsoleFontSize.SelectedItem)
+        DuWM_Shifter_Configs.ConsoleFont = txt_ConsoleExample.Font
+    End Sub
+End Class

ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.Designer.vb

@@ -53,7 +53,7 @@ Partial Class DuWM_Shifter
         Me.lst_Features.Font = New System.Drawing.Font("Segoe UI", 12.0!)
         Me.lst_Features.FormattingEnabled = True
         Me.lst_Features.ItemHeight = 21
-        Me.lst_Features.Items.AddRange(New Object() {"Desktop", "About"})
+        Me.lst_Features.Items.AddRange(New Object() {"Console", "Desktop", "About"})
         Me.lst_Features.Location = New System.Drawing.Point(0, 51)
         Me.lst_Features.Name = "lst_Features"
         Me.lst_Features.Size = New System.Drawing.Size(200, 399)

ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb

@@ -5,7 +5,7 @@
     Private ChildFeature As String
 
     Private Sub Shifter_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-
+        CheckAvailability()
     End Sub
 
     Private Sub lst_Features_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles lst_Features.DrawItem
@@ -37,6 +37,12 @@
 
         Else
             Select Case lst_Features.SelectedItem
+                Case "Console"
+                    Dim Shifter_Console As New DuWM_Shifter_Console
+                    Shifter_Console.Size = pnl_Content.Size
+                    ChildFeature = "Console"
+                    pnl_Content.Controls.Clear()
+                    pnl_Content.Controls.Add(Shifter_Console)
                 Case "Desktop"
                     Dim Shifter_Desktop As New DuWM_Shifter_Desktop
                     Shifter_Desktop.Size = pnl_Content.Size
@@ -59,6 +65,9 @@
 
     Private Sub Apply()
         Select Case lst_Features.SelectedItem
+            Case "Console"
+                Console.TextBox1.Font = DuWM_Shifter_Configs.ConsoleFont
+                GUISCustomizations.GUIConsoleFont = Console.TextBox1.Font
             Case "Desktop"
                 Desktop.BackColor = DuWM_Shifter_Configs.DesktopBackColor
                 GUISCustomizations.DesktopColor = Desktop.BackColor
@@ -69,4 +78,10 @@
         Apply()
         Close()
     End Sub
+
+    Private Sub CheckAvailability()
+        If Strings.AvailableFeature(53) = 0 Then
+            lst_Features.Items.Remove("Console")
+        End If
+    End Sub
 End Class

ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter_Configs.vb

@@ -1,3 +1,4 @@
 Public Class DuWM_Shifter_Configs
     Public Shared DesktopBackColor As Color
+    Public Shared ConsoleFont As Font
 End Class

ShiftOS-TheRevival/MainForms/Applications/Universal/Calculator/Uni_Calculator.Designer.vb

@@ -0,0 +1,315 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Uni_Calculator
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.Button6 = New System.Windows.Forms.Button()
+        Me.Button7 = New System.Windows.Forms.Button()
+        Me.Button8 = New System.Windows.Forms.Button()
+        Me.Button9 = New System.Windows.Forms.Button()
+        Me.Button10 = New System.Windows.Forms.Button()
+        Me.Button11 = New System.Windows.Forms.Button()
+        Me.Button12 = New System.Windows.Forms.Button()
+        Me.Button13 = New System.Windows.Forms.Button()
+        Me.Button14 = New System.Windows.Forms.Button()
+        Me.Button15 = New System.Windows.Forms.Button()
+        Me.Button16 = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        'Button1
+        '
+        Me.Button1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Font = New System.Drawing.Font("Segoe UI", 15.0!)
+        Me.Button1.Location = New System.Drawing.Point(12, 122)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(150, 80)
+        Me.Button1.TabIndex = 0
+        Me.Button1.Text = "1"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Label1.Font = New System.Drawing.Font("Tahoma", 20.0!, System.Drawing.FontStyle.Italic)
+        Me.Label1.Location = New System.Drawing.Point(12, 32)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(618, 77)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Fuck you, Calculator!"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Button2
+        '
+        Me.Button2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Font = New System.Drawing.Font("Segoe UI", 15.0!)
+        Me.Button2.Location = New System.Drawing.Point(168, 122)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(150, 80)
+        Me.Button2.TabIndex = 0
+        Me.Button2.Text = "2"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Button3
+        '
+        Me.Button3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.Font = New System.Drawing.Font("Segoe UI", 15.0!)
+        Me.Button3.Location = New System.Drawing.Point(324, 122)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(150, 80)
+        Me.Button3.TabIndex = 0
+        Me.Button3.Text = "3"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'Button4
+        '
+        Me.Button4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.Font = New System.Drawing.Font("Segoe UI", 15.0!)
+        Me.Button4.Location = New System.Drawing.Point(480, 122)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(150, 80)
+        Me.Button4.TabIndex = 0
+        Me.Button4.Text = "+"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'Button5
+        '
+        Me.Button5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button5.Font = New System.Drawing.Font("Segoe UI", 15.0!)
+        Me.Button5.Location = New System.Drawing.Point(12, 208)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(150, 80)
+        Me.Button5.TabIndex = 0
+        Me.Button5.Text = "4"
+        Me.Button5.UseVisualStyleBackColor = True
+        '
+        'Button6
+        '
+        Me.Button6.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button6.Font = New System.Drawing.Font("Segoe UI", 15.0!)
+        Me.Button6.Location = New System.Drawing.Point(168, 208)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(150, 80)
+        Me.Button6.TabIndex = 0
+        Me.Button6.Text = "5"
+        Me.Button6.UseVisualStyleBackColor = True
+        '
+        'Button7
+        '
+        Me.Button7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button7.Font = New System.Drawing.Font("Segoe UI", 15.0!)
+        Me.Button7.Location = New System.Drawing.Point(324, 208)
+        Me.Button7.Name = "Button7"
+        Me.Button7.Size = New System.Drawing.Size(150, 80)
+        Me.Button7.TabIndex = 0
+        Me.Button7.Text = "6"
+        Me.Button7.UseVisualStyleBackColor = True
+        '
+        'Button8
+        '
+        Me.Button8.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button8.Font = New System.Drawing.Font("Segoe UI", 15.0!)
+        Me.Button8.Location = New System.Drawing.Point(480, 208)
+        Me.Button8.Name = "Button8"
+        Me.Button8.Size = New System.Drawing.Size(150, 80)
+        Me.Button8.TabIndex = 0
+        Me.Button8.Text = "-"
+        Me.Button8.UseVisualStyleBackColor = True
+        '
+        'Button9
+        '
+        Me.Button9.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button9.Font = New System.Drawing.Font("Segoe UI", 15.0!)
+        Me.Button9.Location = New System.Drawing.Point(12, 294)
+        Me.Button9.Name = "Button9"
+        Me.Button9.Size = New System.Drawing.Size(150, 80)
+        Me.Button9.TabIndex = 0
+        Me.Button9.Text = "7"
+        Me.Button9.UseVisualStyleBackColor = True
+        '
+        'Button10
+        '
+        Me.Button10.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button10.Font = New System.Drawing.Font("Segoe UI", 15.0!)
+        Me.Button10.Location = New System.Drawing.Point(12, 380)
+        Me.Button10.Name = "Button10"
+        Me.Button10.Size = New System.Drawing.Size(150, 80)
+        Me.Button10.TabIndex = 0
+        Me.Button10.Text = "C"
+        Me.Button10.UseVisualStyleBackColor = True
+        '
+        'Button11
+        '
+        Me.Button11.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button11.Font = New System.Drawing.Font("Segoe UI", 15.0!)
+        Me.Button11.Location = New System.Drawing.Point(168, 294)
+        Me.Button11.Name = "Button11"
+        Me.Button11.Size = New System.Drawing.Size(150, 80)
+        Me.Button11.TabIndex = 0
+        Me.Button11.Text = "8"
+        Me.Button11.UseVisualStyleBackColor = True
+        '
+        'Button12
+        '
+        Me.Button12.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button12.Font = New System.Drawing.Font("Segoe UI", 15.0!)
+        Me.Button12.Location = New System.Drawing.Point(168, 380)
+        Me.Button12.Name = "Button12"
+        Me.Button12.Size = New System.Drawing.Size(150, 80)
+        Me.Button12.TabIndex = 0
+        Me.Button12.Text = "0"
+        Me.Button12.UseVisualStyleBackColor = True
+        '
+        'Button13
+        '
+        Me.Button13.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button13.Font = New System.Drawing.Font("Segoe UI", 15.0!)
+        Me.Button13.Location = New System.Drawing.Point(324, 294)
+        Me.Button13.Name = "Button13"
+        Me.Button13.Size = New System.Drawing.Size(150, 80)
+        Me.Button13.TabIndex = 0
+        Me.Button13.Text = "9"
+        Me.Button13.UseVisualStyleBackColor = True
+        '
+        'Button14
+        '
+        Me.Button14.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button14.Font = New System.Drawing.Font("Segoe UI", 15.0!)
+        Me.Button14.Location = New System.Drawing.Point(324, 380)
+        Me.Button14.Name = "Button14"
+        Me.Button14.Size = New System.Drawing.Size(150, 80)
+        Me.Button14.TabIndex = 0
+        Me.Button14.Text = "="
+        Me.Button14.UseVisualStyleBackColor = True
+        '
+        'Button15
+        '
+        Me.Button15.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button15.Font = New System.Drawing.Font("Segoe UI", 15.0!)
+        Me.Button15.Location = New System.Drawing.Point(480, 294)
+        Me.Button15.Name = "Button15"
+        Me.Button15.Size = New System.Drawing.Size(150, 80)
+        Me.Button15.TabIndex = 0
+        Me.Button15.Text = "*"
+        Me.Button15.UseVisualStyleBackColor = True
+        '
+        'Button16
+        '
+        Me.Button16.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button16.Font = New System.Drawing.Font("Segoe UI", 15.0!)
+        Me.Button16.Location = New System.Drawing.Point(480, 380)
+        Me.Button16.Name = "Button16"
+        Me.Button16.Size = New System.Drawing.Size(150, 80)
+        Me.Button16.TabIndex = 0
+        Me.Button16.Text = "/"
+        Me.Button16.UseVisualStyleBackColor = True
+        '
+        'Uni_Calculator
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.ClientSize = New System.Drawing.Size(640, 480)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Button16)
+        Me.Controls.Add(Me.Button8)
+        Me.Controls.Add(Me.Button15)
+        Me.Controls.Add(Me.Button4)
+        Me.Controls.Add(Me.Button14)
+        Me.Controls.Add(Me.Button7)
+        Me.Controls.Add(Me.Button13)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.Button12)
+        Me.Controls.Add(Me.Button6)
+        Me.Controls.Add(Me.Button11)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button10)
+        Me.Controls.Add(Me.Button5)
+        Me.Controls.Add(Me.Button9)
+        Me.Controls.Add(Me.Button1)
+        Me.ForeColor = System.Drawing.Color.Black
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Name = "Uni_Calculator"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Uni_Calculator"
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents Button5 As Button
+    Friend WithEvents Button6 As Button
+    Friend WithEvents Button7 As Button
+    Friend WithEvents Button8 As Button
+    Friend WithEvents Button9 As Button
+    Friend WithEvents Button10 As Button
+    Friend WithEvents Button11 As Button
+    Friend WithEvents Button12 As Button
+    Friend WithEvents Button13 As Button
+    Friend WithEvents Button14 As Button
+    Friend WithEvents Button15 As Button
+    Friend WithEvents Button16 As Button
+End Class

ShiftOS-TheRevival/MainForms/Applications/Universal/Calculator/Uni_Calculator.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

ShiftOS-TheRevival/MainForms/Applications/Universal/Calculator/Uni_Calculator.vb

@@ -0,0 +1,3 @@
+Public Class Uni_Calculator
+
+End Class

ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFileIcons.Designer.vb

@@ -0,0 +1,167 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'This class was auto-generated by the StronglyTypedResourceBuilder
+    'class via a tool like ResGen or Visual Studio.
+    'To add or remove a member, edit your .ResX file then rerun ResGen
+    'with the /str option, or rebuild your VS project.
+    '''<summary>
+    '''  A strongly-typed resource class, for looking up localized strings, etc.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Class FileSkimmerFileIcons
+        
+        Private Shared resourceMan As Global.System.Resources.ResourceManager
+        
+        Private Shared resourceCulture As Global.System.Globalization.CultureInfo
+        
+        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")>  _
+        Friend Sub New()
+            MyBase.New
+        End Sub
+        
+        '''<summary>
+        '''  Returns the cached ResourceManager instance used by this class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ShiftOS_TheRevival.FileSkimmerFileIcons", GetType(FileSkimmerFileIcons).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Overrides the current thread's CurrentUICulture property for all
+        '''  resource lookups using this strongly typed resource class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Shared Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property ico_exe() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_exe", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property ico_folder() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_folder", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property ico_picture() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_picture", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property ico_sfp() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_sfp", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property ico_textfile() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_textfile", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property ico_unknown() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_unknown", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property ico_up() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_up", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property ico_url() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_url", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property ico_video() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_video", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property ico_zip() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_zip", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+    End Class
+End Namespace

ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFileIcons.resx

@@ -0,0 +1,151 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="ico_exe" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>ico_exe.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_folder" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>ico_folder.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_picture" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>ico_picture.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_sfp" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>ico_sfp.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_textfile" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>ico_textfile.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_unknown" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>ico_unknown.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_up" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>ico_up.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_url" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>ico_url.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_video" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>ico_video.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_zip" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>ico_zip.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+</root>

ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.Designer.vb

@@ -0,0 +1,137 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'This class was auto-generated by the StronglyTypedResourceBuilder
+    'class via a tool like ResGen or Visual Studio.
+    'To add or remove a member, edit your .ResX file then rerun ResGen
+    'with the /str option, or rebuild your VS project.
+    '''<summary>
+    '''  A strongly-typed resource class, for looking up localized strings, etc.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Class FileSkimmerFunctionIcons
+        
+        Private Shared resourceMan As Global.System.Resources.ResourceManager
+        
+        Private Shared resourceCulture As Global.System.Globalization.CultureInfo
+        
+        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")>  _
+        Friend Sub New()
+            MyBase.New
+        End Sub
+        
+        '''<summary>
+        '''  Returns the cached ResourceManager instance used by this class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ShiftOS_TheRevival.FileSkimmerFunctionIcons", GetType(FileSkimmerFunctionIcons).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Overrides the current thread's CurrentUICulture property for all
+        '''  resource lookups using this strongly typed resource class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Shared Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property ico_refresh() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_refresh", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property ico_up1() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_up1", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property largeico_compress() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("largeico_compress", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property largeico_deletefile() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("largeico_deletefile", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property largeico_rename() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("largeico_rename", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property largeico_uncompress() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("largeico_uncompress", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property largeico_unknown() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("largeico_unknown", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+    End Class
+End Namespace

ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.resx

@@ -0,0 +1,142 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="ico_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\..\..\..\Resources\ico_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_up1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\..\..\..\Resources\ico_up1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="largeico_compress" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\..\..\..\Resources\largeico_compress.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="largeico_deletefile" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\..\..\..\Resources\ico_deletefile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="largeico_rename" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\..\..\..\Resources\largeico_rename.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="largeico_uncompress" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\..\..\..\Resources\largeico_uncompress.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="largeico_unknown" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>ico_unknown.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+</root>

ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.Designer.vb

@@ -0,0 +1,486 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Uni_FileSkimmer
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Uni_FileSkimmer))
+        Dim ListViewItem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("test", 0)
+        Me.msn_Options = New System.Windows.Forms.MenuStrip()
+        Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.CompressToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DeleteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.CloseToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.OptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.JobBarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.PropertyPaneToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.pnl_JobBar = New System.Windows.Forms.Panel()
+        Me.cmb_Layout = New System.Windows.Forms.ComboBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.btn_CopyPath = New System.Windows.Forms.Button()
+        Me.btn_Rename = New System.Windows.Forms.Button()
+        Me.btn_Delete = New System.Windows.Forms.Button()
+        Me.btn_Compress = New System.Windows.Forms.Button()
+        Me.btn_NewFolder = New System.Windows.Forms.Button()
+        Me.pnl_Properties = New System.Windows.Forms.Panel()
+        Me.pic_Icon = New System.Windows.Forms.PictureBox()
+        Me.lbl_filesize = New System.Windows.Forms.Label()
+        Me.lbl_filetype = New System.Windows.Forms.Label()
+        Me.lbl_filename = New System.Windows.Forms.Label()
+        Me.lbl_Properties = New System.Windows.Forms.Label()
+        Me.iml_icons = New System.Windows.Forms.ImageList(Me.components)
+        Me.pnl_AddressBar = New System.Windows.Forms.Panel()
+        Me.btn_Refresh = New System.Windows.Forms.Button()
+        Me.btn_Up = New System.Windows.Forms.Button()
+        Me.txt_AddressBar = New System.Windows.Forms.TextBox()
+        Me.lbl_Address = New System.Windows.Forms.Label()
+        Me.lsv_Content = New System.Windows.Forms.ListView()
+        Me.iml_smallicons = New System.Windows.Forms.ImageList(Me.components)
+        Me.msn_Options.SuspendLayout()
+        Me.pnl_JobBar.SuspendLayout()
+        Me.pnl_Properties.SuspendLayout()
+        CType(Me.pic_Icon, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.pnl_AddressBar.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'msn_Options
+        '
+        Me.msn_Options.BackColor = System.Drawing.Color.White
+        Me.msn_Options.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.msn_Options.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.OptionsToolStripMenuItem, Me.AboutToolStripMenuItem})
+        Me.msn_Options.Location = New System.Drawing.Point(0, 0)
+        Me.msn_Options.Name = "msn_Options"
+        Me.msn_Options.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
+        Me.msn_Options.Size = New System.Drawing.Size(800, 27)
+        Me.msn_Options.TabIndex = 0
+        Me.msn_Options.Text = "mns_Options"
+        '
+        'FileToolStripMenuItem
+        '
+        Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CompressToolStripMenuItem, Me.DeleteToolStripMenuItem, Me.ToolStripSeparator1, Me.CloseToolStripMenuItem})
+        Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem"
+        Me.FileToolStripMenuItem.Size = New System.Drawing.Size(41, 23)
+        Me.FileToolStripMenuItem.Text = "File"
+        '
+        'CompressToolStripMenuItem
+        '
+        Me.CompressToolStripMenuItem.Name = "CompressToolStripMenuItem"
+        Me.CompressToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
+        Me.CompressToolStripMenuItem.Text = "Compress"
+        '
+        'DeleteToolStripMenuItem
+        '
+        Me.DeleteToolStripMenuItem.Name = "DeleteToolStripMenuItem"
+        Me.DeleteToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
+        Me.DeleteToolStripMenuItem.Text = "Delete"
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
+        '
+        'CloseToolStripMenuItem
+        '
+        Me.CloseToolStripMenuItem.Name = "CloseToolStripMenuItem"
+        Me.CloseToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
+        Me.CloseToolStripMenuItem.Text = "Close"
+        '
+        'OptionsToolStripMenuItem
+        '
+        Me.OptionsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.JobBarToolStripMenuItem, Me.PropertyPaneToolStripMenuItem})
+        Me.OptionsToolStripMenuItem.Name = "OptionsToolStripMenuItem"
+        Me.OptionsToolStripMenuItem.Size = New System.Drawing.Size(70, 23)
+        Me.OptionsToolStripMenuItem.Text = "Options"
+        '
+        'JobBarToolStripMenuItem
+        '
+        Me.JobBarToolStripMenuItem.CheckOnClick = True
+        Me.JobBarToolStripMenuItem.Name = "JobBarToolStripMenuItem"
+        Me.JobBarToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
+        Me.JobBarToolStripMenuItem.Text = "JobBar"
+        '
+        'PropertyPaneToolStripMenuItem
+        '
+        Me.PropertyPaneToolStripMenuItem.CheckOnClick = True
+        Me.PropertyPaneToolStripMenuItem.Name = "PropertyPaneToolStripMenuItem"
+        Me.PropertyPaneToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
+        Me.PropertyPaneToolStripMenuItem.Text = "Property Pane"
+        '
+        'AboutToolStripMenuItem
+        '
+        Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem"
+        Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(59, 23)
+        Me.AboutToolStripMenuItem.Text = "About"
+        '
+        'pnl_JobBar
+        '
+        Me.pnl_JobBar.BackColor = System.Drawing.Color.Silver
+        Me.pnl_JobBar.Controls.Add(Me.cmb_Layout)
+        Me.pnl_JobBar.Controls.Add(Me.Label1)
+        Me.pnl_JobBar.Controls.Add(Me.Label2)
+        Me.pnl_JobBar.Controls.Add(Me.btn_CopyPath)
+        Me.pnl_JobBar.Controls.Add(Me.btn_Rename)
+        Me.pnl_JobBar.Controls.Add(Me.btn_Delete)
+        Me.pnl_JobBar.Controls.Add(Me.btn_Compress)
+        Me.pnl_JobBar.Controls.Add(Me.btn_NewFolder)
+        Me.pnl_JobBar.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnl_JobBar.Location = New System.Drawing.Point(0, 27)
+        Me.pnl_JobBar.Name = "pnl_JobBar"
+        Me.pnl_JobBar.Size = New System.Drawing.Size(800, 70)
+        Me.pnl_JobBar.TabIndex = 1
+        '
+        'cmb_Layout
+        '
+        Me.cmb_Layout.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
+        Me.cmb_Layout.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.cmb_Layout.FormattingEnabled = True
+        Me.cmb_Layout.Items.AddRange(New Object() {"Large Icons", "Small Icons", "List"})
+        Me.cmb_Layout.Location = New System.Drawing.Point(369, 36)
+        Me.cmb_Layout.Name = "cmb_Layout"
+        Me.cmb_Layout.Size = New System.Drawing.Size(121, 26)
+        Me.cmb_Layout.TabIndex = 1
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.Label1.Location = New System.Drawing.Point(365, 10)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(51, 19)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Layout"
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Tahoma", 30.0!)
+        Me.Label2.ForeColor = System.Drawing.Color.Gray
+        Me.Label2.Location = New System.Drawing.Point(567, 35)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(247, 48)
+        Me.Label2.TabIndex = 2
+        Me.Label2.Text = "File Skimmer"
+        '
+        'btn_CopyPath
+        '
+        Me.btn_CopyPath.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_CopyPath.Font = New System.Drawing.Font("Segoe UI", 7.0!)
+        Me.btn_CopyPath.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
+        Me.btn_CopyPath.Location = New System.Drawing.Point(213, 0)
+        Me.btn_CopyPath.Name = "btn_CopyPath"
+        Me.btn_CopyPath.Size = New System.Drawing.Size(72, 70)
+        Me.btn_CopyPath.TabIndex = 0
+        Me.btn_CopyPath.Text = "Copy path"
+        Me.btn_CopyPath.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.btn_CopyPath.UseVisualStyleBackColor = True
+        '
+        'btn_Rename
+        '
+        Me.btn_Rename.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_Rename.Font = New System.Drawing.Font("Segoe UI", 7.0!)
+        Me.btn_Rename.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
+        Me.btn_Rename.Location = New System.Drawing.Point(142, 0)
+        Me.btn_Rename.Name = "btn_Rename"
+        Me.btn_Rename.Size = New System.Drawing.Size(72, 70)
+        Me.btn_Rename.TabIndex = 0
+        Me.btn_Rename.Text = "Rename"
+        Me.btn_Rename.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.btn_Rename.UseVisualStyleBackColor = True
+        '
+        'btn_Delete
+        '
+        Me.btn_Delete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_Delete.Font = New System.Drawing.Font("Segoe UI", 7.0!)
+        Me.btn_Delete.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
+        Me.btn_Delete.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btn_Delete.Location = New System.Drawing.Point(71, 0)
+        Me.btn_Delete.Name = "btn_Delete"
+        Me.btn_Delete.Size = New System.Drawing.Size(72, 70)
+        Me.btn_Delete.TabIndex = 0
+        Me.btn_Delete.Text = "Delete"
+        Me.btn_Delete.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btn_Delete.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.btn_Delete.UseVisualStyleBackColor = True
+        '
+        'btn_Compress
+        '
+        Me.btn_Compress.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_Compress.Font = New System.Drawing.Font("Segoe UI", 7.0!)
+        Me.btn_Compress.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
+        Me.btn_Compress.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btn_Compress.Location = New System.Drawing.Point(284, 0)
+        Me.btn_Compress.Name = "btn_Compress"
+        Me.btn_Compress.Size = New System.Drawing.Size(72, 70)
+        Me.btn_Compress.TabIndex = 0
+        Me.btn_Compress.Text = "Compress"
+        Me.btn_Compress.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btn_Compress.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.btn_Compress.UseVisualStyleBackColor = True
+        '
+        'btn_NewFolder
+        '
+        Me.btn_NewFolder.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_NewFolder.Font = New System.Drawing.Font("Segoe UI", 7.0!)
+        Me.btn_NewFolder.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
+        Me.btn_NewFolder.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btn_NewFolder.Location = New System.Drawing.Point(0, 0)
+        Me.btn_NewFolder.Name = "btn_NewFolder"
+        Me.btn_NewFolder.Size = New System.Drawing.Size(72, 70)
+        Me.btn_NewFolder.TabIndex = 0
+        Me.btn_NewFolder.Text = "New Folder"
+        Me.btn_NewFolder.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btn_NewFolder.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.btn_NewFolder.UseVisualStyleBackColor = True
+        '
+        'pnl_Properties
+        '
+        Me.pnl_Properties.BackColor = System.Drawing.Color.Gray
+        Me.pnl_Properties.Controls.Add(Me.pic_Icon)
+        Me.pnl_Properties.Controls.Add(Me.lbl_filesize)
+        Me.pnl_Properties.Controls.Add(Me.lbl_filetype)
+        Me.pnl_Properties.Controls.Add(Me.lbl_filename)
+        Me.pnl_Properties.Controls.Add(Me.lbl_Properties)
+        Me.pnl_Properties.Dock = System.Windows.Forms.DockStyle.Right
+        Me.pnl_Properties.Location = New System.Drawing.Point(600, 133)
+        Me.pnl_Properties.Name = "pnl_Properties"
+        Me.pnl_Properties.Size = New System.Drawing.Size(200, 317)
+        Me.pnl_Properties.TabIndex = 2
+        Me.pnl_Properties.Visible = False
+        '
+        'pic_Icon
+        '
+        Me.pic_Icon.Location = New System.Drawing.Point(10, 42)
+        Me.pic_Icon.Name = "pic_Icon"
+        Me.pic_Icon.Size = New System.Drawing.Size(64, 64)
+        Me.pic_Icon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+        Me.pic_Icon.TabIndex = 2
+        Me.pic_Icon.TabStop = False
+        '
+        'lbl_filesize
+        '
+        Me.lbl_filesize.AutoSize = True
+        Me.lbl_filesize.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_filesize.Location = New System.Drawing.Point(8, 181)
+        Me.lbl_filesize.Name = "lbl_filesize"
+        Me.lbl_filesize.Size = New System.Drawing.Size(26, 13)
+        Me.lbl_filesize.TabIndex = 1
+        Me.lbl_filesize.Text = "size"
+        '
+        'lbl_filetype
+        '
+        Me.lbl_filetype.AutoSize = True
+        Me.lbl_filetype.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_filetype.Location = New System.Drawing.Point(9, 165)
+        Me.lbl_filetype.Name = "lbl_filetype"
+        Me.lbl_filetype.Size = New System.Drawing.Size(45, 13)
+        Me.lbl_filetype.TabIndex = 1
+        Me.lbl_filetype.Text = "filetype"
+        '
+        'lbl_filename
+        '
+        Me.lbl_filename.Font = New System.Drawing.Font("Segoe UI", 11.0!)
+        Me.lbl_filename.Location = New System.Drawing.Point(7, 117)
+        Me.lbl_filename.Name = "lbl_filename"
+        Me.lbl_filename.Size = New System.Drawing.Size(181, 44)
+        Me.lbl_filename.TabIndex = 1
+        Me.lbl_filename.Text = "filename"
+        Me.lbl_filename.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'lbl_Properties
+        '
+        Me.lbl_Properties.AutoSize = True
+        Me.lbl_Properties.Font = New System.Drawing.Font("Segoe UI", 14.0!, System.Drawing.FontStyle.Bold)
+        Me.lbl_Properties.Location = New System.Drawing.Point(7, 7)
+        Me.lbl_Properties.Name = "lbl_Properties"
+        Me.lbl_Properties.Size = New System.Drawing.Size(105, 25)
+        Me.lbl_Properties.TabIndex = 0
+        Me.lbl_Properties.Text = "Properties"
+        '
+        'iml_icons
+        '
+        Me.iml_icons.ImageStream = CType(resources.GetObject("iml_icons.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.iml_icons.TransparentColor = System.Drawing.Color.Transparent
+        Me.iml_icons.Images.SetKeyName(0, "ico_folder.bmp")
+        Me.iml_icons.Images.SetKeyName(1, "ico_unknown.bmp")
+        Me.iml_icons.Images.SetKeyName(2, "ico_textfile.bmp")
+        Me.iml_icons.Images.SetKeyName(3, "ico_zip.png")
+        Me.iml_icons.Images.SetKeyName(4, "ico_picture.bmp")
+        Me.iml_icons.Images.SetKeyName(5, "ico_up.bmp")
+        Me.iml_icons.Images.SetKeyName(6, "ico_url.bmp")
+        Me.iml_icons.Images.SetKeyName(7, "ico_video.bmp")
+        Me.iml_icons.Images.SetKeyName(8, "ico_sfp.png")
+        Me.iml_icons.Images.SetKeyName(9, "ico_exe.png")
+        '
+        'pnl_AddressBar
+        '
+        Me.pnl_AddressBar.Controls.Add(Me.btn_Refresh)
+        Me.pnl_AddressBar.Controls.Add(Me.btn_Up)
+        Me.pnl_AddressBar.Controls.Add(Me.txt_AddressBar)
+        Me.pnl_AddressBar.Controls.Add(Me.lbl_Address)
+        Me.pnl_AddressBar.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnl_AddressBar.Location = New System.Drawing.Point(0, 97)
+        Me.pnl_AddressBar.Name = "pnl_AddressBar"
+        Me.pnl_AddressBar.Size = New System.Drawing.Size(800, 36)
+        Me.pnl_AddressBar.TabIndex = 4
+        '
+        'btn_Refresh
+        '
+        Me.btn_Refresh.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.btn_Refresh.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_Refresh.Location = New System.Drawing.Point(5, 5)
+        Me.btn_Refresh.Name = "btn_Refresh"
+        Me.btn_Refresh.Size = New System.Drawing.Size(24, 24)
+        Me.btn_Refresh.TabIndex = 2
+        Me.btn_Refresh.UseVisualStyleBackColor = True
+        '
+        'btn_Up
+        '
+        Me.btn_Up.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.btn_Up.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_Up.Location = New System.Drawing.Point(28, 5)
+        Me.btn_Up.Name = "btn_Up"
+        Me.btn_Up.Size = New System.Drawing.Size(24, 24)
+        Me.btn_Up.TabIndex = 2
+        Me.btn_Up.UseVisualStyleBackColor = True
+        '
+        'txt_AddressBar
+        '
+        Me.txt_AddressBar.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txt_AddressBar.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.txt_AddressBar.Location = New System.Drawing.Point(129, 5)
+        Me.txt_AddressBar.Name = "txt_AddressBar"
+        Me.txt_AddressBar.Size = New System.Drawing.Size(659, 25)
+        Me.txt_AddressBar.TabIndex = 1
+        '
+        'lbl_Address
+        '
+        Me.lbl_Address.AutoSize = True
+        Me.lbl_Address.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.lbl_Address.Location = New System.Drawing.Point(58, 8)
+        Me.lbl_Address.Name = "lbl_Address"
+        Me.lbl_Address.Size = New System.Drawing.Size(65, 19)
+        Me.lbl_Address.TabIndex = 0
+        Me.lbl_Address.Text = "Address :"
+        '
+        'lsv_Content
+        '
+        Me.lsv_Content.BackColor = System.Drawing.Color.White
+        Me.lsv_Content.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.lsv_Content.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.lsv_Content.Font = New System.Drawing.Font("Segoe UI", 8.0!)
+        Me.lsv_Content.HideSelection = False
+        Me.lsv_Content.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem1})
+        Me.lsv_Content.LargeImageList = Me.iml_icons
+        Me.lsv_Content.Location = New System.Drawing.Point(0, 133)
+        Me.lsv_Content.MultiSelect = False
+        Me.lsv_Content.Name = "lsv_Content"
+        Me.lsv_Content.Size = New System.Drawing.Size(600, 317)
+        Me.lsv_Content.SmallImageList = Me.iml_smallicons
+        Me.lsv_Content.Sorting = System.Windows.Forms.SortOrder.Ascending
+        Me.lsv_Content.TabIndex = 5
+        Me.lsv_Content.UseCompatibleStateImageBehavior = False
+        '
+        'iml_smallicons
+        '
+        Me.iml_smallicons.ImageStream = CType(resources.GetObject("iml_smallicons.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.iml_smallicons.TransparentColor = System.Drawing.Color.Transparent
+        Me.iml_smallicons.Images.SetKeyName(0, "ico_folder.bmp")
+        Me.iml_smallicons.Images.SetKeyName(1, "ico_unknown.bmp")
+        Me.iml_smallicons.Images.SetKeyName(2, "ico_textfile.bmp")
+        Me.iml_smallicons.Images.SetKeyName(3, "ico_zip.png")
+        Me.iml_smallicons.Images.SetKeyName(4, "ico_picture.bmp")
+        Me.iml_smallicons.Images.SetKeyName(5, "ico_up.bmp")
+        Me.iml_smallicons.Images.SetKeyName(6, "ico_url.bmp")
+        Me.iml_smallicons.Images.SetKeyName(7, "ico_video.bmp")
+        Me.iml_smallicons.Images.SetKeyName(8, "ico_sfp.png")
+        Me.iml_smallicons.Images.SetKeyName(9, "ico_exe.png")
+        '
+        'Uni_FileSkimmer
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.ClientSize = New System.Drawing.Size(800, 450)
+        Me.Controls.Add(Me.lsv_Content)
+        Me.Controls.Add(Me.pnl_Properties)
+        Me.Controls.Add(Me.pnl_AddressBar)
+        Me.Controls.Add(Me.pnl_JobBar)
+        Me.Controls.Add(Me.msn_Options)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.MainMenuStrip = Me.msn_Options
+        Me.Name = "Uni_FileSkimmer"
+        Me.ShowIcon = False
+        Me.ShowInTaskbar = False
+        Me.Text = "Uni_FileSkimmer"
+        Me.msn_Options.ResumeLayout(False)
+        Me.msn_Options.PerformLayout()
+        Me.pnl_JobBar.ResumeLayout(False)
+        Me.pnl_JobBar.PerformLayout()
+        Me.pnl_Properties.ResumeLayout(False)
+        Me.pnl_Properties.PerformLayout()
+        CType(Me.pic_Icon, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.pnl_AddressBar.ResumeLayout(False)
+        Me.pnl_AddressBar.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents msn_Options As MenuStrip
+    Friend WithEvents FileToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents AboutToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents pnl_JobBar As Panel
+    Friend WithEvents pnl_Properties As Panel
+    Friend WithEvents pnl_AddressBar As Panel
+    Friend WithEvents lbl_Address As Label
+    Friend WithEvents txt_AddressBar As TextBox
+    Friend WithEvents lbl_Properties As Label
+    Friend WithEvents lbl_filename As Label
+    Friend WithEvents lbl_filetype As Label
+    Friend WithEvents lbl_filesize As Label
+    Friend WithEvents pic_Icon As PictureBox
+    Friend WithEvents CloseToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents iml_icons As ImageList
+    Friend WithEvents lsv_Content As ListView
+    Friend WithEvents OptionsToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents PropertyPaneToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents btn_NewFolder As Button
+    Friend WithEvents btn_Up As Button
+    Friend WithEvents btn_Refresh As Button
+    Friend WithEvents btn_Delete As Button
+    Friend WithEvents btn_Rename As Button
+    Friend WithEvents btn_CopyPath As Button
+    Friend WithEvents btn_Compress As Button
+    Friend WithEvents cmb_Layout As ComboBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents iml_smallicons As ImageList
+    Friend WithEvents JobBarToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents Label2 As Label
+    Friend WithEvents CompressToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents DeleteToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
+End Class

ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.resx

@@ -0,0 +1,331 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="msn_Options.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="iml_icons.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>140, 17</value>
+  </metadata>
+  <data name="iml_icons.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
+        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
+        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAA+
+        GAAAAk1TRnQBSQFMAgEBCgEAAbgBAAG4AQABKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        AwABqAMAAX4DAAEBAQABCAUAAbABUhgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc
+        AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA
+        AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz
+        AwABZgMAAZkDAAHMAgABMwMAAjMCAAEzAWYCAAEzAZkCAAEzAcwCAAEzAf8CAAFmAwABZgEzAgACZgIA
+        AWYBmQIAAWYBzAIAAWYB/wIAAZkDAAGZATMCAAGZAWYCAAKZAgABmQHMAgABmQH/AgABzAMAAcwBMwIA
+        AcwBZgIAAcwBmQIAAswCAAHMAf8CAAH/AWYCAAH/AZkCAAH/AcwBAAEzAf8CAAH/AQABMwEAATMBAAFm
+        AQABMwEAAZkBAAEzAQABzAEAATMBAAH/AQAB/wEzAgADMwEAAjMBZgEAAjMBmQEAAjMBzAEAAjMB/wEA
+        ATMBZgIAATMBZgEzAQABMwJmAQABMwFmAZkBAAEzAWYBzAEAATMBZgH/AQABMwGZAgABMwGZATMBAAEz
+        AZkBZgEAATMCmQEAATMBmQHMAQABMwGZAf8BAAEzAcwCAAEzAcwBMwEAATMBzAFmAQABMwHMAZkBAAEz
+        AswBAAEzAcwB/wEAATMB/wEzAQABMwH/AWYBAAEzAf8BmQEAATMB/wHMAQABMwL/AQABZgMAAWYBAAEz
+        AQABZgEAAWYBAAFmAQABmQEAAWYBAAHMAQABZgEAAf8BAAFmATMCAAFmAjMBAAFmATMBZgEAAWYBMwGZ
+        AQABZgEzAcwBAAFmATMB/wEAAmYCAAJmATMBAANmAQACZgGZAQACZgHMAQABZgGZAgABZgGZATMBAAFm
+        AZkBZgEAAWYCmQEAAWYBmQHMAQABZgGZAf8BAAFmAcwCAAFmAcwBMwEAAWYBzAGZAQABZgLMAQABZgHM
+        Af8BAAFmAf8CAAFmAf8BMwEAAWYB/wGZAQABZgH/AcwBAAHMAQAB/wEAAf8BAAHMAQACmQIAAZkBMwGZ
+        AQABmQEAAZkBAAGZAQABzAEAAZkDAAGZAjMBAAGZAQABZgEAAZkBMwHMAQABmQEAAf8BAAGZAWYCAAGZ
+        AWYBMwEAAZkBMwFmAQABmQFmAZkBAAGZAWYBzAEAAZkBMwH/AQACmQEzAQACmQFmAQADmQEAApkBzAEA
+        ApkB/wEAAZkBzAIAAZkBzAEzAQABZgHMAWYBAAGZAcwBmQEAAZkCzAEAAZkBzAH/AQABmQH/AgABmQH/
+        ATMBAAGZAcwBZgEAAZkB/wGZAQABmQH/AcwBAAGZAv8BAAHMAwABmQEAATMBAAHMAQABZgEAAcwBAAGZ
+        AQABzAEAAcwBAAGZATMCAAHMAjMBAAHMATMBZgEAAcwBMwGZAQABzAEzAcwBAAHMATMB/wEAAcwBZgIA
+        AcwBZgEzAQABmQJmAQABzAFmAZkBAAHMAWYBzAEAAZkBZgH/AQABzAGZAgABzAGZATMBAAHMAZkBZgEA
+        AcwCmQEAAcwBmQHMAQABzAGZAf8BAALMAgACzAEzAQACzAFmAQACzAGZAQADzAEAAswB/wEAAcwB/wIA
+        AcwB/wEzAQABmQH/AWYBAAHMAf8BmQEAAcwB/wHMAQABzAL/AQABzAEAATMBAAH/AQABZgEAAf8BAAGZ
+        AQABzAEzAgAB/wIzAQAB/wEzAWYBAAH/ATMBmQEAAf8BMwHMAQAB/wEzAf8BAAH/AWYCAAH/AWYBMwEA
+        AcwCZgEAAf8BZgGZAQAB/wFmAcwBAAHMAWYB/wEAAf8BmQIAAf8BmQEzAQAB/wGZAWYBAAH/ApkBAAH/
+        AZkBzAEAAf8BmQH/AQAB/wHMAgAB/wHMATMBAAH/AcwBZgEAAf8BzAGZAQAB/wLMAQAB/wHMAf8BAAL/
+        ATMBAAHMAf8BZgEAAv8BmQEAAv8BzAEAAmYB/wEAAWYB/wFmAQABZgL/AQAB/wJmAQAB/wFmAf8BAAL/
+        AWYBAAEhAQABpQEAA18BAAN3AQADhgEAA5YBAAPLAQADsgEAA9cBAAPdAQAD4wEAA+oBAAPxAQAD+AEA
+        AfAB+wH/AQABpAKgAQADgAMAAf8CAAH/AwAC/wEAAf8DAAH/AQAB/wEAAv8CAAP//wD/AP8AeAAm7F0A
+        HP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0A
+        HP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0A
+        HP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0A
+        HP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8D7IAAAewk/wHsAf8B7IAAAewk/wHsAf8B7IAA
+        Aewk/wHsAf8B7IAAAewk/wHsAf8B7F8AFP8NAAHsJP8B7AH/AexfAA7/BAAC/w0AAewk/wHsAf8B7F8A
+        Dv8EAAL/DQAm7AH/AexfAA7/BAAC/w0AHewCAAHsAgAB7AIAAewB/wHsXwAO/wQAAv8NAB3sAgAB7AIA
+        AewCAAHsAf8B7F8ADv8EAAL/DQAm7AH/AexfAA7/BAAC/xEAAewi/wHsXwAU/xEAAewi/wHsXwAU/xEA
+        Aewi/wHshAAk7IQAG+wCAAHsAgAB7AIAAeyEABvsAgAB7AIAAewCAAHshAAk7P8AZAAK/5MACv8BAAr/
+        AQAB7AP/jgAJ/wEADP8BAAHsAv+OAAn/AQAM/wEAAewC/zMAKOwCACjsCQAI/wEADf8BAAHsAv8zACjs
+        AgAP7AoAD+wJAAf/AQAD/wEACv8BAAHsAv8zACjsAgAP7AEACP8BAA/sCQAH/wEAAv8CAAL/AQAC/wEA
+        Av8BAAH/AQAB7AL/MwAo7AIAD+wBAAj/AQAP7AkACP8CAAHsAQAC/wEAAv8BAAL/AQAB/wEAAewC/wkA
+        KP8CACjsAgAP7AEACP8BAA/sCQAL/wEAAv8BAAL/AQAC/wIAAewD/wkAKP8CACjsAgAP7AEACP8BAA/s
+        CQAL/wEAAv8BAAL/AwAB7AX/CQAo/wIAJOwE/wIAD+wBAAj/AQAP7AkAC/8BAAL/AwAB7Aj/CQAo/wIA
+        IewH/wIAD+wBAAj/AQAP7AkAC/8BAAL/AQAB7Ar/CQAP/wEAGP8CAAX/GuwJ/wIAD+wBAAj/AQAP7AkA
+        C/8BAAL/AQAB7Ar/CQAP/wIAF/8CAAj/FuwF/wHsBP8CAA/sAQAI/wEAD+wJAAv/AQAC/wEAAewK/wkA
+        D/8DABb/AgAP/wvsCf8C7AP/AgAP7AEACP8BAA/sCQAL/wEAAv8BAAHsCv8JAA//BAAV/wIAHv8B7AX/
+        AewD/wIAD+wBAAj/AQAP7AkAAv8J/AEAAv8BAAHsCv8JAA//BQAU/wIAHv8C7AT/AuwC/wIAD+wBAAj/
+        AQAP7AkADP8CAAHsC/8JAA//BgAT/wIAF/8D7AX/AuwE/wHsAv8CAA/sAQAI/wEAD+wJAAP/BPwC/wH8
+        BP8B/Av/CQAP/wcAEv8CABn/AuwF/wHsBP8B7AL/AgAP7AEACP8BAA/sCQAC/wH8BP8B/AH/AfwE/wH8
+        C/8JAA//CAAR/wIAGv8B7AX/AewE/wHsAv8CAA/sAQAI/wEAD+wJAAL/AfwE/wH8Af8B/AT/AfwL/wkA
+        D/8JABD/AgAa/wLsBP8B7AT/AuwB/wIAD+wBAAj/AQAP7AkAAv8B/AT/AfwB/wL8A/8B/Av/CQAP/woA
+        D/8CABP/BOwE/wLsCf8B7AH/AgAK7AYACP8HAAnsCQAC/wH8BP8B/AH/AfwB/wL8Af8B/Av/CQAP/woA
+        D/8CABb/AuwF/wHsCv8CAArsAQAT/wEACewJAAL/AfwE/wH8Bv8B/Av/CQAP/wkAEP8CABf/AewJ/wbs
+        Af8CAAvsAQAR/wEACuwJAAL/AfwE/wH8Bv8B/Av/CQAP/wgAEf8CABf/AuwG/wnsAgAM7AEAD/8BAAvs
+        CQAC/wH8BP8B/Ab/AfwL/wkAD/8HABL/AgAQ/wHsB/8C7AT/CuwCAA3sAQAN/wEADOwJAAL/AfwE/wH8
+        Bv8B/Av/CQAP/wYAE/8CABD/A+wG/wLsAv8L7AIADuwBAAv/AQAN7AkAGv8JAA//BQAU/wIAEv8D7Af/
+        DOwCAA/sAQAJ/wEADuwJABr/CQAP/wQAFf8CABT/AuwG/wzsAgAQ7AEAB/8BAA/sCQAa/wkAD/8DABb/
+        AgAV/wLsBP8N7AIAEewBAAX/AQAQ7AkAGv8JAA//AgAX/wIADf8E7AX/A+wC/w3sAgAS7AEAA/8BABHs
+        CQAa/wkAD/8BABj/AgAQ/wLsCf8N7AIAE+wBAAH/AQAS7AkAGv8JACj/AgAR/wHsCf8N7AIAFOwBABPs
+        CQAa/wkAKP8CABH/COwC/w3sAgAo7AkAGv8JACj/AgAb/w3sAgAo7AkAGv8JACj/AgAc/wzsMwAU/zkA
+        HP8M7AIAD+wiABT/AQAC/wLsXgAO7CMAFP8BAAH/AuyQABT/AQAC7JEAFP8BAAHskgAU//8AuAAh/wkA
+        If9dACH/CQAh/10AIf8JACH/LwAo7AYAIf8JAAT/GuwD/wUAKOwCACjsBgAh/wkAIf8FACjsAgAo7AYA
+        Dv8E7A//CQAh/wUAKOwCACjsBgAO/wTsD/8JAAP/GuwE/wUAKOwCACjsBgAO/wTsD/8JACH/BQAo7AIA
+        KOwGAA7/BOwP/wkAIf8FACjsAgAo7AYAIf8JAAT/GuwD/wUAKOwCACjsBgAh/wkAIf8FACjsAgAo7AYA
+        If8JACH/BQAo7AIAKOwGAA7/AZID7A//CQAD/xrsBP8FACjsAgAo7AYADv8BkgPsD/8JACH/BQAo7AIA
+        KOwGAA7/AZID7AHyDv8JACH/BQAo7AIAKOwGAA7/AQcD7AG8Dv8JAAT/GuwD/wUAKOwCACjsBgAO/wHx
+        BOwO/wkAIf8FACjsAgAo7AYAD/8E7AHvDf8JACH/BQAo7AIAKOwGAA//AfEE7AHvDP8JAAP/GuwE/wYA
+        A+wBAAPsAQAD7AEAA+wBAAPsAQAD7AEAA+wBAAPsAQAD7AEAA+wCACjsBgAQ/wG8BOwB7wH0Cv8JACH/
+        BQAB7AEAAewBAAHsAQAB7AEAAewBAAHsAQAB7AEAAewBAAHsAQAB7AEAAewBAAHsAQAB7AEAAewBAAHs
+        AQAB7AEAAewBAAHsAQAB7AEAAewDACjsBgAR/wG8BOwB7QH0Cf8JACH/BQAC7AEAA+wBAAPsAQAD7AEA
+        A+wBAAPsAQAD7AEAA+wBAAPsAQAD7AEAAewCACjsBgAS/wHwBOwBkgn/CQAE/xrsA/8FACjsAgAo7AYA
+        E/8B8gTsAe8I/wkAIf8FACjsAgAo7AYAFP8B8gTsAfIH/wkAIf8FACjsAgAo7AYAFf8BvAPsAe8H/wkA
+        A/8a7AT/BQAo7AIAKOwGABb/BOwH/wkAIf8FACjsAgAo7AYABv8B8wHvAZIB7AHvC/8BkgPsB/8JACH/
+        BQAo7AIAKOwGAAb/AfQD7AHtC/8B7QPsB/8JAAT/GuwD/wUAKOwCACjsBgAH/wTsAfIJ/wHzA+wB7Qf/
+        CQAh/wUAKOwCACjsBgAH/wEHA+wB9wn/AfcD7AHvB/8JACH/BQAo7AIAKOwGAAf/AfQE7AHvB/8B7wTs
+        AfMH/wkAA/8a7AT/BQAo7AIAKOwGAAj/AQcE7AGSAfAB9AH/AfQB8AGSBOwBBwj/CQAh/wUAKOwCACjs
+        BgAJ/wHvDewB7wn/CQAh/wUAKOwCACjsBgAK/wHwC+wB8Ar/CQAE/xrsA/8FACjsMAAL/wH0AbwB9wTs
+        Ae0B7wG8DP8JACH/LwAP7B8AIf8JACH/BQAP7BsADuwgACH/CQAD/xrsBP8FAA7sSgAh/wkAIf9dACH/
+        CQAh/10AIf8JACH/1gABQgFNAT4HAAE+AwABKAMAAagDAAF+AwABAQEAAQEFAAHQAQsWAAP/AQAK/wHw
+        DQAK/wHwDQAB8AMAAQMF/wHwDQAB8AMAAQMF/wHwDQAB8AMAAQMF/wHwDQAB8AMAAQMB8AQAATANAAHw
+        AwABAwHwBAABMA0AAfADAAEDAfAEAAEwDQAB8AMAAQMB8AQAATANAAHwAwABAwHwBAABMA0AAfADAAED
+        AfAEAAEwDQAB8AMAAQMB8AQAATANAAHwAwABAwHwBAABMA0AAfADAAEDAfAEAAEwDQAB8AMAAQMB8AQA
+        ATANAAHwAwABAwHwBAABMA0AAfADAAEDAfAEAAEwDQAB8AMAAQMB8AQAATANAAHwAwABAwHwBAABMA0A
+        AfADAAEDAfAEAAEwDQAB8AMAAQMB8AQAATANAAHwAwABAwHwBAABMA0AAfADAAEDAfAEAAEwDQAB8AMA
+        AQMB8BIAAfADAAEDAfASAAHwAwABAwHwEgAB8AMAAQMB8BIAAfADAAEDAfASAAHwAwABAwHwEgAB8AMA
+        AQMB8BIAAfADAAEDAfASAAHwAwABAwHwEgAB8AMAAQMB8BIAAfADAAEHAfASAAHwAwABDwH/EgAB8AMA
+        AR8B/xIAAfADAAEfAf8SAAb/EgAG/xIABv8SAAb/EgAK/wHwDQAL/wHgAgABAQb/AwAL/wHgAgABAQb/
+        AwAL/wHgAgABAQb/DQABDwHgAgABAQb/DQABDwHgAgABAQb/DQABDwHgAgABAQb/DQABDwHgAgABAQH8
+        EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8
+        EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8
+        EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8
+        EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8
+        EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8
+        EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8DwABHwP/AeACAAED
+        Bv8KAAE/A/8B4AIAAQcG/wMABf8BwAEAAX8D/wHgAgABDwb/AwAL/wHgAgABHwb/AwAL/wHgAgABPwb/
+        AwAL/wHgAgABfwb/AwAF/wH8BAABfwQAAR8F/wMABf8B/AQAAX8EAAEfBf8DAAX/AfwEAAF/BAABHwX/
+        CAABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEc
+        DQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEc
+        DQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEc
+        DQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEc
+        DQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEc
+        DQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEc
+        DQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcCgABfwL/AfwEAAF/BAABHAEAAQED/wUA
+        A/8B/AQAAX8EAAEcAQABAwP/BAABAQP/AfwEAAF/BAABHAEAAQcD/wMABf8B/AQAAX8EAAEfBf8DAAX/
+        AfwEAAF/BAABHwX/AwAF/wH8BAABfwQAAR8F/wMACw==
+</value>
+  </data>
+  <metadata name="iml_smallicons.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>250, 17</value>
+  </metadata>
+  <data name="iml_smallicons.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
+        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
+        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAB2
+        EwAAAk1TRnQBSQFMAgEBCgEAAXABAAFwAQABGAEAARgBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        AwABYAMAAUgDAAEBAQABCAYAARsYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
+        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
+        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
+        AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
+        AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
+        AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
+        ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
+        AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
+        AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
+        AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
+        AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
+        AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
+        AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
+        AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
+        AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
+        ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
+        Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
+        AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
+        AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
+        AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
+        ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
+        Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
+        AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
+        AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
+        AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
+        AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
+        AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
+        AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/2MAAe9fAAHvFgAB9BXz
+        MwAB7wEAEP8FAAHvFP8BBzMAAe8BABD/BQAB7xT/AQczAAHvAQAQ/wUAAe8U/wEHMwAB7wEAEP8FAAHv
+        FP8BBzMAAe8BABD/BQAB7xT/AQczAAHvAQAQ/wUAAe8U/wEHMwAB7wEAEP8FAAHvFP8BBzMAAe8BABD/
+        BQAB7xT/AQczAAHvAQAQ/wUAAe8U/wEHMwAB7wEAEP8FAAHvFP8BBzMAAe8BABDsBQAB7xT/AQcB7zIA
+        Ae8WAAHvFP8BBwHyMgAB7xYAAe8U/wEHAfIyAAHvAwAB7Af/AfcCFAH/BwAB7xT/AQcB8jIAAe8DAAHs
+        B/8B7AIAAf8HAAHvEOwBFAHrARQBEgFtAfIyAAHvAwAB7Af/AewCAAH/AwABEgMAAe8Q7AEQAW0BEAEV
+        ARIB8jIAAe8DAAHsB/8B7AIAAf8JAAHzE/8B8jIAAe8DAAHsC/8JAAHzE/8B8ksAAfMP7AEUAewBFAFt
+        ARJLAAHzD+wBEAHsARABEgEVxQAFBwFtBv8BEwEHAewcADDvBQAF/wHsBv8BFAIHHQAW7AFtAQAI7AZt
+        COwBbQUABP8BbQH/AbwF/wEUAgcdABbsAW0BAAjsARAE/wnsAW0FAAT/AQcB7AEUAf8BBwHsAf8BAAEU
+        AgcdABbsAW0BAAjsARAE/wnsAW0FAAT/AbwB8AEUAf8BBwHsAf8BAAHqAfQBBwUAFv8BBwEAFOwB7wEH
+        Ae0BAAjsARAE/wnsAW0FAAb/ARQB/wJtAewBBwL/AQcFABb/AQcBAAL3AZIO7AHtAQcD/wEHAQAI7AEQ
+        BP8J7AFtBQAG/wEUAf8BbQX/AQcFAAj/ARQB8Qz/AQcBAAT/AfcM7AP/AfIB/wEHAQAI7AEQBP8J7AFt
+        BQAG/wEUAf8BbQX/AQcFAAj/ARQBAAz/AQcBAAj/AfMF8gHzAv8B8AL/AZIB/wEHAQAI7AEQBP8J7AFt
+        BQAB/wXIARQB/wFtBf8BBwUACP8BFAEAAQ4L/wEHAQAN/wEHAfAC/wH3AfAB/wHwAgcBAAjsARAE/wns
+        AW0FAAH/Ad0C1gH/Ad0B8QHsAd0F/wEHBQAI/wEUAwAB8Qn/AQcBAA7/AZID/wH3Av8CBwEACOwBEAT/
+        CewBbQUAAf8B1gL/Ad0B1gL/Ad0F/wEHBQAI/wEUBAAB8Qj/AQcBAA7/AfIB7AL/AfcC/wHsAQcBAAjs
+        ARAE/wnsAW0FAAH/AdYC/wHdAfwC/wHdBf8BBwUACP8BFAUACP8BBwEAC/8B8gGSAfAB/wHyAe8E/wH0
+        AQcBAAXsARQDBwT/AfEDBwEUBOwBbQUAAf8B1gL/Ad0BGQHdAf8B3QX/AQcFAAj/ARQEAAFtCP8BBwEA
+        Df8B9wP/AfIB7wPsAe0BAAbsARIJ/wESBewBbQUAAf8B1gL/Ad0D/wHdBf8BBwUACP8BFAMAAW0J/wEH
+        AQAJ/wHvAfMC/wHwAZIB/wHzBewBbQEAB+wBEAHzBf8B8wEQBuwBbQUAAf8B1gL/Ad0D/wHdBf8BBwUA
+        CP8BFAIAARQK/wEHAQAK/wLsBP8G7AFtAQAI7AEQBf8BEAfsAW0FAA7/AQcFAAj/ARQBAAEUC/8BBwEA
+        C/8B8gGSAv8B9wbsAW0BAAnsARID/wESCOwBbQUADv8BBwUACP8BFAFtDP8BBwEAB/8CBwH3Av8B8AEH
+        Af8H7AFtAQAK7AESAf8BEgnsAW0FAA7/AQcFAAj/AfcN/wEHAQAJ/wEHBPIB/wfsAW0BAAvsARAK7AFt
+        BQAO/wEHBQAW/wEHAQAP/wfsAW0BABbsAW0FAA7/AQcFABb/AQcBABD/BuwBbQEACG0BDw7yBQAL/wEA
+        AQcBbQESBAAY8hjvAQAIFAH0EwAL/wEAAe0B7FIAC/8BAAFtmAAB7xMHAe8DAAHvEwcB7xkAGO8CAAHv
+        E/8B7wMAAe8T/wHvAQAY7wEAFuwBbQIAAe8T/wHvAwAB7wL/AQcO9wL/Ae8CABbsAW0BABbsAW0CAAHv
+        CP8C7AHyCP8B7wMAAe8T/wHvAgAW7AFtAQAW7AFtAgAB7wj/AuwB8gj/Ae8DAAHvAv8O8gHzAv8B7wIA
+        FuwBbQEAFuwBbQIAAe8I/wIHAfQI/wHvAwAB7wL/AfAOBwL/Ae8CABbsAW0BABbsAW0CAAHvE/8B7wMA
+        Ae8T/wHvAgAW7AFtAQAW7AFtAgAB7wj/Ae0B7AHyCP8B7wMAAe8C/w7sAfcC/wHvAgAW7AFtAQAW7AFt
+        AgAB7wj/Ae0B7AHwCP8B7wMAAe8T/wHvAgAW7AFtAQAW7AFtAgAB7wj/AQcB7AH3CP8B7wMAAe8C/wHw
+        DgcC/wHvAgAW7AFtAQAW7AFtAgAB7wj/AfIC7AG8B/8B7wMAAe8C/w7yAfMC/wHvAgAC7AFtAewBbQTs
+        AesB7AFtAewB6wTsAW0B7AFtAewBbQEAFuwBbQIAAe8J/wG8AuwBBwb/Ae8DAAHvE/8B7wIAARABFAFt
+        AewBbQEUARABAAEQARQBbQHsAW0BFAEQAQABEAEUAW0B7AFtARQCABbsAW0CAAHvCv8BvALsAe8F/wHv
+        AwAB7wL/AQcO9wL/Ae8CAAHsAesB7AFtAewB6wTsAW0B7AFtBOwB6wHsAW0B7AHrAW0BABbsAW0CAAHv
+        C/8B8ALsAfEE/wHvAwAB7xP/Ae8CABbsAW0BABbsAW0CAAHvDP8BBwHsAZIE/wHvAwAB7wL/DvcBBwL/
+        Ae8CABbsAW0BABbsAW0CAAHvA/8B9AHvAewB8wX/AfIC7AT/Ae8DAAHvE/8B7wIAFuwBbQEAFuwBbQIA
+        Ae8E/wLsAfAF/wHwAuwE/wHvAwAB7wL/AfMO8gL/Ae8CABbsAW0BABbsAW0CAAHvBP8BBwHsAe0B8wP/
+        AfMB7QHsAQcE/wHvAwAB7wL/DgcB8AL/Ae8CABbsAW0BABbsAW0CAAHvBP8B9AHtAuwBvAHyAbwC7AHt
+        AfQE/wHvAwAB7xP/Ae8CABbsAW0BABbsAW0CAAHvBv8BkgXsAZIG/wHvAwAB7wL/AfcO7AL/Ae8CABbs
+        AW0BAAhtAQ8O8gIAAe8H/wHzA/IB8wf/Ae8DAAHvE/8B7wIACG0BDw7yAQAIFAH0EAAB7xP/Ae8DAAHv
+        Av8OBwHwAv8B7wIACBQB9CgAAe8T/wHvAwAB7xP/Ae8zAAHvEwAB7wMAAe8TAAHvGQABQgFNAT4HAAE+
+        AwABKAMAAWADAAFIAwABAQEAAQEFAAFgAQMWAAP/AQAG/wYAAcABAAEDA/8GAAHAAQABAwGAAQABAQYA
+        AcABAAEDAYABAAEBBgABwAEAAQMBgAEAAQEGAAHAAQABAwGAAQABAQYAAcABAAEDAYABAAEBBgABwAEA
+        AQMBgAEAAQEGAAHAAQABAwGAAQABAQYAAcABAAEDAYABAAEBBgABwAEAAQMBgAEAAQEGAAHAAQABAwGA
+        AQABAQYAAcABAAEDAYABAAEBBgABwAEAAQMBgAgAAcABAAEDAYAIAAHAAQABAwGACAABwAEAAQMBgAgA
+        AcABAAEDAYAIAAHAAQABAwGACAABwAEAAQcB4AgAAcABAAEPAeAIAAP/AeAIAAP/AeAIAAb/BgAG/wHw
+        AQABDwP/BgAB8AEAAQ8D/wYAAfABAAEPA/8GAAHwAQABDwkAAfABAAEPCQAB8AEAAQ8JAAHwAQABDwkA
+        AfABAAEPCQAB8AEAAQ8JAAHwAQABDwkAAfABAAEPCQAB8AEAAQ8JAAHwAQABDwkAAfABAAEPCQAB8AEA
+        AQ8JAAHwAQABDwkAAfABAAEPCQAB8AEAAQ8JAAHwAQABDwkAAfABAAEPCQAB8AEAAQ8HAAE/Af8B8AEA
+        AR8J/wHwAQABPwn/AfABAAF/Bv8BwAEAAQEBwAEAAQED/wMAAcABAAEBAcABAAEBBgABwAEAAQEBwAEA
+        AQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYA
+        AcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEA
+        AQEBwAEAAQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHA
+        AQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEB
+        BgABwAEAAQEBwAEAAQEEAAE/Af8BwAEAAQEBwAEAAQEBAAE/BP8BwAEAAQEBwAEAAQEG/wHAAQABAQHA
+        AQABAQP/Cw==
+</value>
+  </data>
+</root>

ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.vb

@@ -0,0 +1,466 @@
+Imports System.IO
+Imports System.IO.Compression
+
+Public Class Uni_FileSkimmer
+    Public CurrentDir As String
+    Dim FileType As Integer
+    Dim ItemsDeleted As Integer
+
+    Private Sub Uni_FileSkimmer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        CheckAvailable()
+        'End thingy
+        CurrentDir = Strings.OnceInfo(1)
+        txt_AddressBar.Text = CurrentDir.Replace(Strings.OnceInfo(1), "!\")
+        ShowContent()
+    End Sub
+
+    Private Sub CheckAvailable()
+        If Strings.AvailableFeature(47) = 1 Then
+            btn_Delete.Image = My.Resources.FileSkimmerFunctionIcons.largeico_deletefile
+            DeleteToolStripMenuItem.Visible = True
+        Else
+            btn_Delete.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
+            btn_Delete.Text = "???"
+            DeleteToolStripMenuItem.Visible = False
+        End If
+        If Strings.AvailableFeature(48) = 1 Then
+            btn_Compress.Image = My.Resources.FileSkimmerFunctionIcons.largeico_compress
+            CompressToolStripMenuItem.Visible = True
+        Else
+            btn_Compress.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
+            btn_Compress.Text = "???"
+            CompressToolStripMenuItem.Visible = False
+        End If
+        If Strings.AvailableFeature(49) = 1 Then
+            PropertyPaneToolStripMenuItem.Checked = True
+            pnl_Properties.Visible = True
+        Else
+            PropertyPaneToolStripMenuItem.Checked = False
+            PropertyPaneToolStripMenuItem.Visible = False
+            pnl_Properties.Visible = False
+        End If
+        If Strings.AvailableFeature(50) = 1 Then
+            JobBarToolStripMenuItem.Checked = True
+            pnl_JobBar.Visible = True
+        Else
+            JobBarToolStripMenuItem.Checked = False
+            JobBarToolStripMenuItem.Visible = False
+            pnl_JobBar.Visible = False
+        End If
+        'Sets icons for buttons in here, for some reason
+        btn_NewFolder.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
+        btn_NewFolder.Text = "???"
+        btn_Rename.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
+        btn_Rename.Text = "???"
+        btn_CopyPath.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
+        btn_CopyPath.Text = "???"
+        If Strings.AvailableFeature(51) = 1 Then
+        Else
+            cmb_Layout.Items.Remove("Small Icons")
+        End If
+        If Strings.AvailableFeature(52) = 1 Then
+        Else
+            cmb_Layout.Items.Remove("List")
+        End If
+        btn_Up.BackgroundImage = My.Resources.FileSkimmerFunctionIcons.ico_up1
+        btn_Refresh.BackgroundImage = My.Resources.FileSkimmerFunctionIcons.ico_refresh
+    End Sub
+
+    Private Sub PropertyPaneToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertyPaneToolStripMenuItem.Click
+        If PropertyPaneToolStripMenuItem.CheckState = False Then
+            pnl_Properties.Visible = False
+        Else
+            pnl_Properties.Visible = True
+        End If
+    End Sub
+
+    Private Sub JobBarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles JobBarToolStripMenuItem.Click
+        If JobBarToolStripMenuItem.CheckState = False Then
+            pnl_JobBar.Visible = False
+        Else
+            pnl_JobBar.Visible = True
+        End If
+    End Sub
+
+    Private Sub CompressToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CompressToolStripMenuItem.Click
+        If Strings.AvailableFeature(48) = 1 Then
+            FS_Compression()
+        End If
+    End Sub
+
+    Private Sub DeleteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
+        FS_Delete()
+    End Sub
+
+    Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem.Click
+        Dispose()
+    End Sub
+
+    Private Sub btn_Delete_Click(sender As Object, e As EventArgs) Handles btn_Delete.Click
+        FS_Delete()
+    End Sub
+
+    Private Sub btn_Compress_Click(sender As Object, e As EventArgs) Handles btn_Compress.Click
+        If Strings.AvailableFeature(48) = 1 Then
+            FS_Compression()
+        Else
+
+        End If
+    End Sub
+
+    Private Sub cmb_Layout_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_Layout.SelectedIndexChanged
+        Select Case cmb_Layout.SelectedItem.ToString
+            Case "Large Icons"
+                lsv_Content.View = View.LargeIcon
+            Case "Small Icons"
+                lsv_Content.View = View.SmallIcon
+            Case "List"
+                lsv_Content.View = View.List
+        End Select
+    End Sub
+
+    Private Sub cmb_Layout_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cmb_Layout.DrawItem
+        e.DrawBackground()
+        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
+            e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
+        End If
+        Dim sf As New StringFormat
+        Using b As New SolidBrush(e.ForeColor)
+            e.Graphics.DrawString(cmb_Layout.GetItemText(cmb_Layout.Items(e.Index)), e.Font, b, e.Bounds, sf)
+        End Using
+        e.DrawFocusRectangle()
+    End Sub
+
+    Private Sub btn_Up_Click(sender As Object, e As EventArgs) Handles btn_Up.Click
+        Try
+            If txt_AddressBar.Text = "!\" Or txt_AddressBar.Text = "!" Then
+
+            Else
+                Dim directoryInfo As System.IO.DirectoryInfo
+                directoryInfo = System.IO.Directory.GetParent(CurrentDir.Replace("!\", Strings.OnceInfo(1) & "\"))
+
+                'Dim endloop As Boolean = False
+                'lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1)
+
+                'While endloop = False
+                '    Try
+                '        If lbllocation.Text.Substring(lbllocation.Text.Length - 1) = "/" Then
+                '            endloop = True
+                '        Else
+                '            lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1)
+                '        End If
+                '    Catch
+                '        infobox.title = "File Skimmer - Error!"
+                '        infobox.textinfo = "Unable to move into a higher directory due to error reading the requested folder on the drive." & Environment.NewLine & Environment.NewLine & "An error occured going up"
+                '        infobox.Show()
+                '    End Try
+                'End While
+                Dim DirFullName As String = directoryInfo.FullName
+                txt_AddressBar.Text = DirFullName.Replace(Strings.OnceInfo(1), "!")
+                CurrentDir = DirFullName
+                If txt_AddressBar.Text = "!" Then
+                    txt_AddressBar.Text = txt_AddressBar.Text & "\"
+                End If
+                ShowContent()
+            End If
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub btn_Refresh_Click(sender As Object, e As EventArgs) Handles btn_Refresh.Click
+        ShowContent()
+    End Sub
+
+    Private Sub txt_AddressBar_TextChanged(sender As Object, e As KeyEventArgs) Handles txt_AddressBar.KeyDown
+        If e.KeyCode = Keys.Enter Then
+            If txt_AddressBar.Text Like "!*" Then
+                Dim BackupCurrentDir As String = txt_AddressBar.Text
+                BackupCurrentDir = BackupCurrentDir.Replace("!", Strings.OnceInfo(1))
+                If BackupCurrentDir Like "*.*" Then
+
+                Else
+                    If Directory.Exists(BackupCurrentDir) = True Then
+                        txt_AddressBar.Text = BackupCurrentDir.Replace(Strings.OnceInfo(1), "!")
+                        CurrentDir = BackupCurrentDir
+                        ShowContent()
+                    End If
+                End If
+            Else
+                txt_AddressBar.Text = "!\"
+                CurrentDir = Strings.OnceInfo(1)
+                ShowContent()
+            End If
+        End If
+    End Sub
+
+    Private Sub lsv_Content_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles lsv_Content.MouseDoubleClick
+        If txt_AddressBar.Text Like "*\" Then
+        Else
+            txt_AddressBar.Text = txt_AddressBar.Text + "\"
+        End If
+        ExecuteFile(txt_AddressBar.Text + lsv_Content.SelectedItems(0).Text)
+    End Sub
+
+    Private Sub lsv_Content_MouseClick(sender As Object, e As MouseEventArgs) Handles lsv_Content.MouseClick
+        Select Case e.Button
+            Case MouseButtons.Left
+                Dim IsCompressed As Boolean = False
+                If lsv_Content.SelectedItems(0).Text Like "*.zip" Then
+                    IsCompressed = True
+                End If
+                If pnl_Properties.Visible = True Then
+                    Dim IsFile As Boolean = False
+                    If lsv_Content.SelectedItems(0).Text = Nothing Then
+                        pic_Icon.Image = Nothing
+                        lbl_filename.Visible = False
+                        lbl_filetype.Visible = False
+                        lbl_filesize.Visible = False
+                    Else
+                        lbl_filename.Visible = True
+                        lbl_filetype.Visible = True
+                        If lsv_Content.SelectedItems(0).Text Like "*.txt" Then
+                            pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_textfile
+                            lbl_filetype.Text = "Text File"
+                            IsFile = True
+                        ElseIf lsv_Content.SelectedItems(0).Text Like "*.zip" Then
+                            pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_zip
+                            lbl_filetype.Text = "Compressed ZIP File"
+                            IsFile = True
+                        ElseIf lsv_Content.SelectedItems(0).Text Like "*.*" Then
+                            pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_unknown
+                            lbl_filetype.Text = "Unknown File Type"
+                            IsFile = True
+                        ElseIf lsv_Content.SelectedItems(0).Text = "???" Then
+                            pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_unknown
+                            lbl_filetype.Text = "Unknown Type"
+                        End If
+                        If IsFile = True Then
+                            lbl_filesize.Visible = True
+                            Dim filinf As New IO.FileInfo(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text)
+                            Dim filsize As Long = filinf.Length / 1024
+                            Dim thesize As Integer = 1
+                            Do
+                                If filsize >= 1024 Then
+                                    filsize = filsize / 1024
+                                    thesize = thesize + 1
+                                Else
+                                    Exit Do
+                                End If
+                            Loop
+                            Select Case thesize
+                                Case 1
+                                    lbl_filesize.Text = filsize & " KB"
+                                Case 2
+                                    lbl_filesize.Text = filsize & " MB"
+                                Case 3
+                                    lbl_filesize.Text = filsize & " GB"
+                            End Select
+                        Else
+                            pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_folder
+                            lbl_filetype.Text = "Folder"
+                            lbl_filesize.Visible = False
+                        End If
+                        lbl_filename.Text = lsv_Content.SelectedItems(0).Text
+                    End If
+                End If
+                If Strings.AvailableFeature(48) = 1 Then
+                    If IsCompressed = True Then
+                        btn_Compress.Image = My.Resources.FileSkimmerFunctionIcons.largeico_uncompress
+                        btn_Compress.Text = "Extract"
+                        CompressToolStripMenuItem.Text = "Extract"
+                    Else
+                        btn_Compress.Image = My.Resources.FileSkimmerFunctionIcons.largeico_compress
+                        btn_Compress.Text = "Compress"
+                        CompressToolStripMenuItem.Text = "Compress"
+                    End If
+                End If
+        End Select
+    End Sub
+
+    Public Sub ExecuteFile(path As String)
+        If path Like "*.*" Then
+            If path Like "*.txt" Then
+
+            ElseIf path Like "*.zip" Then
+
+            End If
+        Else
+            path = path.Replace("!\", Strings.OnceInfo(1) & "\")
+            If My.Computer.FileSystem.DirectoryExists(path) Then
+                CurrentDir = path
+                txt_AddressBar.Text = CurrentDir.Replace(Strings.OnceInfo(1), "!")
+                ShowContent()
+            Else
+            End If
+        End If
+    End Sub
+
+    Public Sub ShowContent()
+        Show()
+
+        lsv_Content.Items.Clear()
+
+        Dim Dir As New DirectoryInfo(CurrentDir)
+        Dim Files As FileInfo() = Dir.GetFiles()
+        Dim File As FileInfo
+        Dim Folders As DirectoryInfo() = Dir.GetDirectories()
+        Dim Folder As DirectoryInfo
+
+        For Each Folder In Folders
+            Dim FolderName As String = Folder.Name
+            If Strings.AvailableFeature(45) = 1 Then
+                lsv_Content.Items.Add(FolderName, 0)
+            Else
+                lsv_Content.Items.Add("???", 1)
+            End If
+        Next
+
+        For Each File In Files
+            Dim filename As String = File.Name
+            Dim fileex As String = File.Extension
+            FileType = GetFileType(fileex)(0)
+            If Strings.AvailableFeature(46) = 1 Then
+                lsv_Content.Items.Add(filename, FileType)
+            Else
+                lsv_Content.Items.Add("???", 1)
+            End If
+        Next
+    End Sub
+
+    Public Function GetFileType(fileex As String)
+
+        Dim FileType As Integer
+        Dim Program As String
+
+        Select Case fileex
+            Case ".txt"
+                FileType = 2
+                Program = "Text Document"
+            Case ".zip"
+                FileType = 3
+                Program = "Compressed ZIP file"
+            'Case ".doc"
+            '    filetype = 5
+            '    program = "Word Document"
+            'Case ".docx"
+            '    filetype = 5
+            '    program = "Word Document"
+            Case ".png"
+                FileType = 3
+                Program = "Picture"
+            Case ".jpg"
+                FileType = 3
+                Program = "Picture"
+            Case ".jpeg"
+                FileType = 3
+                Program = "Picture"
+            Case ".bmp"
+                FileType = 3
+                Program = "Bitmap"
+            Case ".gif"
+                FileType = 3
+                Program = "Animated Picture"
+                'Case ".avi"
+                '    filetype = 10
+                '    program = "Video Clip"
+                'Case ".m4v"
+                '    filetype = 10
+                '    program = "MPEG-4 Video"
+                'Case ".mp4"
+                '    filetype = 10
+                '    program = "MPEG-4 Video"
+                'Case ".wmv"
+                '    filetype = 10
+                '    program = "Windows Media Video"
+                'Case ".mp3"
+                '    filetype = 9
+                '    program = "MPEG-3 Song"
+                'Case ".zip"
+                '    filetype = 11
+                '    program = "Compressed Files"
+                'Case ".dll"
+                '    filetype = 8
+                '    program = "System File"
+                'Case ".exe"
+                '    filetype = 6
+                '    program = "MS-DOS Executable"
+                'Case ".sh"
+                '    filetype = 7
+                '    program = "BASH Script"
+                'Case ".bat"
+                '    filetype = 6
+                '    program = "MS-DOS Batch File"
+                'Case ".url"
+                '    filetype = 5
+                '    program = "Shortcut"
+                'Case ".htm", ".html"
+                '    filetype = 5
+                '    program = "Web Page"
+            Case Else
+                FileType = 1
+                Program = "Unknown File Type"
+        End Select
+
+        Dim array() As String = {CStr(FileType), Program}
+
+        Return (array)
+        If txt_AddressBar.Text = "!\" Then
+            'WARNING TO GET BACK BUTTON DISABLED
+        End If
+    End Function
+
+    Private Sub FS_Compression()
+        Dim NothingIn As Boolean = True
+        Dim ZipRandomInt As Integer
+        Dim ZipRandom As New Random
+        Dim UnzipRandomInt As Integer
+        Dim UnzipRandom As New Random
+        Try
+            If lsv_Content.SelectedItems(0).Text Like "*.zip" Then
+                UnzipRandomInt = UnzipRandom.Next(1, 1000000)
+                Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\UNZIP" & UnzipRandomInt)
+                ZipFile.ExtractToDirectory(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text, Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\UNZIP" & UnzipRandomInt)
+                Directory.CreateDirectory(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text.Replace(".zip", ""))
+                CopyDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\UNZIP" & UnzipRandomInt, CurrentDir & "\" & lsv_Content.SelectedItems(0).Text.Replace("zip", ""))
+                Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\UNZIP" & UnzipRandomInt, True)
+            ElseIf lsv_Content.SelectedItems(0).Text Like "*.*" Then
+                ZipRandomInt = ZipRandom.Next(1, 1000000)
+                Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt)
+                File.Copy(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text, Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt & "\" & lsv_Content.SelectedItems(0).Text)
+                Dim Numbering As String = lsv_Content.SelectedItems(0).Text.Length
+                Dim TheNaming As String = lsv_Content.SelectedItems(0).Text.Substring(0, Numbering - 3) & "zip"
+                ZipFile.CreateFromDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt, CurrentDir & "\" & TheNaming)
+                Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt, True)
+                NothingIn = False
+            ElseIf lsv_Content.SelectedItems(0).Text Like "*" Then
+                If Directory.Exists(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text) = True Then
+                    ZipFile.CreateFromDirectory(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text, CurrentDir & "\" & lsv_Content.SelectedItems(0).Text & ".zip")
+                    NothingIn = False
+                Else
+
+                End If
+            End If
+            ShowContent()
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub FS_Delete()
+        If Strings.AvailableFeature(47) = 0 Then
+
+        Else
+            Try
+                If lsv_Content.SelectedItems(0).Text Like "*.*" Then
+                    File.Delete(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text)
+                ElseIf lsv_Content.SelectedItems(0).Text Like "*" Then
+                    Directory.Delete(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text)
+                End If
+                ShowContent()
+            Catch ex As Exception
+
+            End Try
+        End If
+    End Sub
+End Class

ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Countries.txt

@@ -7,7 +7,7 @@ antigua and barbuda
 argentina
 armenia
 australia
-austia
+austria
 azerbaijan
 bahamas
 bahrain
@@ -23,7 +23,7 @@ bosnia and herzegovina
 botswana
 brazil
 brunei
-bulgraia
+bulgaria
 burkina faso
 burundi
 cambodia
@@ -37,7 +37,8 @@ china
 colombia
 comoros
 democratic republic of the congo
-republic of the congocosta rica
+republic of the congo
+costa rica
 croatia
 cuba
 cyprus

ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.Designer.vb

@@ -145,7 +145,7 @@ Namespace My.Resources
         '''argentina
         '''armenia
         '''australia
-        '''austia
+        '''austria
         '''azerbaijan
         '''bahamas
         '''bahrain
@@ -161,7 +161,7 @@ Namespace My.Resources
         '''botswana
         '''brazil
         '''brunei
-        '''bulgraia
+        '''bulgaria
         '''burkina faso
         '''burundi
         '''cambodia
@@ -175,13 +175,14 @@ Namespace My.Resources
         '''colombia
         '''comoros
         '''democratic republic of the congo
-        '''republic of the congocosta rica
+        '''republic of the congo
+        '''costa rica
         '''croatia
         '''cuba
         '''cyprus
         '''czechia
         '''denmark
-        '''djibou [rest of string was truncated]";.
+        '''dji [rest of string was truncated]";.
         '''</summary>
         Friend Shared ReadOnly Property Countries() As String
             Get
@@ -250,5 +251,62 @@ Namespace My.Resources
                 Return ResourceManager.GetString("Fruits", resourceCulture)
             End Get
         End Property
+        
+        '''<summary>
+        '''  Looks up a localized string similar to alabama
+        '''alaska
+        '''arizona
+        '''arkansas
+        '''california
+        '''colorado
+        '''connecticut
+        '''delaware
+        '''florida
+        '''georgia
+        '''hawaii
+        '''idaho
+        '''illinois
+        '''indiana
+        '''iowa
+        '''kansas
+        '''kentucky
+        '''louisiana
+        '''maine
+        '''maryland
+        '''massachusetts
+        '''michigan
+        '''minnesota
+        '''mississippi
+        '''missouri
+        '''montana
+        '''nebraska
+        '''nevada
+        '''new hampshire
+        '''new jersey
+        '''new mexico
+        '''new york
+        '''north carolina
+        '''north dakota
+        '''ohio
+        '''oklahoma
+        '''oregon
+        '''pennsylvania
+        '''rhode island
+        '''south carolina
+        '''south dakota
+        '''tennessee
+        '''texas
+        '''utah
+        '''vermont
+        '''virginia
+        '''washington
+        '''washington dc
+        '''west virgi [rest of string was truncated]&quot;;.
+        '''</summary>
+        Friend Shared ReadOnly Property US_States() As String
+            Get
+                Return ResourceManager.GetString("US_States", resourceCulture)
+            End Get
+        End Property
     End Class
 End Namespace

ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.resx

@@ -127,4 +127,7 @@
   <data name="Fruits" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>fruits.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
   </data>
+  <data name="US_States" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>us_states.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
 </root>

ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/US_States.txt

@@ -0,0 +1,51 @@
+alabama
+alaska
+arizona
+arkansas
+california
+colorado
+connecticut
+delaware
+florida
+georgia
+hawaii
+idaho
+illinois
+indiana
+iowa
+kansas
+kentucky
+louisiana
+maine
+maryland
+massachusetts
+michigan
+minnesota
+mississippi
+missouri
+montana
+nebraska
+nevada
+new hampshire
+new jersey
+new mexico
+new york
+north carolina
+north dakota
+ohio
+oklahoma
+oregon
+pennsylvania
+rhode island
+south carolina
+south dakota
+tennessee
+texas
+utah
+vermont
+virginia
+washington
+washington dc
+west virginia
+wisconsin
+wyoming

ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb

@@ -51,7 +51,7 @@ Partial Class Uni_KnowledgeInput
         Me.cmb_Category.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
         Me.cmb_Category.ForeColor = System.Drawing.Color.Black
         Me.cmb_Category.FormattingEnabled = True
-        Me.cmb_Category.Items.AddRange(New Object() {"Animals", "Countries", "Fruits"})
+        Me.cmb_Category.Items.AddRange(New Object() {"Animals", "Countries", "Fruits", "US States"})
         Me.cmb_Category.Location = New System.Drawing.Point(20, 96)
         Me.cmb_Category.Name = "cmb_Category"
         Me.cmb_Category.Size = New System.Drawing.Size(266, 31)

ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb

@@ -1,9 +1,10 @@
 Imports System.IO
 
 Public Class Uni_KnowledgeInput
-    Public Countries(193) As String
+    Public Countries(194) As String
     Public Animals(226) As String
     Public Fruits(75) As String
+    Public US_States(50) As String
     Public TotalGuessed As Integer
     Public CurrentCategory As String
     Public Level As Integer
@@ -26,6 +27,13 @@ Public Class Uni_KnowledgeInput
                     File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin", My.Resources.KnowledgeInputContent.Fruits)
                 End If
             End If
+            If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\US_States.kin") = True Then
+
+            Else
+                If Strings.AvailableFeature(42) = 1 Then
+                    File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\US_States.kin", My.Resources.KnowledgeInputContent.US_States)
+                End If
+            End If
         Else
             Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput")
             File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Countries.kin", My.Resources.KnowledgeInputContent.Countries)
@@ -91,6 +99,12 @@ Public Class Uni_KnowledgeInput
                 End If
                 Available = True
                 Fruits = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin")
+            Case "US States"
+                If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentUS_States.kin") = True Then
+                    lst_Guessed.Items.AddRange(File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentUS_States.kin"))
+                End If
+                Available = True
+                US_States = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\US_States.kin")
         End Select
         If Available = True Then
             TotalGuessed = lst_Guessed.Items.Count
@@ -102,6 +116,8 @@ Public Class Uni_KnowledgeInput
                     lbl_TotalGuess.Text = lbl_TotalGuess.Text & Animals.Length
                 Case "Fruits"
                     lbl_TotalGuess.Text = lbl_TotalGuess.Text & Fruits.Length
+                Case "US States"
+                    lbl_TotalGuess.Text = lbl_TotalGuess.Text & US_States.Length
             End Select
             Level = Math.Ceiling((TotalGuessed / 10))
             CheckLevel()
@@ -116,6 +132,9 @@ Public Class Uni_KnowledgeInput
         If Strings.AvailableFeature(39) = 0 Then
             cmb_Category.Items.Remove("Fruits")
         End If
+        If Strings.AvailableFeature(42) = 0 Then
+            cmb_Category.Items.Remove("US States")
+        End If
     End Sub
 
     Private Sub CheckLevel()
@@ -177,6 +196,20 @@ Public Class Uni_KnowledgeInput
                         Lines = Lines + 1
                     End If
                 Loop
+            Case "US States"
+                Dim Lines As Integer = 0
+                Do
+                    If Lines = US_States.Length Then
+                        Exit Do
+                    End If
+                    If US_States(Lines) = Input Then
+                        US_States(Lines) = "null"
+                        Correct = True
+                        Exit Do
+                    Else
+                        Lines = Lines + 1
+                    End If
+                Loop
         End Select
         If Correct = True Then
             lst_Guessed.Items.Add(Input)
@@ -189,6 +222,8 @@ Public Class Uni_KnowledgeInput
                     lbl_TotalGuess.Text = lbl_TotalGuess.Text & Animals.Length
                 Case "Fruits"
                     lbl_TotalGuess.Text = lbl_TotalGuess.Text & Fruits.Length
+                Case "US States"
+                    lbl_TotalGuess.Text = lbl_TotalGuess.Text & US_States.Length
             End Select
             CheckLevel()
             SaveCategory()
@@ -206,6 +241,9 @@ Public Class Uni_KnowledgeInput
             Case "Fruits"
                 File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin", Fruits)
                 File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentFruits.kin", lst_Guessed.Items.Cast(Of String).ToArray)
+            Case "US States"
+                File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\US_States.kin", US_States)
+                File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentUS_States.kin", lst_Guessed.Items.Cast(Of String).ToArray)
         End Select
     End Sub
 End Class

ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/DesktopManager.vb

@@ -23,7 +23,9 @@ Module DesktopManager
         If Strings.OnceInfo(6) = "story" Then
             SaveGame()
         End If
-        MsgBox("this is not a bug, this is a feature") 'Use this messagebox to hold Console to stay open, because removing this line closes Console all together for some reason
+        If Strings.ComputerInfo(7) = 1 Then
+            MsgBox("this is not a bug, this is a feature") 'Use this messagebox to hold Console to stay open, because removing this line closes Console all together for some reason
+        End If
         Console.Show()
         Desktop.Hide()
     End Sub
@@ -44,6 +46,8 @@ Module DesktopManager
         Select Case Strings.ComputerInfo(7)
             Case 1
                 DuWM_Initiate()
+            Case 2
+                AnusWM_Initiate()
         End Select
     End Sub
 End Module

ShiftOS-TheRevival/MainForms/Epilepsy.vb

@@ -17,7 +17,7 @@
                 Strings.OnceInfo(6) = "story"
                 IntroStory.Show()
                 ShiftOSMenu.Close()
-                NewGameMode()
+                NewGameMode(0)
                 Close()
         End Select
     End Sub

ShiftOS-TheRevival/MainForms/IntroStory.vb

@@ -31,6 +31,7 @@
                 If Opacity = 1 Then
                     Strings.ComputerInfo(3) = "0"
                     Strings.IsFree = False
+                    IsConsoleParent = True
                     Console.Show()
                     Close()
                 Else

ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb

@@ -52,6 +52,14 @@ Public Class ShiftOSMenu
                 btn_Aboot.Text = "About"
                 btn_Aboot.Visible = True
                 btn_Exit.Visible = True
+            Case "Chapter 2" & Environment.NewLine & "Exploration"
+                Strings.ComputerInfo(3) = "1"
+                IsConsoleParent = True
+                Strings.IsFree = False
+                Strings.OnceInfo(6) = "story"
+                NewGameMode(1)
+                Console.Show()
+                Close()
         End Select
     End Sub
 

ShiftOS-TheRevival/MainForms/ShiftOSUpdater.vb

@@ -26,7 +26,8 @@ Public Class ShiftOSUpdater
             If Not FilePut.FileName = "" Then
                 Button1.Enabled = False
                 Button2.Enabled = False
-                Dim PutTo As String = "http://148.251.124.62:8080/ShiftOS/versions/ShiftOS-TheRevival.v" & NewVersion & ".exe"
+                Dim PutTo As String = "http://github.com/EverythingWindows/ShiftOS-TheRevival/releases/download/" & NewVersion & "/ShiftOS-TheRevival.v" & NewVersion & ".exe"
+                'Dim PutTo As String = "http://148.251.124.62:8080/ShiftOS/versions/ShiftOS-TheRevival.v" & NewVersion & ".exe" <= Legacy Updater
                 'Dim GetTo As New Uri(PutTo)
                 My.Computer.Network.DownloadFile(PutTo, FilePut.FileName)
                 'Revisit this later

ShiftOS-TheRevival/MainForms/WindowManager/codename AnusWM/AnusWM_Main.vb

@@ -0,0 +1,6 @@
+Module AnusWM_Main
+    Public Sub AnusWM_Initiate()
+        AnusWM_Menu.Show()
+        AnusWM_Menu.Location = New Point(25, 25)
+    End Sub
+End Module

ShiftOS-TheRevival/MainForms/WindowManager/codename AnusWM/AnusWM_Menu.Designer.vb

@@ -0,0 +1,142 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class AnusWM_Menu
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.mnu_Main = New System.Windows.Forms.MenuStrip()
+        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ApplicationsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ShifterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.StopAnusWMToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.RestartToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ShutdownToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.lbl_Title = New System.Windows.Forms.Label()
+        Me.mnu_Main.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'mnu_Main
+        '
+        Me.mnu_Main.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.mnu_Main.Font = New System.Drawing.Font("Segoe UI", 12.0!)
+        Me.mnu_Main.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ApplicationsToolStripMenuItem, Me.ShifterToolStripMenuItem, Me.AboutToolStripMenuItem, Me.ExitToolStripMenuItem})
+        Me.mnu_Main.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.VerticalStackWithOverflow
+        Me.mnu_Main.Location = New System.Drawing.Point(0, 25)
+        Me.mnu_Main.Name = "mnu_Main"
+        Me.mnu_Main.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
+        Me.mnu_Main.Size = New System.Drawing.Size(139, 112)
+        Me.mnu_Main.TabIndex = 0
+        Me.mnu_Main.Text = "MenuStrip1"
+        '
+        'ToolStripMenuItem1
+        '
+        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(132, 4)
+        '
+        'ApplicationsToolStripMenuItem
+        '
+        Me.ApplicationsToolStripMenuItem.Name = "ApplicationsToolStripMenuItem"
+        Me.ApplicationsToolStripMenuItem.Size = New System.Drawing.Size(132, 25)
+        Me.ApplicationsToolStripMenuItem.Text = "Applications"
+        '
+        'ShifterToolStripMenuItem
+        '
+        Me.ShifterToolStripMenuItem.Name = "ShifterToolStripMenuItem"
+        Me.ShifterToolStripMenuItem.Size = New System.Drawing.Size(132, 25)
+        Me.ShifterToolStripMenuItem.Text = "Shifter"
+        '
+        'AboutToolStripMenuItem
+        '
+        Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem"
+        Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(132, 25)
+        Me.AboutToolStripMenuItem.Text = "About"
+        '
+        'ExitToolStripMenuItem
+        '
+        Me.ExitToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StopAnusWMToolStripMenuItem, Me.RestartToolStripMenuItem, Me.ShutdownToolStripMenuItem})
+        Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
+        Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(132, 25)
+        Me.ExitToolStripMenuItem.Text = "Exit"
+        '
+        'StopAnusWMToolStripMenuItem
+        '
+        Me.StopAnusWMToolStripMenuItem.Name = "StopAnusWMToolStripMenuItem"
+        Me.StopAnusWMToolStripMenuItem.Size = New System.Drawing.Size(179, 26)
+        Me.StopAnusWMToolStripMenuItem.Text = "Stop AnusWM"
+        '
+        'RestartToolStripMenuItem
+        '
+        Me.RestartToolStripMenuItem.Name = "RestartToolStripMenuItem"
+        Me.RestartToolStripMenuItem.Size = New System.Drawing.Size(179, 26)
+        Me.RestartToolStripMenuItem.Text = "Restart"
+        '
+        'ShutdownToolStripMenuItem
+        '
+        Me.ShutdownToolStripMenuItem.Name = "ShutdownToolStripMenuItem"
+        Me.ShutdownToolStripMenuItem.Size = New System.Drawing.Size(179, 26)
+        Me.ShutdownToolStripMenuItem.Text = "Shutdown"
+        '
+        'lbl_Title
+        '
+        Me.lbl_Title.BackColor = System.Drawing.Color.Gray
+        Me.lbl_Title.Dock = System.Windows.Forms.DockStyle.Top
+        Me.lbl_Title.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Italic)
+        Me.lbl_Title.ForeColor = System.Drawing.Color.Black
+        Me.lbl_Title.Location = New System.Drawing.Point(0, 0)
+        Me.lbl_Title.Name = "lbl_Title"
+        Me.lbl_Title.Size = New System.Drawing.Size(139, 25)
+        Me.lbl_Title.TabIndex = 1
+        Me.lbl_Title.Text = "Toolchest"
+        Me.lbl_Title.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'AnusWM_Menu
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.ClientSize = New System.Drawing.Size(139, 137)
+        Me.Controls.Add(Me.mnu_Main)
+        Me.Controls.Add(Me.lbl_Title)
+        Me.ForeColor = System.Drawing.Color.Gray
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.MainMenuStrip = Me.mnu_Main
+        Me.Name = "AnusWM_Menu"
+        Me.Text = "AnusWM_Menu"
+        Me.mnu_Main.ResumeLayout(False)
+        Me.mnu_Main.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents mnu_Main As MenuStrip
+    Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents ApplicationsToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ShifterToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents AboutToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ExitToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents StopAnusWMToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents RestartToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ShutdownToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents lbl_Title As Label
+End Class

ShiftOS-TheRevival/MainForms/WindowManager/codename AnusWM/AnusWM_Menu.resx

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="mnu_Main.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

ShiftOS-TheRevival/MainForms/WindowManager/codename AnusWM/AnusWM_Menu.vb

@@ -0,0 +1,17 @@
+Public Class AnusWM_Menu
+    Private Sub StopAnusWMToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StopAnusWMToolStripMenuItem.Click
+        StopG()
+    End Sub
+
+    Private Sub RestartToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RestartToolStripMenuItem.Click
+
+    End Sub
+
+    Private Sub ShutdownToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShutdownToolStripMenuItem.Click
+        TerminateShiftOS()
+    End Sub
+
+    Private Sub ApplicationToolStripMenuSubItem_Click(sender As Object, e As ToolStripItemClickedEventArgs) Handles ApplicationsToolStripMenuItem.DropDownItemClicked
+        MsgBox(e.ClickedItem.Text.ToString)
+    End Sub
+End Class

ShiftOS-TheRevival/My Project/Resources.Designer.vb

@@ -61,7 +61,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Looks up a localized string similar to 0.2.6.
+        '''  Looks up a localized string similar to 0.2.7.
         '''</summary>
         Friend ReadOnly Property CurrentVersion() As String
             Get
@@ -81,6 +81,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property ico_folder() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_folder", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized string similar to A basic command-line tool for simple calculation.
         '''

ShiftOS-TheRevival/My Project/Resources.resx

@@ -121,94 +121,97 @@
   <data name="CurrentVersion" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\CurrentVersion.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
   </data>
-  <data name="Fortunes" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\fortunes.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_bc" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\bc.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_cd" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\cd.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_clear" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\clear.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_codepoint" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\codepoint.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\color.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_colors" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\colors.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_cowsay" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\cowsay.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_del" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\del.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_dir" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\dir.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_guess" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\guess.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_help" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\help.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_hostname" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\hostname.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_infobar" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\infobar.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_man" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\man.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_mkdir" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\mkdir.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_print" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\print.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_pwd" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\pwd.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_reboot" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\reboot.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_rmdir" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\rmdir.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_shiftfetch" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\shiftfetch.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_shiftorium" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\shiftorium.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_shutdown" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\shutdown.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_textpad" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\textpad.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
-  <data name="man_time" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\man manuals\time.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
-  </data>
   <data name="man_username" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\resources\man manuals\username.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
   </data>
   <data name="man_ver" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\resources\man manuals\ver.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
   </data>
+  <data name="man_guess" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\guess.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_codepoint" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\codepoint.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_cd" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\cd.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\color.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_del" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\del.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_mkdir" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\mkdir.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
   <data name="man_zip" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\resources\man manuals\zip.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
   </data>
   <data name="MenuBanner1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Menu Picture\ShiftOS_MenuBanner1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="man_dir" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\dir.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_shutdown" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\shutdown.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
   <data name="MenuBanner2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Menu Picture\ShiftOS_MenuBanner2.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="man_hostname" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\hostname.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_colors" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\colors.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_bc" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\bc.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_pwd" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\pwd.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_man" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\man.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_print" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\print.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_textpad" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\textpad.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_cowsay" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\cowsay.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_clear" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\clear.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_infobar" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\infobar.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_help" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\help.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_rmdir" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\rmdir.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_reboot" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\reboot.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_shiftorium" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\shiftorium.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_shiftfetch" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\shiftfetch.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_time" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\time.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="Fortunes" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\fortunes.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="ico_folder" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\MainForms\Applications\Universal\File Skimmer\Icons\ico_folder.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>

ShiftOS-TheRevival/My Project/Settings.Designer.vb

@@ -13,42 +13,42 @@ Option Explicit On
 
 
 Namespace My
-
+    
-    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.10.0.0"),  _
-     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
-
+        
-        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
-
+        
 #Region "My.Settings Auto-Save Functionality"
 #If _MyType = "WindowsForms" Then
-        Private Shared addedHandler As Boolean
+    Private Shared addedHandler As Boolean
 
-        Private Shared addedHandlerLockObject As New Object
+    Private Shared addedHandlerLockObject As New Object
 
-        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-        Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
-            If My.Application.SaveMySettingsOnExit Then
+        If My.Application.SaveMySettingsOnExit Then
-                My.Settings.Save()
+            My.Settings.Save()
-            End If
+        End If
-        End Sub
+    End Sub
 #End If
 #End Region
-
+        
         Public Shared ReadOnly Property [Default]() As MySettings
             Get
-
+                
 #If _MyType = "WindowsForms" Then
-                   If Not addedHandler Then
+               If Not addedHandler Then
-                        SyncLock addedHandlerLockObject
+                    SyncLock addedHandlerLockObject
-                            If Not addedHandler Then
+                        If Not addedHandler Then
-                                AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
-                                addedHandler = True
+                            addedHandler = True
-                            End If
+                        End If
-                        End SyncLock
+                    End SyncLock
-                    End If
+                End If
 #End If
                 Return defaultInstance
             End Get
@@ -57,13 +57,13 @@ Namespace My
 End Namespace
 
 Namespace My
-
+    
-    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
     Friend Module MySettingsProperty
-
+        
-        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
         Friend ReadOnly Property Settings() As Global.ShiftOS_TheRevival.My.MySettings
             Get
                 Return Global.ShiftOS_TheRevival.My.MySettings.Default

ShiftOS-TheRevival/Resources/CurrentVersion.txt

@@ -1 +1 @@
-0.2.7
+0.2.8

ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj

@@ -105,6 +105,12 @@
     <Compile Include="MainForms\Applications\DuWM\Shifter\Categories\DuWM_Shifter_About.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="MainForms\Applications\DuWM\Shifter\Categories\DuWM_Shifter_Console.Designer.vb">
+      <DependentUpon>DuWM_Shifter_Console.vb</DependentUpon>
+    </Compile>
+    <Compile Include="MainForms\Applications\DuWM\Shifter\Categories\DuWM_Shifter_Console.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="MainForms\Applications\DuWM\Shifter\Categories\DuWM_Shifter_Desktop.Designer.vb">
       <DependentUpon>DuWM_Shifter_Desktop.vb</DependentUpon>
     </Compile>
@@ -118,6 +124,28 @@
     <Compile Include="MainForms\Applications\DuWM\Shifter\DuWM_Shifter.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="MainForms\Applications\Universal\Calculator\Uni_Calculator.Designer.vb">
+      <DependentUpon>Uni_Calculator.vb</DependentUpon>
+    </Compile>
+    <Compile Include="MainForms\Applications\Universal\Calculator\Uni_Calculator.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="MainForms\Applications\Universal\File Skimmer\Icons\FileSkimmerFileIcons.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>FileSkimmerFileIcons.resx</DependentUpon>
+    </Compile>
+    <Compile Include="MainForms\Applications\Universal\File Skimmer\Icons\FileSkimmerFunctionIcons.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>FileSkimmerFunctionIcons.resx</DependentUpon>
+    </Compile>
+    <Compile Include="MainForms\Applications\Universal\File Skimmer\Uni_FileSkimmer.Designer.vb">
+      <DependentUpon>Uni_FileSkimmer.vb</DependentUpon>
+    </Compile>
+    <Compile Include="MainForms\Applications\Universal\File Skimmer\Uni_FileSkimmer.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="MainForms\Applications\Universal\Knowledge Input\Contents\KnowledgeInputContent.Designer.vb">
       <AutoGen>True</AutoGen>
       <DesignTime>True</DesignTime>
@@ -205,6 +233,13 @@
     </Compile>
     <Compile Include="API\ConsoleAPI.vb" />
     <Compile Include="API\TerminalAPI.vb" />
+    <Compile Include="MainForms\WindowManager\codename AnusWM\AnusWM_Main.vb" />
+    <Compile Include="MainForms\WindowManager\codename AnusWM\AnusWM_Menu.Designer.vb">
+      <DependentUpon>AnusWM_Menu.vb</DependentUpon>
+    </Compile>
+    <Compile Include="MainForms\WindowManager\codename AnusWM\AnusWM_Menu.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="MainForms\WindowManager\DualWindowManager\DuWM_Main.vb" />
     <Compile Include="MainForms\WindowManager\DualWindowManager\DuWM_WindowContainer.Designer.vb">
       <DependentUpon>DuWM_WindowContainer.vb</DependentUpon>
@@ -270,12 +305,31 @@
     <EmbeddedResource Include="MainForms\Applications\DuWM\Shifter\Categories\DuWM_Shifter_About.resx">
       <DependentUpon>DuWM_Shifter_About.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="MainForms\Applications\DuWM\Shifter\Categories\DuWM_Shifter_Console.resx">
+      <DependentUpon>DuWM_Shifter_Console.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="MainForms\Applications\DuWM\Shifter\Categories\DuWM_Shifter_Desktop.resx">
       <DependentUpon>DuWM_Shifter_Desktop.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="MainForms\Applications\DuWM\Shifter\DuWM_Shifter.resx">
       <DependentUpon>DuWM_Shifter.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="MainForms\Applications\Universal\Calculator\Uni_Calculator.resx">
+      <DependentUpon>Uni_Calculator.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="MainForms\Applications\Universal\File Skimmer\Icons\FileSkimmerFileIcons.resx">
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <Generator>ResXFileCodeGenerator</Generator>
+      <LastGenOutput>FileSkimmerFileIcons.Designer.vb</LastGenOutput>
+    </EmbeddedResource>
+    <EmbeddedResource Include="MainForms\Applications\Universal\File Skimmer\Icons\FileSkimmerFunctionIcons.resx">
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <Generator>ResXFileCodeGenerator</Generator>
+      <LastGenOutput>FileSkimmerFunctionIcons.Designer.vb</LastGenOutput>
+    </EmbeddedResource>
+    <EmbeddedResource Include="MainForms\Applications\Universal\File Skimmer\Uni_FileSkimmer.resx">
+      <DependentUpon>Uni_FileSkimmer.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="MainForms\Applications\Universal\Knowledge Input\Contents\KnowledgeInputContent.resx">
       <CustomToolNamespace>My.Resources</CustomToolNamespace>
       <Generator>ResXFileCodeGenerator</Generator>
@@ -311,6 +365,9 @@
     <EmbeddedResource Include="MainForms\Applications\Console.resx">
       <DependentUpon>Console.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="MainForms\WindowManager\codename AnusWM\AnusWM_Menu.resx">
+      <DependentUpon>AnusWM_Menu.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="MainForms\WindowManager\DualWindowManager\DuWM_WindowContainer.resx">
       <DependentUpon>DuWM_WindowContainer.vb</DependentUpon>
     </EmbeddedResource>
@@ -352,10 +409,27 @@
   </ItemGroup>
   <ItemGroup>
     <None Include="Resources\CurrentVersion.txt" />
+    <None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_exe.png" />
+    <None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_folder.bmp" />
+    <None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_picture.bmp" />
+    <None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_sfp.png" />
+    <None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_textfile.bmp" />
+    <None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_unknown.bmp" />
+    <None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_up.bmp" />
+    <None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_url.bmp" />
+    <None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_video.bmp" />
+    <None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_zip.png" />
     <Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\Animals.txt" />
     <Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\Countries.txt" />
     <Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\Fruits.txt" />
+    <Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\US_States.txt" />
     <Content Include="MainForms\rev.txt" />
+    <None Include="Resources\ico_up1.png" />
+    <None Include="Resources\ico_refresh.png" />
+    <None Include="Resources\ico_deletefile.png" />
+    <None Include="Resources\largeico_compress.png" />
+    <None Include="Resources\largeico_uncompress.png" />
+    <None Include="Resources\largeico_rename.png" />
     <Content Include="Resources\man Manuals\zip.txt" />
     <Content Include="Resources\man Manuals\textpad.txt" />
     <Content Include="Resources\Fortunes.txt" />

ShiftOS-TheRevival/TerminalApplications/External/BasicCalculator/App_BC.vb

@@ -68,6 +68,9 @@
         BC_Counting(BC_Numbers1, BC_Numbers2, BC_Operation2)
         BC_ThriceMoreValue = Nothing
         NewLine(BC_Result)
+        If BC_Result = 69 Then
+            NewLine("Nice!")
+        End If
     End Sub
 
     Public Sub BC_Counting(FirstNum As Integer, SecondNum As Integer, Operation As String)

ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb

@@ -17,45 +17,51 @@
     End Sub
 
     Public Sub MQ_GiveQuestion()
-        Dim RandomNum As New Random
+        Try
-        MQ_1stNum = RandomNum.Next(1, 10)
+            Dim RandomNum As New Random
-        MQ_2ndNum = RandomNum.Next(1, 10)
+            MQ_1stNum = RandomNum.Next(1, 10)
-        OperationChooser = RandomNum.Next(1, 5)
+            MQ_2ndNum = RandomNum.Next(1, 10)
-        Select Case OperationChooser
+            OperationChooser = RandomNum.Next(1, 5)
-            Case 1
+            Select Case OperationChooser
-                MQ_Operation = " + "
+                Case 1
-                MQ_ShouldResult = MQ_1stNum + MQ_2ndNum
+                    MQ_Operation = " + "
-            Case 2
+                    MQ_ShouldResult = MQ_1stNum + MQ_2ndNum
-                While MQ_2ndNum >= MQ_1stNum
+                Case 2
-                    MQ_2ndNum = RandomNum.Next(1, 10)
+                    While MQ_2ndNum >= MQ_1stNum
-                End While
-                MQ_Operation = " - "
-                MQ_ShouldResult = MQ_1stNum - MQ_2ndNum
-            Case 3
-                MQ_Operation = " * "
-                MQ_ShouldResult = MQ_1stNum * MQ_2ndNum
-            Case 4
-                While MQ_2ndNum > MQ_1stNum
                         MQ_2ndNum = RandomNum.Next(1, 10)
                     End While
-                MQ_Operation = " / "
+                    MQ_Operation = " - "
-                MQ_ShouldResult = MQ_1stNum / MQ_2ndNum
+                    MQ_ShouldResult = MQ_1stNum - MQ_2ndNum
-            Case Else
+                Case 3
-                MQ_Operation = " + "
+                    MQ_Operation = " * "
-                MQ_ShouldResult = MQ_1stNum + MQ_2ndNum
+                    MQ_ShouldResult = MQ_1stNum * MQ_2ndNum
-        End Select
+                Case 4
-        NewLine("What is " & MQ_1stNum & MQ_Operation & MQ_2ndNum & " ?")
+                    While MQ_2ndNum > MQ_1stNum
+                        MQ_2ndNum = RandomNum.Next(1, 10)
+                    End While
+                    MQ_Operation = " / "
+                    MQ_ShouldResult = MQ_1stNum / MQ_2ndNum
+            End Select
+            NewLine("What is " & MQ_1stNum & MQ_Operation & MQ_2ndNum & " ?")
+        Catch ex As Exception
+            NewLine(ex.Message)
+            TerminateApp(Nothing)
+        End Try
     End Sub
 
     Public Sub MQ_CheckAnswer()
-        Dim TheAnswer As Integer = command
+        Try
-        If TheAnswer = MQ_ShouldResult Then
+            Dim TheAnswer As Integer = command
-            NewLine("You got the right answer! You got " & MQ_ShouldResult & " Codepoint(s)")
+            If TheAnswer = MQ_ShouldResult Then
-            ChangeCP(True, MQ_ShouldResult)
+                NewLine("You got the right answer! You got " & MQ_ShouldResult & " Codepoint(s)")
-            MQ_GiveQuestion()
+                ChangeCP(True, MQ_ShouldResult)
-        Else
+                MQ_GiveQuestion()
-            NewLine("You got the wrong answer! Try again")
+            Else
-            MQ_GiveQuestion()
+                NewLine("You got the wrong answer! Try again")
-        End If
+                MQ_GiveQuestion()
+            End If
+        Catch ex As Exception
+            NewLine("Invalid number or command")
+        End Try
     End Sub
 End Module

ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb

@@ -10,7 +10,7 @@ Module TerminalExternalApps
             '    Terminal.TextBox1.ReadOnly = True
             '    Terminal.DefaultPrompt = "Press any key to continue..."
             '    Terminal.CurrentInterpreter = "pause"
-            '    FreezeText = Terminal.TextBox1.Text
+            '    FreezeText = Terminal.TextBox1 x .Text
             '    ShouldChange = True
             Case "shiftoriumfx" 'ShiftoriumFX : Advanced Shiftorium
                 Console.DefaultPrompt = "Navigate> "
@@ -100,6 +100,8 @@ Module TerminalExternalApps
                     Case "ojas"
                         NewLine("dis calculator is very gud")
                         NewLine("it counts from another universe")
+                    Case "cameron"
+                        NewLine("quiet frankly it's ShiftOS")
                     Case "exit"
                         TerminateApp(Nothing)
                     Case Else

ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb

@@ -14,6 +14,10 @@
                         If Strings.AvailableFeature(36) = 1 Then
                             DuWM_NewProcess(DuWM_Shifter)
                         End If
+                    Case "file_skimmer"
+                        If Strings.AvailableFeature(44) = 1 Then
+                            DuWM_NewProcess(Uni_FileSkimmer)
+                        End If
                 End Select
         End Select
     End Sub

ShiftOS-TheRevival/TerminalApplications/Internal/Com_Applist.vb

@@ -3,6 +3,9 @@
         NewLine("ShiftOS Graphical Application List")
         NewLine("To run a program, you can type 'app ' and the name of the program listed below (along with its underscore or any symbols included)")
         NewLine(Nothing)
+        If Strings.AvailableFeature(44) = 1 Then
+            NewLine("FILE_SKIMMER             A file manager for ShiftOS")
+        End If
         If Strings.AvailableFeature(37) = 1 Then
             NewLine("KNOWLEDGE_INPUT          Simple puzzle game where you guess as many things as you can")
         End If

ShiftOS-TheRevival/TerminalApplications/Internal/Com_Shiftfetch.vb

@@ -19,11 +19,18 @@
             Select Case Strings.ComputerInfo(7)
                 Case 1
                     AddLine("Dual Window Manager")
+                Case 2
+                    AddLine("Anus Window Manager")
             End Select
         End If
-        NewLine(" ^@@! :          @Y   .:::^~:.           7#  Y@^  Window Manager Theme: -")
+        NewLine(" ^@@! :          @Y   .:::^~:.           7#  Y@^  Desktop Environment: -")
         NewLine(" 7@@: !          B@&BBBBGPPB@#Y.         :&^ ^@?  Terminal: shiftos-terminal")
-        NewLine(" ?@@: 7          :??7~:.    5@@5         :&^ .&?  Terminal Font: Consolas, 11pt")
+        NewLine(" ?@@: 7          :??7~:.    5@@5         :&^ .&?  Terminal Font: ")
+        If IsStartG = True Then
+            AddLine(GUISCustomizations.GUIConsoleFont.Name & ", " & GUISCustomizations.GUIConsoleFont.Size & "pt")
+        Else
+            AddLine("Consolas, 11pt (default)")
+        End If
         NewLine(" ~@@! !@    G#&B!.          Y@@B         7#.  Y~  CPU: " & My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", Nothing))
         NewLine("  B@G  B@J   ...~&G.       7@@@?        .#?   7   GPU: N/A")
         Dim TripleDigitRAM As String