ShiftDock

ShiftDock! This is the dock i created as a mod, i have implemented it
into ShiftOS! The program is mostly stable but needs afew small fixes
that i will fix. The design of the settings menu also needs work.

ShiftOS/ArtPad.vb

@@ -2346,4 +2346,8 @@
     Private Sub txtdrawstringtext_TextChanged(sender As Object, e As EventArgs) Handles txtdrawstringtext.TextChanged
         setuppreview()
     End Sub
+
+    Private Sub titlebar_Paint(sender As Object, e As PaintEventArgs) Handles titlebar.Paint
+
+    End Sub
 End Class

ShiftOS/DockEngine.vb

@@ -0,0 +1,89 @@
+Public Class DockEngine
+
+    Public docktop As Integer
+    Public topbottom As String
+
+    Dim allLines As List(Of String) = New List(Of String)
+    Public Function ReadLine(lineNumber As Integer, lines As List(Of String)) As String
+        Return lines(lineNumber - 1)
+    End Function
+
+    Public Sub readFile(ByVal file As String)
+
+        If My.Computer.FileSystem.FileExists(file) Then
+
+            allLines.Clear()
+
+            Dim reader As New System.IO.StreamReader(file)
+            Do While Not reader.EndOfStream
+                allLines.Add(reader.ReadLine())
+            Loop
+            reader.Close()
+
+            For Each item As String In allLines
+                Dim tileinfo() As String
+                tileinfo = item.Split("#")
+                DockWindow.createtile(tileinfo(0), tileinfo(1))
+
+            Next
+        Else
+            Dim filepath As String = file
+            If Not System.IO.File.Exists(filepath) Then
+                If Not My.Computer.FileSystem.DirectoryExists(Application.StartupPath + "\SoftwareData\ShiftDock") Then
+                    My.Computer.FileSystem.CreateDirectory(Application.StartupPath + "\SoftwareData\ShiftDock")
+                End If
+                System.IO.File.Create(filepath).Dispose()
+            End If
+        End If
+
+    End Sub
+
+    Public Sub readConfFile(ByVal file As String)
+
+        If My.Computer.FileSystem.FileExists(file) Then
+
+            allLines.Clear()
+
+            Dim reader As New System.IO.StreamReader(file)
+            Do While Not reader.EndOfStream
+                allLines.Add(reader.ReadLine())
+            Loop
+            reader.Close()
+
+
+            docktop = allLines(0)
+            topbottom = allLines(1)
+
+            DockWindow.Top = docktop
+
+        Else
+            Dim filepath As String = file
+            If Not System.IO.File.Exists(filepath) Then
+                System.IO.File.Create(filepath).Dispose()
+            End If
+        End If
+
+
+    End Sub
+
+    Public Sub writeFile(ByVal path As String, color As String)
+        Dim file As System.IO.StreamWriter
+        file = My.Computer.FileSystem.OpenTextFileWriter(Application.StartupPath + "\SoftwareData\ShiftDock\tiles.dat", True)
+        file.WriteLine(path + "#" + color)
+        file.Close()
+    End Sub
+
+    Public Sub writeConfFile(ByVal top As String, updown As String)
+        My.Computer.FileSystem.DeleteFile(Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat")
+        Dim filepath As String = Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat"
+        If Not System.IO.File.Exists(filepath) Then
+            System.IO.File.Create(filepath).Dispose()
+        End If
+        Dim file As System.IO.StreamWriter
+        file = My.Computer.FileSystem.OpenTextFileWriter(Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat", True)
+        file.WriteLine(top)
+        file.WriteLine(updown)
+        file.Close()
+    End Sub
+
+End Class

ShiftOS/DockSettingsMenu.Designer.vb

@@ -0,0 +1,814 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class DockSettingsMenu
+    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()
+        Me.pgleft = New System.Windows.Forms.Panel()
+        Me.pgbottomlcorner = New System.Windows.Forms.Panel()
+        Me.pgright = New System.Windows.Forms.Panel()
+        Me.pgbottomrcorner = New System.Windows.Forms.Panel()
+        Me.titlebar = New System.Windows.Forms.Panel()
+        Me.minimizebutton = New System.Windows.Forms.Panel()
+        Me.pnlicon = New System.Windows.Forms.PictureBox()
+        Me.rollupbutton = New System.Windows.Forms.Panel()
+        Me.closebutton = New System.Windows.Forms.Panel()
+        Me.lbtitletext = New System.Windows.Forms.Label()
+        Me.pgtoplcorner = New System.Windows.Forms.Panel()
+        Me.pgtoprcorner = New System.Windows.Forms.Panel()
+        Me.pgbottom = New System.Windows.Forms.Panel()
+        Me.pullbs = New System.Windows.Forms.Timer(Me.components)
+        Me.pullbottom = New System.Windows.Forms.Timer(Me.components)
+        Me.pullside = New System.Windows.Forms.Timer(Me.components)
+        Me.tilecolor = New System.Windows.Forms.ColorDialog()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.btnQuitDock = New System.Windows.Forms.Button()
+        Me.btnQuitSet = New System.Windows.Forms.Button()
+        Me.btnSetBottom = New System.Windows.Forms.Button()
+        Me.btnSetTop = New System.Windows.Forms.Button()
+        Me.btnTake = New System.Windows.Forms.Button()
+        Me.btnPlus = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.btnAdd = New System.Windows.Forms.Button()
+        Me.pnlPrograms = New System.Windows.Forms.Panel()
+        Me.lblShiftNet = New System.Windows.Forms.Label()
+        Me.lblIconManager = New System.Windows.Forms.Label()
+        Me.lblWebBrowser = New System.Windows.Forms.Label()
+        Me.lblVirusScanner = New System.Windows.Forms.Label()
+        Me.lblVideoPlayer = New System.Windows.Forms.Label()
+        Me.lblTextPad = New System.Windows.Forms.Label()
+        Me.lblTerminal = New System.Windows.Forms.Label()
+        Me.lblShiftorium = New System.Windows.Forms.Label()
+        Me.lblShifter = New System.Windows.Forms.Label()
+        Me.lblPong = New System.Windows.Forms.Label()
+        Me.lblOrcWrite = New System.Windows.Forms.Label()
+        Me.lblNameChanger = New System.Windows.Forms.Label()
+        Me.lblLabyrinth = New System.Windows.Forms.Label()
+        Me.lblKnowledgeInput = New System.Windows.Forms.Label()
+        Me.lblInstaller = New System.Windows.Forms.Label()
+        Me.lblSnakey = New System.Windows.Forms.Label()
+        Me.lblFloodGateManager = New System.Windows.Forms.Label()
+        Me.lblFileSkimmer = New System.Windows.Forms.Label()
+        Me.lblDManager = New System.Windows.Forms.Label()
+        Me.lblDownloader = New System.Windows.Forms.Label()
+        Me.lblDodge = New System.Windows.Forms.Label()
+        Me.lblClock = New System.Windows.Forms.Label()
+        Me.lblCatlyst = New System.Windows.Forms.Label()
+        Me.lblCalc = New System.Windows.Forms.Label()
+        Me.lblBitNoteWallet = New System.Windows.Forms.Label()
+        Me.lblBitNoteDigger = New System.Windows.Forms.Label()
+        Me.lblAudioPlayer = New System.Windows.Forms.Label()
+        Me.lblArtpad = New System.Windows.Forms.Label()
+        Me.lblToTile = New System.Windows.Forms.Label()
+        Me.Udate = New System.Windows.Forms.Timer(Me.components)
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.pgleft.SuspendLayout()
+        Me.pgright.SuspendLayout()
+        Me.titlebar.SuspendLayout()
+        CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.pnlPrograms.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'pgleft
+        '
+        Me.pgleft.BackColor = System.Drawing.Color.Gray
+        Me.pgleft.Controls.Add(Me.pgbottomlcorner)
+        Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left
+        Me.pgleft.Location = New System.Drawing.Point(0, 30)
+        Me.pgleft.Name = "pgleft"
+        Me.pgleft.Size = New System.Drawing.Size(2, 679)
+        Me.pgleft.TabIndex = 16
+        '
+        'pgbottomlcorner
+        '
+        Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red
+        Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 677)
+        Me.pgbottomlcorner.Name = "pgbottomlcorner"
+        Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2)
+        Me.pgbottomlcorner.TabIndex = 14
+        '
+        'pgright
+        '
+        Me.pgright.BackColor = System.Drawing.Color.Gray
+        Me.pgright.Controls.Add(Me.pgbottomrcorner)
+        Me.pgright.Dock = System.Windows.Forms.DockStyle.Right
+        Me.pgright.Location = New System.Drawing.Point(265, 30)
+        Me.pgright.Name = "pgright"
+        Me.pgright.Size = New System.Drawing.Size(2, 679)
+        Me.pgright.TabIndex = 17
+        '
+        'pgbottomrcorner
+        '
+        Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red
+        Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 677)
+        Me.pgbottomrcorner.Name = "pgbottomrcorner"
+        Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2)
+        Me.pgbottomrcorner.TabIndex = 15
+        '
+        'titlebar
+        '
+        Me.titlebar.BackColor = System.Drawing.Color.Gray
+        Me.titlebar.Controls.Add(Me.minimizebutton)
+        Me.titlebar.Controls.Add(Me.pnlicon)
+        Me.titlebar.Controls.Add(Me.rollupbutton)
+        Me.titlebar.Controls.Add(Me.closebutton)
+        Me.titlebar.Controls.Add(Me.lbtitletext)
+        Me.titlebar.Controls.Add(Me.pgtoplcorner)
+        Me.titlebar.Controls.Add(Me.pgtoprcorner)
+        Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top
+        Me.titlebar.ForeColor = System.Drawing.Color.White
+        Me.titlebar.Location = New System.Drawing.Point(0, 0)
+        Me.titlebar.Name = "titlebar"
+        Me.titlebar.Size = New System.Drawing.Size(267, 30)
+        Me.titlebar.TabIndex = 14
+        '
+        'minimizebutton
+        '
+        Me.minimizebutton.BackColor = System.Drawing.Color.Black
+        Me.minimizebutton.Location = New System.Drawing.Point(170, 5)
+        Me.minimizebutton.Name = "minimizebutton"
+        Me.minimizebutton.Size = New System.Drawing.Size(22, 22)
+        Me.minimizebutton.TabIndex = 24
+        '
+        'pnlicon
+        '
+        Me.pnlicon.BackColor = System.Drawing.Color.Transparent
+        Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconTextPad
+        Me.pnlicon.Location = New System.Drawing.Point(8, 8)
+        Me.pnlicon.Name = "pnlicon"
+        Me.pnlicon.Size = New System.Drawing.Size(16, 16)
+        Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+        Me.pnlicon.TabIndex = 24
+        Me.pnlicon.TabStop = False
+        Me.pnlicon.Visible = False
+        '
+        'rollupbutton
+        '
+        Me.rollupbutton.BackColor = System.Drawing.Color.Black
+        Me.rollupbutton.Location = New System.Drawing.Point(198, 3)
+        Me.rollupbutton.Name = "rollupbutton"
+        Me.rollupbutton.Size = New System.Drawing.Size(22, 22)
+        Me.rollupbutton.TabIndex = 22
+        '
+        'closebutton
+        '
+        Me.closebutton.BackColor = System.Drawing.Color.Black
+        Me.closebutton.Location = New System.Drawing.Point(226, 3)
+        Me.closebutton.Name = "closebutton"
+        Me.closebutton.Size = New System.Drawing.Size(22, 22)
+        Me.closebutton.TabIndex = 20
+        '
+        'lbtitletext
+        '
+        Me.lbtitletext.AutoSize = True
+        Me.lbtitletext.BackColor = System.Drawing.Color.Transparent
+        Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lbtitletext.Location = New System.Drawing.Point(26, 7)
+        Me.lbtitletext.Name = "lbtitletext"
+        Me.lbtitletext.Size = New System.Drawing.Size(83, 18)
+        Me.lbtitletext.TabIndex = 19
+        Me.lbtitletext.Text = "Settings"
+        '
+        'pgtoplcorner
+        '
+        Me.pgtoplcorner.BackColor = System.Drawing.Color.Red
+        Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left
+        Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0)
+        Me.pgtoplcorner.Name = "pgtoplcorner"
+        Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30)
+        Me.pgtoplcorner.TabIndex = 17
+        '
+        'pgtoprcorner
+        '
+        Me.pgtoprcorner.BackColor = System.Drawing.Color.Red
+        Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right
+        Me.pgtoprcorner.Location = New System.Drawing.Point(265, 0)
+        Me.pgtoprcorner.Name = "pgtoprcorner"
+        Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30)
+        Me.pgtoprcorner.TabIndex = 16
+        '
+        'pgbottom
+        '
+        Me.pgbottom.BackColor = System.Drawing.Color.Gray
+        Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.pgbottom.Location = New System.Drawing.Point(2, 707)
+        Me.pgbottom.Name = "pgbottom"
+        Me.pgbottom.Size = New System.Drawing.Size(263, 2)
+        Me.pgbottom.TabIndex = 18
+        '
+        'pullbs
+        '
+        Me.pullbs.Interval = 1
+        '
+        'pullbottom
+        '
+        Me.pullbottom.Interval = 1
+        '
+        'pullside
+        '
+        Me.pullside.Interval = 1
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(27, 101)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(118, 13)
+        Me.Label3.TabIndex = 50
+        Me.Label3.Text = "Choose Program CLICK"
+        '
+        'btnQuitDock
+        '
+        Me.btnQuitDock.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnQuitDock.Location = New System.Drawing.Point(16, 619)
+        Me.btnQuitDock.Name = "btnQuitDock"
+        Me.btnQuitDock.Size = New System.Drawing.Size(235, 75)
+        Me.btnQuitDock.TabIndex = 49
+        Me.btnQuitDock.Text = "Quit ShiftDock"
+        Me.btnQuitDock.UseVisualStyleBackColor = True
+        '
+        'btnQuitSet
+        '
+        Me.btnQuitSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnQuitSet.Location = New System.Drawing.Point(16, 538)
+        Me.btnQuitSet.Name = "btnQuitSet"
+        Me.btnQuitSet.Size = New System.Drawing.Size(235, 75)
+        Me.btnQuitSet.TabIndex = 48
+        Me.btnQuitSet.Text = "Quit Settings"
+        Me.btnQuitSet.UseVisualStyleBackColor = True
+        '
+        'btnSetBottom
+        '
+        Me.btnSetBottom.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSetBottom.Location = New System.Drawing.Point(16, 444)
+        Me.btnSetBottom.Name = "btnSetBottom"
+        Me.btnSetBottom.Size = New System.Drawing.Size(235, 75)
+        Me.btnSetBottom.TabIndex = 47
+        Me.btnSetBottom.Text = "Set Dock To Bottom"
+        Me.btnSetBottom.UseVisualStyleBackColor = True
+        '
+        'btnSetTop
+        '
+        Me.btnSetTop.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSetTop.Location = New System.Drawing.Point(17, 282)
+        Me.btnSetTop.Name = "btnSetTop"
+        Me.btnSetTop.Size = New System.Drawing.Size(235, 75)
+        Me.btnSetTop.TabIndex = 46
+        Me.btnSetTop.Text = "Set Dock To Top"
+        Me.btnSetTop.UseVisualStyleBackColor = True
+        '
+        'btnTake
+        '
+        Me.btnTake.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnTake.Location = New System.Drawing.Point(16, 363)
+        Me.btnTake.Name = "btnTake"
+        Me.btnTake.Size = New System.Drawing.Size(235, 75)
+        Me.btnTake.TabIndex = 45
+        Me.btnTake.Text = "Top -5"
+        Me.btnTake.UseVisualStyleBackColor = True
+        '
+        'btnPlus
+        '
+        Me.btnPlus.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnPlus.Location = New System.Drawing.Point(17, 201)
+        Me.btnPlus.Name = "btnPlus"
+        Me.btnPlus.Size = New System.Drawing.Size(235, 75)
+        Me.btnPlus.TabIndex = 44
+        Me.btnPlus.Text = "Top + 5"
+        Me.btnPlus.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.BackColor = System.Drawing.Color.Transparent
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(13, 177)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(244, 18)
+        Me.Label2.TabIndex = 43
+        Me.Label2.Text = "Dock Location (Does not save)"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.BackColor = System.Drawing.Color.Transparent
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(15, 60)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(44, 18)
+        Me.Label1.TabIndex = 42
+        Me.Label1.Text = "Tiles"
+        '
+        'btnAdd
+        '
+        Me.btnAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAdd.Location = New System.Drawing.Point(17, 123)
+        Me.btnAdd.Name = "btnAdd"
+        Me.btnAdd.Size = New System.Drawing.Size(234, 51)
+        Me.btnAdd.TabIndex = 41
+        Me.btnAdd.Text = "Add a tile"
+        Me.btnAdd.UseVisualStyleBackColor = True
+        '
+        'pnlPrograms
+        '
+        Me.pnlPrograms.BackColor = System.Drawing.SystemColors.ActiveBorder
+        Me.pnlPrograms.Controls.Add(Me.lblShiftNet)
+        Me.pnlPrograms.Controls.Add(Me.lblIconManager)
+        Me.pnlPrograms.Controls.Add(Me.lblWebBrowser)
+        Me.pnlPrograms.Controls.Add(Me.lblVirusScanner)
+        Me.pnlPrograms.Controls.Add(Me.lblVideoPlayer)
+        Me.pnlPrograms.Controls.Add(Me.lblTextPad)
+        Me.pnlPrograms.Controls.Add(Me.lblTerminal)
+        Me.pnlPrograms.Controls.Add(Me.lblShiftorium)
+        Me.pnlPrograms.Controls.Add(Me.lblShifter)
+        Me.pnlPrograms.Controls.Add(Me.lblPong)
+        Me.pnlPrograms.Controls.Add(Me.lblOrcWrite)
+        Me.pnlPrograms.Controls.Add(Me.lblNameChanger)
+        Me.pnlPrograms.Controls.Add(Me.lblLabyrinth)
+        Me.pnlPrograms.Controls.Add(Me.lblKnowledgeInput)
+        Me.pnlPrograms.Controls.Add(Me.lblInstaller)
+        Me.pnlPrograms.Controls.Add(Me.lblSnakey)
+        Me.pnlPrograms.Controls.Add(Me.lblFloodGateManager)
+        Me.pnlPrograms.Controls.Add(Me.lblFileSkimmer)
+        Me.pnlPrograms.Controls.Add(Me.lblDManager)
+        Me.pnlPrograms.Controls.Add(Me.lblDownloader)
+        Me.pnlPrograms.Controls.Add(Me.lblDodge)
+        Me.pnlPrograms.Controls.Add(Me.lblClock)
+        Me.pnlPrograms.Controls.Add(Me.lblCatlyst)
+        Me.pnlPrograms.Controls.Add(Me.lblCalc)
+        Me.pnlPrograms.Controls.Add(Me.lblBitNoteWallet)
+        Me.pnlPrograms.Controls.Add(Me.lblBitNoteDigger)
+        Me.pnlPrograms.Controls.Add(Me.lblAudioPlayer)
+        Me.pnlPrograms.Controls.Add(Me.lblArtpad)
+        Me.pnlPrograms.Location = New System.Drawing.Point(30, 117)
+        Me.pnlPrograms.Name = "pnlPrograms"
+        Me.pnlPrograms.Size = New System.Drawing.Size(172, 521)
+        Me.pnlPrograms.TabIndex = 51
+        Me.pnlPrograms.Visible = False
+        '
+        'lblShiftNet
+        '
+        Me.lblShiftNet.AutoSize = True
+        Me.lblShiftNet.BackColor = System.Drawing.Color.Transparent
+        Me.lblShiftNet.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblShiftNet.Location = New System.Drawing.Point(6, 366)
+        Me.lblShiftNet.Name = "lblShiftNet"
+        Me.lblShiftNet.Size = New System.Drawing.Size(68, 18)
+        Me.lblShiftNet.TabIndex = 80
+        Me.lblShiftNet.Text = "ShiftNet"
+        '
+        'lblIconManager
+        '
+        Me.lblIconManager.AutoSize = True
+        Me.lblIconManager.BackColor = System.Drawing.Color.Transparent
+        Me.lblIconManager.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblIconManager.Location = New System.Drawing.Point(6, 221)
+        Me.lblIconManager.Name = "lblIconManager"
+        Me.lblIconManager.Size = New System.Drawing.Size(110, 18)
+        Me.lblIconManager.TabIndex = 79
+        Me.lblIconManager.Text = "Icon Manager"
+        '
+        'lblWebBrowser
+        '
+        Me.lblWebBrowser.AutoSize = True
+        Me.lblWebBrowser.BackColor = System.Drawing.Color.Transparent
+        Me.lblWebBrowser.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblWebBrowser.Location = New System.Drawing.Point(6, 492)
+        Me.lblWebBrowser.Name = "lblWebBrowser"
+        Me.lblWebBrowser.Size = New System.Drawing.Size(105, 18)
+        Me.lblWebBrowser.TabIndex = 78
+        Me.lblWebBrowser.Text = "WebBrowser"
+        '
+        'lblVirusScanner
+        '
+        Me.lblVirusScanner.AutoSize = True
+        Me.lblVirusScanner.BackColor = System.Drawing.Color.Transparent
+        Me.lblVirusScanner.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblVirusScanner.Location = New System.Drawing.Point(6, 474)
+        Me.lblVirusScanner.Name = "lblVirusScanner"
+        Me.lblVirusScanner.Size = New System.Drawing.Size(108, 18)
+        Me.lblVirusScanner.TabIndex = 77
+        Me.lblVirusScanner.Text = "VirusScanner"
+        '
+        'lblVideoPlayer
+        '
+        Me.lblVideoPlayer.AutoSize = True
+        Me.lblVideoPlayer.BackColor = System.Drawing.Color.Transparent
+        Me.lblVideoPlayer.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblVideoPlayer.Location = New System.Drawing.Point(6, 456)
+        Me.lblVideoPlayer.Name = "lblVideoPlayer"
+        Me.lblVideoPlayer.Size = New System.Drawing.Size(102, 18)
+        Me.lblVideoPlayer.TabIndex = 76
+        Me.lblVideoPlayer.Text = "Video Player"
+        '
+        'lblTextPad
+        '
+        Me.lblTextPad.AutoSize = True
+        Me.lblTextPad.BackColor = System.Drawing.Color.Transparent
+        Me.lblTextPad.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblTextPad.Location = New System.Drawing.Point(6, 438)
+        Me.lblTextPad.Name = "lblTextPad"
+        Me.lblTextPad.Size = New System.Drawing.Size(69, 18)
+        Me.lblTextPad.TabIndex = 75
+        Me.lblTextPad.Text = "TextPad"
+        '
+        'lblTerminal
+        '
+        Me.lblTerminal.AutoSize = True
+        Me.lblTerminal.BackColor = System.Drawing.Color.Transparent
+        Me.lblTerminal.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblTerminal.Location = New System.Drawing.Point(6, 420)
+        Me.lblTerminal.Name = "lblTerminal"
+        Me.lblTerminal.Size = New System.Drawing.Size(73, 18)
+        Me.lblTerminal.TabIndex = 74
+        Me.lblTerminal.Text = "Terminal"
+        '
+        'lblShiftorium
+        '
+        Me.lblShiftorium.AutoSize = True
+        Me.lblShiftorium.BackColor = System.Drawing.Color.Transparent
+        Me.lblShiftorium.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblShiftorium.Location = New System.Drawing.Point(6, 384)
+        Me.lblShiftorium.Name = "lblShiftorium"
+        Me.lblShiftorium.Size = New System.Drawing.Size(85, 18)
+        Me.lblShiftorium.TabIndex = 72
+        Me.lblShiftorium.Text = "Shiftorium"
+        '
+        'lblShifter
+        '
+        Me.lblShifter.AutoSize = True
+        Me.lblShifter.BackColor = System.Drawing.Color.Transparent
+        Me.lblShifter.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblShifter.Location = New System.Drawing.Point(5, 348)
+        Me.lblShifter.Name = "lblShifter"
+        Me.lblShifter.Size = New System.Drawing.Size(57, 18)
+        Me.lblShifter.TabIndex = 71
+        Me.lblShifter.Text = "Shifter"
+        '
+        'lblPong
+        '
+        Me.lblPong.AutoSize = True
+        Me.lblPong.BackColor = System.Drawing.Color.Transparent
+        Me.lblPong.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblPong.Location = New System.Drawing.Point(6, 330)
+        Me.lblPong.Name = "lblPong"
+        Me.lblPong.Size = New System.Drawing.Size(47, 18)
+        Me.lblPong.TabIndex = 70
+        Me.lblPong.Text = "Pong"
+        '
+        'lblOrcWrite
+        '
+        Me.lblOrcWrite.AutoSize = True
+        Me.lblOrcWrite.BackColor = System.Drawing.Color.Transparent
+        Me.lblOrcWrite.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblOrcWrite.Location = New System.Drawing.Point(6, 312)
+        Me.lblOrcWrite.Name = "lblOrcWrite"
+        Me.lblOrcWrite.Size = New System.Drawing.Size(76, 18)
+        Me.lblOrcWrite.TabIndex = 69
+        Me.lblOrcWrite.Text = "OrcWrite"
+        '
+        'lblNameChanger
+        '
+        Me.lblNameChanger.AutoSize = True
+        Me.lblNameChanger.BackColor = System.Drawing.Color.Transparent
+        Me.lblNameChanger.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblNameChanger.Location = New System.Drawing.Point(5, 294)
+        Me.lblNameChanger.Name = "lblNameChanger"
+        Me.lblNameChanger.Size = New System.Drawing.Size(120, 18)
+        Me.lblNameChanger.TabIndex = 68
+        Me.lblNameChanger.Text = "Name Changer"
+        '
+        'lblLabyrinth
+        '
+        Me.lblLabyrinth.AutoSize = True
+        Me.lblLabyrinth.BackColor = System.Drawing.Color.Transparent
+        Me.lblLabyrinth.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblLabyrinth.Location = New System.Drawing.Point(5, 276)
+        Me.lblLabyrinth.Name = "lblLabyrinth"
+        Me.lblLabyrinth.Size = New System.Drawing.Size(76, 18)
+        Me.lblLabyrinth.TabIndex = 67
+        Me.lblLabyrinth.Text = "Labyrinth"
+        '
+        'lblKnowledgeInput
+        '
+        Me.lblKnowledgeInput.AutoSize = True
+        Me.lblKnowledgeInput.BackColor = System.Drawing.Color.Transparent
+        Me.lblKnowledgeInput.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblKnowledgeInput.Location = New System.Drawing.Point(5, 258)
+        Me.lblKnowledgeInput.Name = "lblKnowledgeInput"
+        Me.lblKnowledgeInput.Size = New System.Drawing.Size(131, 18)
+        Me.lblKnowledgeInput.TabIndex = 66
+        Me.lblKnowledgeInput.Text = "Knowledge Input"
+        '
+        'lblInstaller
+        '
+        Me.lblInstaller.AutoSize = True
+        Me.lblInstaller.BackColor = System.Drawing.Color.Transparent
+        Me.lblInstaller.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblInstaller.Location = New System.Drawing.Point(5, 240)
+        Me.lblInstaller.Name = "lblInstaller"
+        Me.lblInstaller.Size = New System.Drawing.Size(67, 18)
+        Me.lblInstaller.TabIndex = 65
+        Me.lblInstaller.Text = "Installer"
+        '
+        'lblSnakey
+        '
+        Me.lblSnakey.AutoSize = True
+        Me.lblSnakey.BackColor = System.Drawing.Color.Transparent
+        Me.lblSnakey.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblSnakey.Location = New System.Drawing.Point(6, 402)
+        Me.lblSnakey.Name = "lblSnakey"
+        Me.lblSnakey.Size = New System.Drawing.Size(63, 18)
+        Me.lblSnakey.TabIndex = 64
+        Me.lblSnakey.Text = "Snakey"
+        '
+        'lblFloodGateManager
+        '
+        Me.lblFloodGateManager.AutoSize = True
+        Me.lblFloodGateManager.BackColor = System.Drawing.Color.Transparent
+        Me.lblFloodGateManager.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblFloodGateManager.Location = New System.Drawing.Point(5, 203)
+        Me.lblFloodGateManager.Name = "lblFloodGateManager"
+        Me.lblFloodGateManager.Size = New System.Drawing.Size(157, 18)
+        Me.lblFloodGateManager.TabIndex = 63
+        Me.lblFloodGateManager.Text = "FloodGate Manager"
+        '
+        'lblFileSkimmer
+        '
+        Me.lblFileSkimmer.AutoSize = True
+        Me.lblFileSkimmer.BackColor = System.Drawing.Color.Transparent
+        Me.lblFileSkimmer.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblFileSkimmer.Location = New System.Drawing.Point(5, 185)
+        Me.lblFileSkimmer.Name = "lblFileSkimmer"
+        Me.lblFileSkimmer.Size = New System.Drawing.Size(107, 18)
+        Me.lblFileSkimmer.TabIndex = 62
+        Me.lblFileSkimmer.Text = "File Skimmer"
+        '
+        'lblDManager
+        '
+        Me.lblDManager.AutoSize = True
+        Me.lblDManager.BackColor = System.Drawing.Color.Transparent
+        Me.lblDManager.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblDManager.Location = New System.Drawing.Point(5, 167)
+        Me.lblDManager.Name = "lblDManager"
+        Me.lblDManager.Size = New System.Drawing.Size(148, 18)
+        Me.lblDManager.TabIndex = 61
+        Me.lblDManager.Text = "DownloadManager"
+        '
+        'lblDownloader
+        '
+        Me.lblDownloader.AutoSize = True
+        Me.lblDownloader.BackColor = System.Drawing.Color.Transparent
+        Me.lblDownloader.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblDownloader.Location = New System.Drawing.Point(5, 149)
+        Me.lblDownloader.Name = "lblDownloader"
+        Me.lblDownloader.Size = New System.Drawing.Size(98, 18)
+        Me.lblDownloader.TabIndex = 60
+        Me.lblDownloader.Text = "Downloader"
+        '
+        'lblDodge
+        '
+        Me.lblDodge.AutoSize = True
+        Me.lblDodge.BackColor = System.Drawing.Color.Transparent
+        Me.lblDodge.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblDodge.Location = New System.Drawing.Point(5, 131)
+        Me.lblDodge.Name = "lblDodge"
+        Me.lblDodge.Size = New System.Drawing.Size(57, 18)
+        Me.lblDodge.TabIndex = 59
+        Me.lblDodge.Text = "Dodge"
+        '
+        'lblClock
+        '
+        Me.lblClock.AutoSize = True
+        Me.lblClock.BackColor = System.Drawing.Color.Transparent
+        Me.lblClock.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblClock.Location = New System.Drawing.Point(5, 113)
+        Me.lblClock.Name = "lblClock"
+        Me.lblClock.Size = New System.Drawing.Size(52, 18)
+        Me.lblClock.TabIndex = 58
+        Me.lblClock.Text = "Clock"
+        '
+        'lblCatlyst
+        '
+        Me.lblCatlyst.AutoSize = True
+        Me.lblCatlyst.BackColor = System.Drawing.Color.Transparent
+        Me.lblCatlyst.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblCatlyst.Location = New System.Drawing.Point(5, 95)
+        Me.lblCatlyst.Name = "lblCatlyst"
+        Me.lblCatlyst.Size = New System.Drawing.Size(60, 18)
+        Me.lblCatlyst.TabIndex = 57
+        Me.lblCatlyst.Text = "Catlyst"
+        '
+        'lblCalc
+        '
+        Me.lblCalc.AutoSize = True
+        Me.lblCalc.BackColor = System.Drawing.Color.Transparent
+        Me.lblCalc.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblCalc.Location = New System.Drawing.Point(5, 77)
+        Me.lblCalc.Name = "lblCalc"
+        Me.lblCalc.Size = New System.Drawing.Size(85, 18)
+        Me.lblCalc.TabIndex = 56
+        Me.lblCalc.Text = "Calculator"
+        '
+        'lblBitNoteWallet
+        '
+        Me.lblBitNoteWallet.AutoSize = True
+        Me.lblBitNoteWallet.BackColor = System.Drawing.Color.Transparent
+        Me.lblBitNoteWallet.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblBitNoteWallet.Location = New System.Drawing.Point(5, 60)
+        Me.lblBitNoteWallet.Name = "lblBitNoteWallet"
+        Me.lblBitNoteWallet.Size = New System.Drawing.Size(121, 18)
+        Me.lblBitNoteWallet.TabIndex = 55
+        Me.lblBitNoteWallet.Text = "Bit Note Wallet"
+        '
+        'lblBitNoteDigger
+        '
+        Me.lblBitNoteDigger.AutoSize = True
+        Me.lblBitNoteDigger.BackColor = System.Drawing.Color.Transparent
+        Me.lblBitNoteDigger.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblBitNoteDigger.Location = New System.Drawing.Point(5, 42)
+        Me.lblBitNoteDigger.Name = "lblBitNoteDigger"
+        Me.lblBitNoteDigger.Size = New System.Drawing.Size(123, 18)
+        Me.lblBitNoteDigger.TabIndex = 54
+        Me.lblBitNoteDigger.Text = "Bit Note Digger"
+        '
+        'lblAudioPlayer
+        '
+        Me.lblAudioPlayer.AutoSize = True
+        Me.lblAudioPlayer.BackColor = System.Drawing.Color.Transparent
+        Me.lblAudioPlayer.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblAudioPlayer.Location = New System.Drawing.Point(5, 24)
+        Me.lblAudioPlayer.Name = "lblAudioPlayer"
+        Me.lblAudioPlayer.Size = New System.Drawing.Size(102, 18)
+        Me.lblAudioPlayer.TabIndex = 53
+        Me.lblAudioPlayer.Text = "Audio Player"
+        '
+        'lblArtpad
+        '
+        Me.lblArtpad.AutoSize = True
+        Me.lblArtpad.BackColor = System.Drawing.Color.Transparent
+        Me.lblArtpad.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblArtpad.Location = New System.Drawing.Point(5, 6)
+        Me.lblArtpad.Name = "lblArtpad"
+        Me.lblArtpad.Size = New System.Drawing.Size(58, 18)
+        Me.lblArtpad.TabIndex = 52
+        Me.lblArtpad.Text = "ArtPad"
+        '
+        'lblToTile
+        '
+        Me.lblToTile.AutoSize = True
+        Me.lblToTile.BackColor = System.Drawing.Color.Transparent
+        Me.lblToTile.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblToTile.Location = New System.Drawing.Point(138, 78)
+        Me.lblToTile.Name = "lblToTile"
+        Me.lblToTile.Size = New System.Drawing.Size(44, 18)
+        Me.lblToTile.TabIndex = 52
+        Me.lblToTile.Text = "Tiles"
+        '
+        'Udate
+        '
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.BackColor = System.Drawing.Color.Transparent
+        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label4.Location = New System.Drawing.Point(15, 78)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(117, 18)
+        Me.Label4.TabIndex = 53
+        Me.Label4.Text = "Make Tile For:"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.BackColor = System.Drawing.Color.Transparent
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.Location = New System.Drawing.Point(51, 37)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(165, 18)
+        Me.Label5.TabIndex = 54
+        Me.Label5.Text = "NOT FINAL DESIGN!"
+        '
+        'DockSettingsMenu
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(267, 709)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.lblToTile)
+        Me.Controls.Add(Me.pnlPrograms)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.btnQuitDock)
+        Me.Controls.Add(Me.btnQuitSet)
+        Me.Controls.Add(Me.btnSetBottom)
+        Me.Controls.Add(Me.btnSetTop)
+        Me.Controls.Add(Me.btnTake)
+        Me.Controls.Add(Me.btnPlus)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.btnAdd)
+        Me.Controls.Add(Me.pgbottom)
+        Me.Controls.Add(Me.pgright)
+        Me.Controls.Add(Me.pgleft)
+        Me.Controls.Add(Me.titlebar)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Name = "DockSettingsMenu"
+        Me.Text = "template"
+        Me.TopMost = True
+        Me.pgleft.ResumeLayout(False)
+        Me.pgright.ResumeLayout(False)
+        Me.titlebar.ResumeLayout(False)
+        Me.titlebar.PerformLayout()
+        CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.pnlPrograms.ResumeLayout(False)
+        Me.pnlPrograms.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents pgleft As System.Windows.Forms.Panel
+    Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel
+    Friend WithEvents pgright As System.Windows.Forms.Panel
+    Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel
+    Friend WithEvents titlebar As System.Windows.Forms.Panel
+    Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel
+    Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel
+    Friend WithEvents pgbottom As System.Windows.Forms.Panel
+    Friend WithEvents lbtitletext As System.Windows.Forms.Label
+    Friend WithEvents closebutton As System.Windows.Forms.Panel
+    Friend WithEvents rollupbutton As System.Windows.Forms.Panel
+    Friend WithEvents pnlicon As System.Windows.Forms.PictureBox
+    Friend WithEvents minimizebutton As System.Windows.Forms.Panel
+    Friend WithEvents pullbs As System.Windows.Forms.Timer
+    Friend WithEvents pullbottom As System.Windows.Forms.Timer
+    Friend WithEvents pullside As System.Windows.Forms.Timer
+    Friend WithEvents tilecolor As System.Windows.Forms.ColorDialog
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents btnQuitDock As System.Windows.Forms.Button
+    Friend WithEvents btnQuitSet As System.Windows.Forms.Button
+    Friend WithEvents btnSetBottom As System.Windows.Forms.Button
+    Friend WithEvents btnSetTop As System.Windows.Forms.Button
+    Friend WithEvents btnTake As System.Windows.Forms.Button
+    Friend WithEvents btnPlus As System.Windows.Forms.Button
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents btnAdd As System.Windows.Forms.Button
+    Friend WithEvents pnlPrograms As System.Windows.Forms.Panel
+    Friend WithEvents lblSnakey As System.Windows.Forms.Label
+    Friend WithEvents lblFloodGateManager As System.Windows.Forms.Label
+    Friend WithEvents lblFileSkimmer As System.Windows.Forms.Label
+    Friend WithEvents lblDManager As System.Windows.Forms.Label
+    Friend WithEvents lblDownloader As System.Windows.Forms.Label
+    Friend WithEvents lblDodge As System.Windows.Forms.Label
+    Friend WithEvents lblClock As System.Windows.Forms.Label
+    Friend WithEvents lblCatlyst As System.Windows.Forms.Label
+    Friend WithEvents lblCalc As System.Windows.Forms.Label
+    Friend WithEvents lblBitNoteWallet As System.Windows.Forms.Label
+    Friend WithEvents lblBitNoteDigger As System.Windows.Forms.Label
+    Friend WithEvents lblAudioPlayer As System.Windows.Forms.Label
+    Friend WithEvents lblArtpad As System.Windows.Forms.Label
+    Friend WithEvents lblOrcWrite As System.Windows.Forms.Label
+    Friend WithEvents lblNameChanger As System.Windows.Forms.Label
+    Friend WithEvents lblLabyrinth As System.Windows.Forms.Label
+    Friend WithEvents lblKnowledgeInput As System.Windows.Forms.Label
+    Friend WithEvents lblInstaller As System.Windows.Forms.Label
+    Friend WithEvents lblShiftorium As System.Windows.Forms.Label
+    Friend WithEvents lblShifter As System.Windows.Forms.Label
+    Friend WithEvents lblPong As System.Windows.Forms.Label
+    Friend WithEvents lblIconManager As System.Windows.Forms.Label
+    Friend WithEvents lblWebBrowser As System.Windows.Forms.Label
+    Friend WithEvents lblVirusScanner As System.Windows.Forms.Label
+    Friend WithEvents lblVideoPlayer As System.Windows.Forms.Label
+    Friend WithEvents lblTextPad As System.Windows.Forms.Label
+    Friend WithEvents lblTerminal As System.Windows.Forms.Label
+    Friend WithEvents lblToTile As System.Windows.Forms.Label
+    Friend WithEvents Udate As System.Windows.Forms.Timer
+    Friend WithEvents lblShiftNet As System.Windows.Forms.Label
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents Label5 As System.Windows.Forms.Label
+End Class

ShiftOS/DockSettingsMenu.resx

@@ -0,0 +1,135 @@
+<?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="pullbs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1056, 18</value>
+  </metadata>
+  <metadata name="pullbottom.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1140, 18</value>
+  </metadata>
+  <metadata name="pullside.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1253, 18</value>
+  </metadata>
+  <metadata name="tilecolor.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1347, 18</value>
+  </metadata>
+  <metadata name="Udate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 57</value>
+  </metadata>
+</root>

ShiftOS/DockSettingsMenu.vb

@@ -0,0 +1,607 @@
+Public Class DockSettingsMenu
+#Region "Template Code"
+    Public rolldownsize As Integer
+    Public oldbordersize As Integer
+    Public oldtitlebarheight As Integer
+    Public justopened As Boolean = False
+    Public needtorollback As Boolean = False
+    Public minimumsizewidth As Integer = 100   'replace with minimum size
+    Public minimumsizeheight As Integer = 654
+
+    Private Sub DockSettingsMenu_Click(sender As Object, e As EventArgs) Handles Me.Click
+        pnlPrograms.Hide()
+    End Sub  'replace with minimum size
+
+    Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Udate.Start()
+        justopened = True
+        Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
+        Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
+        setupall()
+        ShiftOSDesktop.pnlpanelbuttondodge.SendToBack() 'CHANGE NAME
+        ShiftOSDesktop.setuppanelbuttons()
+        ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttondodge, ShiftOSDesktop.tbdodgeicon, ShiftOSDesktop.tbdodgetext, True) 'modify to proper name
+        ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
+        Me.Height = 700
+    End Sub
+
+    Public Sub setupall()
+        setuptitlebar()
+        setupborders()
+        setskin()
+    End Sub
+
+    Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
+        'Make terminal appear
+        If e.KeyCode = Keys.T AndAlso e.Control Then
+            Terminal.Show()
+            Terminal.Visible = True
+            Terminal.BringToFront()
+        End If
+
+        'Movable Windows
+        If ShiftOSDesktop.boughtmovablewindows = True Then
+            If e.KeyCode = Keys.A AndAlso e.Control Then
+                e.Handled = True
+                Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y)
+            End If
+            If e.KeyCode = Keys.D AndAlso e.Control Then
+                e.Handled = True
+                Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y)
+            End If
+            If e.KeyCode = Keys.W AndAlso e.Control Then
+                e.Handled = True
+                Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber)
+            End If
+            If e.KeyCode = Keys.S AndAlso e.Control Then
+                e.Handled = True
+                Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber)
+            End If
+            ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine
+        End If
+    End Sub
+
+    Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown
+        ' Handle Draggable Windows
+        If ShiftOSDesktop.boughtdraggablewindows = True Then
+            If e.Button = MouseButtons.Left Then
+                titlebar.Capture = False
+                lbtitletext.Capture = False
+                pnlicon.Capture = False
+                pgtoplcorner.Capture = False
+                pgtoprcorner.Capture = False
+                Const WM_NCLBUTTONDOWN As Integer = &HA1S
+                Const HTCAPTION As Integer = 2
+                Dim msg As Message = _
+                    Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
+                        New IntPtr(HTCAPTION), IntPtr.Zero)
+                Me.DefWndProc(msg)
+            End If
+            ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine
+        End If
+    End Sub
+
+    Public Sub setupborders()
+        If ShiftOSDesktop.boughtwindowborders = False Then
+            pgleft.Hide()
+            pgbottom.Hide()
+            pgright.Hide()
+            Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height)
+        End If
+    End Sub
+
+    Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click
+        Me.Close()
+    End Sub
+
+    Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
+        closebutton.BackgroundImage = Skins.closebtnhover
+    End Sub
+
+    Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
+        closebutton.BackgroundImage = Skins.closebtn
+    End Sub
+
+    Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
+        closebutton.BackgroundImage = Skins.closebtnclick
+    End Sub
+
+    Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
+        ShiftOSDesktop.minimizeprogram(Me, False)
+    End Sub
+
+    Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click
+        rollupanddown()
+    End Sub
+
+    Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp
+        rollupbutton.BackgroundImage = Skins.rollbtnhover
+    End Sub
+
+    Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
+        rollupbutton.BackgroundImage = Skins.rollbtn
+    End Sub
+
+    Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
+        rollupbutton.BackgroundImage = Skins.rollbtnclick
+    End Sub
+
+    Public Sub setuptitlebar()
+
+        setupborders()
+
+        If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
+        pgleft.Width = Skins.borderwidth
+        pgright.Width = Skins.borderwidth
+        pgbottom.Height = Skins.borderwidth
+        titlebar.Height = Skins.titlebarheight
+
+        If justopened = True Then
+            Me.Size = New Size(420, 510) 'put the default size of your window here
+            Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
+            Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
+            oldbordersize = Skins.borderwidth
+            oldtitlebarheight = Skins.titlebarheight
+            justopened = False
+        Else
+            If Me.Visible = True Then
+                Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
+                oldbordersize = Skins.borderwidth
+                oldtitlebarheight = Skins.titlebarheight
+                rolldownsize = Me.Height
+                If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
+            End If
+        End If
+
+        If Skins.enablecorners = True Then
+            pgtoplcorner.Show()
+            pgtoprcorner.Show()
+            pgtoprcorner.Width = Skins.titlebarcornerwidth
+            pgtoplcorner.Width = Skins.titlebarcornerwidth
+        Else
+            pgtoplcorner.Hide()
+            pgtoprcorner.Hide()
+        End If
+
+        If ShiftOSDesktop.boughttitlebar = False Then
+            titlebar.Hide()
+            Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height)
+        End If
+
+        If ShiftOSDesktop.boughttitletext = False Then
+            lbtitletext.Hide()
+        Else
+            lbtitletext.Font = New Font(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
+            lbtitletext.Text = ShiftOSDesktop.dodgename 'Remember to change to name of program!!!!
+            lbtitletext.Show()
+        End If
+
+        If ShiftOSDesktop.boughtclosebutton = False Then
+            closebutton.Hide()
+        Else
+            closebutton.BackColor = Skins.closebtncolour
+            closebutton.Size = Skins.closebtnsize
+            closebutton.Show()
+        End If
+
+        If ShiftOSDesktop.boughtrollupbutton = False Then
+            rollupbutton.Hide()
+        Else
+            rollupbutton.BackColor = Skins.rollbtncolour
+            rollupbutton.Size = Skins.rollbtnsize
+            rollupbutton.Show()
+        End If
+
+        If ShiftOSDesktop.boughtminimizebutton = False Then
+            minimizebutton.Hide()
+        Else
+            minimizebutton.BackColor = Skins.minbtncolour
+            minimizebutton.Size = Skins.minbtnsize
+            minimizebutton.Show()
+        End If
+
+        If ShiftOSDesktop.boughtwindowborders = True Then
+            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
+            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
+            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
+            Select Case Skins.titletextpos
+                Case "Left"
+                    lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
+                Case "Centre"
+                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
+            End Select
+            lbtitletext.ForeColor = Skins.titletextcolour
+        Else
+            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
+            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
+            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
+            Select Case Skins.titletextpos
+                Case "Left"
+                    lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
+                Case "Centre"
+                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
+            End Select
+            lbtitletext.ForeColor = Skins.titletextcolour
+        End If
+
+        'Change when Icon skinning complete
+        If ShiftOSDesktop.boughtknowledgeinputicon = True Then ' Change to program's icon
+            pnlicon.Visible = True
+            pnlicon.Location = New Point(Skins.titleiconfromside, Skins.titleiconfromtop)
+            pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
+            pnlicon.Image = ShiftOSDesktop.dodgeicontitlebar  'Replace with the correct icon for the program.
+        End If
+
+    End Sub
+
+    Public Sub rollupanddown()
+        If Me.Height = Me.titlebar.Height Then
+            pgleft.Show()
+            pgbottom.Show()
+            pgright.Show()
+            Me.Height = rolldownsize
+            Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight)
+        Else
+            Me.MinimumSize = New Size(0, 0)
+            pgleft.Hide()
+            pgbottom.Hide()
+            pgright.Hide()
+            rolldownsize = Me.Height
+            Me.Height = Me.titlebar.Height
+        End If
+    End Sub
+
+    Public Sub resettitlebar()
+        If ShiftOSDesktop.boughtwindowborders = True Then
+            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
+            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
+            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
+            Select Case Skins.titletextpos
+                Case "Left"
+                    lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
+                Case "Centre"
+                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
+            End Select
+            lbtitletext.ForeColor = Skins.titletextcolour
+        Else
+            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
+            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
+            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
+            Select Case Skins.titletextpos
+                Case "Left"
+                    lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
+                Case "Centre"
+                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
+            End Select
+            lbtitletext.ForeColor = Skins.titletextcolour
+        End If
+    End Sub
+
+    Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick
+        Me.Width = Cursor.Position.X - Me.Location.X
+        resettitlebar()
+    End Sub
+
+    Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick
+        Me.Height = Cursor.Position.Y - Me.Location.Y
+        resettitlebar()
+    End Sub
+
+    Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick
+        Me.Width = Cursor.Position.X - Me.Location.X
+        Me.Height = Cursor.Position.Y - Me.Location.Y
+        resettitlebar()
+    End Sub
+
+    'delete this for non-resizable windows
+    Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            pullside.Start()
+        End If
+    End Sub
+
+    Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            Cursor = Cursors.SizeWE
+        End If
+    End Sub
+
+    Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            Cursor = Cursors.SizeNS
+        End If
+    End Sub
+
+    Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            Cursor = Cursors.SizeNWSE
+        End If
+    End Sub
+
+    Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            Cursor = Cursors.Default
+        End If
+    End Sub
+
+    Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            pullside.Stop()
+        End If
+    End Sub
+
+    Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            pullbottom.Start()
+        End If
+    End Sub
+
+    Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            pullbottom.Stop()
+        End If
+    End Sub
+
+    Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            pullbs.Start()
+        End If
+    End Sub
+
+    Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            pullbs.Stop()
+        End If
+    End Sub
+
+    Public Sub setskin()
+        'disposals
+        closebutton.BackgroundImage = Nothing
+        titlebar.BackgroundImage = Nothing
+        rollupbutton.BackgroundImage = Nothing
+        pgtoplcorner.BackgroundImage = Nothing
+        pgtoprcorner.BackgroundImage = Nothing
+        minimizebutton.BackgroundImage = Nothing
+        'apply new skin
+        If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
+        closebutton.BackgroundImageLayout = Skins.closebtnlayout
+        If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
+        titlebar.BackgroundImageLayout = Skins.titlebarlayout
+        If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
+        rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
+        If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
+        pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
+        If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
+        pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
+        If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
+        minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
+        If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
+        pgleft.BackgroundImageLayout = Skins.borderleftlayout
+        If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
+        pgleft.BackgroundImageLayout = Skins.borderrightlayout
+        If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
+        pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
+        If enablebordercorners = True Then
+            If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
+            pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
+            If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
+            pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
+        Else
+            pgbottomlcorner.BackColor = Skins.borderrightcolour
+            pgbottomrcorner.BackColor = Skins.borderrightcolour
+            pgbottomlcorner.BackgroundImage = Nothing
+            pgbottomrcorner.BackgroundImage = Nothing
+        End If
+
+        'set bottom border corner size
+        pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
+        pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
+        pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
+        pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)
+
+        Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour
+    End Sub
+
+    Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1
+        Me.Hide()
+        ShiftOSDesktop.setuppanelbuttons()
+    End Sub
+
+    'end of general setup
+#End Region
+
+
+    Dim totile As String
+
+    Private Sub lblArtpad_Click(sender As Object, e As EventArgs) Handles lblArtpad.Click
+        pnlPrograms.Hide()
+        totile = lblArtpad.Text
+    End Sub
+
+    Private Sub lblAudioPlayer_Click(sender As Object, e As EventArgs) Handles lblAudioPlayer.Click
+        pnlPrograms.Hide()
+        totile = lblAudioPlayer.Text
+    End Sub
+
+    Private Sub lblBitNoteDigger_Click(sender As Object, e As EventArgs) Handles lblBitNoteDigger.Click
+        pnlPrograms.Hide()
+        totile = lblBitNoteDigger.Text
+    End Sub
+
+    Private Sub lblBitNoteWallet_Click(sender As Object, e As EventArgs) Handles lblBitNoteWallet.Click
+        pnlPrograms.Hide()
+        totile = lblBitNoteWallet.Text
+    End Sub
+
+    Private Sub lblCalc_Click(sender As Object, e As EventArgs) Handles lblCalc.Click
+        pnlPrograms.Hide()
+        totile = lblCalc.Text
+    End Sub
+
+    Private Sub lblCatlyst_Click(sender As Object, e As EventArgs) Handles lblCatlyst.Click
+        pnlPrograms.Hide()
+        totile = lblCatlyst.Text
+    End Sub
+
+    Private Sub lblClock_Click(sender As Object, e As EventArgs) Handles lblClock.Click
+        pnlPrograms.Hide()
+        totile = lblClock.Text
+    End Sub
+
+    Private Sub lblDodge_Click(sender As Object, e As EventArgs) Handles lblDodge.Click
+        pnlPrograms.Hide()
+        totile = lblDodge.Text
+    End Sub
+
+    Private Sub lblDownloader_Click(sender As Object, e As EventArgs) Handles lblDownloader.Click
+        pnlPrograms.Hide()
+        totile = lblDownloader.Text
+    End Sub
+
+    Private Sub lblDManager_Click(sender As Object, e As EventArgs) Handles lblDManager.Click
+        pnlPrograms.Hide()
+        totile = lblDManager.Text
+    End Sub
+
+    Private Sub lblFileSkimmer_Click(sender As Object, e As EventArgs) Handles lblFileSkimmer.Click
+        pnlPrograms.Hide()
+        totile = lblFileSkimmer.Text
+    End Sub
+
+    Private Sub lblFloodGateManager_Click(sender As Object, e As EventArgs) Handles lblFloodGateManager.Click
+        pnlPrograms.Hide()
+        totile = lblFloodGateManager.Text
+    End Sub
+
+    Private Sub lblIconManager_Click(sender As Object, e As EventArgs) Handles lblIconManager.Click
+        pnlPrograms.Hide()
+        totile = lblIconManager.Text
+    End Sub
+
+    Private Sub lblInstaller_Click(sender As Object, e As EventArgs) Handles lblInstaller.Click
+        pnlPrograms.Hide()
+        totile = lblInstaller.Text
+    End Sub
+
+    Private Sub lblKnowledgeInput_Click(sender As Object, e As EventArgs) Handles lblKnowledgeInput.Click
+        pnlPrograms.Hide()
+        totile = lblKnowledgeInput.Text
+    End Sub
+
+    Private Sub lblLabyrinth_Click(sender As Object, e As EventArgs) Handles lblLabyrinth.Click
+        pnlPrograms.Hide()
+        totile = lblLabyrinth.Text
+    End Sub
+
+    Private Sub lblNameChanger_Click(sender As Object, e As EventArgs) Handles lblNameChanger.Click
+        pnlPrograms.Hide()
+        totile = lblNameChanger.Text
+    End Sub
+
+    Private Sub lblOrcWrite_Click(sender As Object, e As EventArgs) Handles lblOrcWrite.Click
+        pnlPrograms.Hide()
+        totile = lblOrcWrite.Text
+    End Sub
+
+    Private Sub lblPong_Click(sender As Object, e As EventArgs) Handles lblPong.Click
+        pnlPrograms.Hide()
+        totile = lblPong.Text
+    End Sub
+
+    Private Sub lblShifter_Click(sender As Object, e As EventArgs) Handles lblShifter.Click
+        pnlPrograms.Hide()
+        totile = lblShifter.Text
+    End Sub
+
+    Private Sub lblShiftorium_Click(sender As Object, e As EventArgs) Handles lblShiftorium.Click
+        pnlPrograms.Hide()
+        totile = lblShiftorium.Text
+    End Sub
+
+    Private Sub lblSnakey_Click(sender As Object, e As EventArgs) Handles lblSnakey.Click
+        pnlPrograms.Hide()
+        totile = lblSnakey.Text
+    End Sub
+
+    Private Sub lblTerminal_Click(sender As Object, e As EventArgs) Handles lblTerminal.Click
+        pnlPrograms.Hide()
+        totile = lblTerminal.Text
+    End Sub
+
+    Private Sub lblTextPad_Click(sender As Object, e As EventArgs) Handles lblTextPad.Click
+        pnlPrograms.Hide()
+        totile = lblTextPad.Text
+    End Sub
+
+    Private Sub lblVideoPlayer_Click(sender As Object, e As EventArgs) Handles lblVideoPlayer.Click
+        pnlPrograms.Hide()
+        totile = lblVideoPlayer.Text
+    End Sub
+
+    Private Sub lblVirusScanner_Click(sender As Object, e As EventArgs) Handles lblVirusScanner.Click
+        pnlPrograms.Hide()
+        totile = lblVirusScanner.Text
+    End Sub
+
+    Private Sub lblWebBrowser_Click(sender As Object, e As EventArgs) Handles lblWebBrowser.Click
+        pnlPrograms.Hide()
+        totile = lblVirusScanner.Text
+    End Sub
+
+    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
+        If Not totile = "" Then
+            pnlPrograms.Hide()
+            tilecolor.ShowDialog()
+            DockWindow.createtile(totile, tilecolor.Color.ToString.Replace("Color", "").Replace("[", "").Replace("]", ""))
+            DockWindow.loadevents.writeFile(totile, tilecolor.Color.ToString.Replace("Color", "").Replace("[", "").Replace("]", ""))
+        End If
+    End Sub
+
+    Private Sub Udate_Tick(sender As Object, e As EventArgs) Handles Udate.Tick
+        lblToTile.Text = totile
+    End Sub
+
+    Private Sub lblShiftNet_Click(sender As Object, e As EventArgs) Handles lblShiftNet.Click
+        totile = lblShiftNet.Text
+    End Sub
+
+    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
+        pnlPrograms.Show()
+    End Sub
+
+    Private Sub btnPlus_Click_1(sender As Object, e As EventArgs) Handles btnPlus.Click
+        DockWindow.Top = DockWindow.Top + 5
+        DockWindow.loadevents.writeConfFile(DockWindow.Top, DockWindow.docktopbot)
+    End Sub
+
+    Private Sub btnSetTop_Click_1(sender As Object, e As EventArgs) Handles btnSetTop.Click
+        DockWindow.Top = -30
+        DockWindow.picBoarder.Top = 31
+        DockWindow.picBoarder.BringToFront()
+        DockWindow.loadevents.writeConfFile(DockWindow.Top, "Top")
+        DockWindow.docktopbot = "Top"
+    End Sub
+
+    Private Sub btnTake_Click_1(sender As Object, e As EventArgs) Handles btnTake.Click
+        DockWindow.Top = DockWindow.Top - 5
+        DockWindow.loadevents.writeConfFile(DockWindow.Top, DockWindow.docktopbot)
+    End Sub
+
+    Private Sub btnSetBottom_Click_1(sender As Object, e As EventArgs) Handles btnSetBottom.Click
+        DockWindow.Top = DockWindow.screenHeight - DockWindow.Height - 42
+        DockWindow.picBoarder.Top = 96
+        DockWindow.picBoarder.BringToFront()
+        DockWindow.loadevents.writeConfFile(DockWindow.Top, "Bottom")
+        DockWindow.docktopbot = "Bottom"
+    End Sub
+
+    Private Sub btnQuitSet_Click_1(sender As Object, e As EventArgs) Handles btnQuitSet.Click
+        Me.Close()
+    End Sub
+
+    Private Sub btnQuitDock_Click_1(sender As Object, e As EventArgs) Handles btnQuitDock.Click
+        Me.Close()
+        DockWindow.Close()
+    End Sub
+End Class

ShiftOS/DockWindow.Designer.vb

@@ -0,0 +1,69 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class DockWindow
+    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.pnlTiles = New System.Windows.Forms.Panel()
+        Me.picBoarder = New System.Windows.Forms.PictureBox()
+        CType(Me.picBoarder, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'pnlTiles
+        '
+        Me.pnlTiles.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.pnlTiles.BackColor = System.Drawing.Color.Transparent
+        Me.pnlTiles.Location = New System.Drawing.Point(-1, 0)
+        Me.pnlTiles.Name = "pnlTiles"
+        Me.pnlTiles.Size = New System.Drawing.Size(125, 112)
+        Me.pnlTiles.TabIndex = 3
+        '
+        'picBoarder
+        '
+        Me.picBoarder.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.picBoarder.BackColor = System.Drawing.Color.Gray
+        Me.picBoarder.Location = New System.Drawing.Point(-1, 107)
+        Me.picBoarder.Name = "picBoarder"
+        Me.picBoarder.Size = New System.Drawing.Size(125, 21)
+        Me.picBoarder.TabIndex = 2
+        Me.picBoarder.TabStop = False
+        '
+        'DockWindow
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(1, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(1, Byte), Integer))
+        Me.ClientSize = New System.Drawing.Size(124, 149)
+        Me.Controls.Add(Me.pnlTiles)
+        Me.Controls.Add(Me.picBoarder)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Name = "DockWindow"
+        Me.Text = "Dock"
+        Me.TransparencyKey = System.Drawing.Color.FromArgb(CType(CType(1, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(1, Byte), Integer))
+        CType(Me.picBoarder, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents pnlTiles As System.Windows.Forms.Panel
+    Friend WithEvents picBoarder As System.Windows.Forms.PictureBox
+End Class

ShiftOS/DockWindow.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/DockWindow.vb

@@ -0,0 +1,297 @@
+Public Class DockWindow
+
+    Public screenWidth As Integer = Screen.PrimaryScreen.Bounds.Width
+    Public screenHeight As Integer = Screen.PrimaryScreen.Bounds.Height
+    Dim toleft As Integer = 30
+    Dim tileprogram(100) As String
+    Dim currenttile As String = 0
+    Public loadevents As New DockEngine
+    Public docktopbot As String = "Bottom"
+
+    Public Sub colours()
+        'Dim img As New Bitmap(picBackColor.Width, picBackColor.Height)
+        'Dim brush As New Drawing.Drawing2D.LinearGradientBrush(New PointF(0, 0), New PointF(img.Width, img.Height), SystemColors.Window, SystemColors.ControlLight)
+        ' Dim gr As Graphics = Graphics.FromImage(img)
+        'gr.FillRectangle(brush, New RectangleF(0, 0, img.Width, img.Height))
+        'picBackColor.BackgroundImage = img
+    End Sub
+
+    Private Sub Dock_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.TopMost = True
+        Me.ShowInTaskbar = False
+        toleft = toleft + 40
+        Dim tile As New PictureBox
+        tile.BackColor = Color.Silver
+        tile.Height = 40
+        tile.Width = 40
+        tile.Top = 54
+        tile.Left = toleft
+        'tile.Image = My.Resources.settings
+        tile.SizeMode = PictureBoxSizeMode.Zoom
+        tile.Name = currenttile
+        toleft = toleft + 45
+        tile.BringToFront()
+        'picBackColor.SendToBack()
+        tile.SizeMode = PictureBoxSizeMode.CenterImage
+        Me.Width = Me.Width + tile.Width + 5
+        Me.Left = (My.Computer.Screen.WorkingArea.Width \ 2) - (Me.Width \ 2)
+        pnlTiles.Controls.Add(tile)
+        currenttile = currenttile + 1
+        AddHandler tile.Click, AddressOf tilesets_click
+        AddHandler tile.MouseHover, AddressOf tile_hover
+        AddHandler tile.MouseLeave, AddressOf tile_leave
+        colours()
+        loadevents.readFile(Application.StartupPath + "\SoftwareData\ShiftDock\tiles.dat")
+        loadevents.readConfFile(Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat")
+        loadevents.writeConfFile(Me.Top, docktopbot)
+        Me.Top = loadevents.docktop
+        docktopbot = loadevents.topbottom
+        If docktopbot = "Bottom" Then
+            'Me.Top = screenHeight - Me.Height - 42
+            Me.picBoarder.Top = 96
+            Me.picBoarder.BringToFront()
+            loadevents.writeConfFile(Me.Top, "Bottom")
+        Else
+            Me.picBoarder.Top = 31
+            Me.picBoarder.BringToFront()
+            loadevents.writeConfFile(Me.Top, "Top")
+        End If
+       Me.TopMost = True
+        'tmr_faid.Start()
+    End Sub
+
+    Public Sub createtile(ByVal openPath As String, backcolor As String)
+        Dim tile As New PictureBox
+        If backcolor.Contains("A=") Then
+            Dim newcolor() As String
+            newcolor = backcolor.Split(",")
+            tile.BackColor = Color.FromArgb(newcolor(0).Replace("A=", "").Replace(" ", ""), newcolor(1).Replace("R=", "").Replace(" ", ""), newcolor(2).Replace("G=", "").Replace(" ", ""), newcolor(3).Replace("B=", "").Replace(" ", ""))
+        Else
+            Try
+                tile.BackColor = Color.FromName(backcolor.Replace(" ", ""))
+            Catch
+                Try
+                    tile.BackColor = Color.FromKnownColor(backcolor)
+                Catch
+                    tile.BackColor = Color.Red
+                End Try
+            End Try
+        End If
+        tile.Height = 40
+        tile.Width = 40
+        tile.Top = 54
+        tile.Left = toleft
+        If openPath = "ArtPad" Then
+            tile.Image = ShiftOSDesktop.artpadiconlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Audio Player" Then
+            tile.Image = ShiftOSDesktop.audioplayericonlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Bit Note Digger" Then
+            tile.Image = ShiftOSDesktop.bitnotediggericonlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Bit Note Wallet" Then
+            tile.Image = ShiftOSDesktop.bitnotewalleticonlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Calculator" Then
+            tile.Image = ShiftOSDesktop.calculatoriconlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+         ElseIf openPath = "Catlyst" Then
+            tile.Image = ShiftOSDesktop.calculatoriconlauncher 'needs new icon
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Clock" Then
+            tile.Image = ShiftOSDesktop.clockiconlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Dodge" Then
+            tile.Image = ShiftOSDesktop.dodgeiconlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Downloader" Then
+            tile.Image = ShiftOSDesktop.downloadericonlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Downloader Manager" Then
+            tile.Image = ShiftOSDesktop.downloadmanagericonlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "File Skimmer" Then
+            tile.Image = ShiftOSDesktop.fileskimmericonlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "FloodGate Manager" Then
+            tile.Image = ShiftOSDesktop.floodgateiconlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Icon Manager" Then
+            tile.Image = ShiftOSDesktop.iconmanagericonlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Installer" Then
+            tile.Image = ShiftOSDesktop.installericonlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Knowledge Input" Then
+            tile.Image = ShiftOSDesktop.knowledgeinputiconlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Labyrinth" Then
+            tile.Image = ShiftOSDesktop.calculatoriconlauncher 'needs new icon
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Name Changer" Then
+            tile.Image = ShiftOSDesktop.namechangericonlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "OrcWrite" Then
+            tile.Image = ShiftOSDesktop.orcwriteiconlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Pong" Then
+            tile.Image = ShiftOSDesktop.pongiconlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Shifter" Then
+            tile.Image = ShiftOSDesktop.shiftericonlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Shiftorium" Then
+            tile.Image = ShiftOSDesktop.shiftoriumiconlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Snakey" Then
+            tile.Image = ShiftOSDesktop.snakeyiconlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Terminal" Then
+            tile.Image = ShiftOSDesktop.terminaliconlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "TextPad" Then
+            tile.Image = ShiftOSDesktop.textpadiconlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "Video Player" Then
+            tile.Image = ShiftOSDesktop.videoplayericonlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "VirusScanner" Then
+            tile.Image = ShiftOSDesktop.virusscannericonlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "WebBrowser" Then
+            tile.Image = ShiftOSDesktop.webbrowsericonlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        ElseIf openPath = "ShiftNet" Then
+            tile.Image = ShiftOSDesktop.shiftneticonlauncher
+            tile.SizeMode = PictureBoxSizeMode.StretchImage
+        End If
+        tile.Name = currenttile
+        tileprogram(currenttile) = openPath
+        toleft = toleft + 45
+        tile.BringToFront()
+        'picBackColor.SendToBack()
+        tile.SizeMode = PictureBoxSizeMode.CenterImage
+        Me.Width = Me.Width + tile.Width + 5
+        Me.Left = (My.Computer.Screen.WorkingArea.Width \ 2) - (Me.Width \ 2)
+        pnlTiles.Controls.Add(tile)
+        currenttile = currenttile + 1
+        AddHandler tile.Click, AddressOf tile_click
+        AddHandler tile.MouseHover, AddressOf tile_hover
+        AddHandler tile.MouseLeave, AddressOf tile_leave
+    End Sub
+
+    'Private Sub btnAddIcon_Click(sender As Object, e As EventArgs) Handles btnAddIcon.Click
+    ' createtile(txtURL.Text)
+    'colours()
+    ' End Sub
+
+    Private Sub tile_click(sender As Object, e As EventArgs)
+        Dim tle As PictureBox = DirectCast(sender, PictureBox)
+        Dim open As String = tle.Name
+        If tileprogram(open) = "ArtPad" Then
+            ArtPad.Show()
+        ElseIf tileprogram(open) = "Audio Player" Then
+            Audio_Player.Show()
+        ElseIf tileprogram(open) = "Bit Note Digger" Then
+            Bitnote_Digger.Show()
+        ElseIf tileprogram(open) = "Bit Note Wallet" Then
+            Bitnote_Wallet.Show()
+        ElseIf tileprogram(open) = "Calculator" Then
+            Calculator.Show()
+        ElseIf tileprogram(open) = "Catlyst" Then
+            Catalyst_Main.Show()
+        ElseIf tileprogram(open) = "Clock" Then
+            Clock.Show()
+        ElseIf tileprogram(open) = "Dodge" Then
+            Dodge.Show()
+        ElseIf tileprogram(open) = "Downloader" Then
+            Downloader.Show()
+        ElseIf tileprogram(open) = "Downloader Manager" Then
+            Downloadmanager.Show()
+        ElseIf tileprogram(open) = "File Skimmer" Then
+            File_Skimmer.Show()
+        ElseIf tileprogram(open) = "FloodGate Manager" Then
+            FloodGate_Manager.Show()
+        ElseIf tileprogram(open) = "Icon Manager" Then
+            Icon_Manager.Show()
+        ElseIf tileprogram(open) = "Installer" Then
+            Installer.Show()
+        ElseIf tileprogram(open) = "Knowledge Input" Then
+            Knowledge_Input.Show()
+        ElseIf tileprogram(open) = "Labyrinth" Then
+            Labyrinth.Show()
+        ElseIf tileprogram(open) = "Name Changer" Then
+            Name_Changer.Show()
+        ElseIf tileprogram(open) = "OrcWrite" Then
+            OrcWrite.Show()
+        ElseIf tileprogram(open) = "Pong" Then
+            Pong.Show()
+        ElseIf tileprogram(open) = "Shifter" Then
+            Shifter.Show()
+        ElseIf tileprogram(open) = "Shiftorium" Then
+            Shiftorium.Show()
+        ElseIf tileprogram(open) = "Snakey" Then
+            Snakey.Show()
+        ElseIf tileprogram(open) = "Terminal" Then
+            Terminal.Show()
+        ElseIf tileprogram(open) = "TextPad" Then
+            TextPad.Show()
+        ElseIf tileprogram(open) = "Video Pad" Then
+            Video_Player.Show()
+        ElseIf tileprogram(open) = "VirusScanner" Then
+            VirusScanner.Show()
+        ElseIf tileprogram(open) = "WebBrowser" Then
+            Web_Browser.Show()
+        ElseIf tileprogram(open) = "ShiftNet" Then
+            Shiftnet.Show()
+        End If
+    End Sub
+
+    Dim dtop As Integer
+
+    Private Sub tile_hover(sender As Object, e As EventArgs)
+        Dim tle As PictureBox = DirectCast(sender, PictureBox)
+        If docktopbot = "Bottom" Then
+            Dim open As String = tle.Name
+            tle.Top = tle.Top - 10
+            Try
+                'lblApp.Text = open
+            Catch
+                'lblApp.Text = "Error"
+            End Try
+        End If
+        If docktopbot = "Top" Then
+            dtop = tle.Top
+            Dim open As String = tle.Name
+            tle.Top = tle.Top + 10
+            Try
+                'lblApp.Text = open
+            Catch
+                'lblApp.Text = "Error"
+            End Try
+        End If
+
+    End Sub
+
+    Private Sub tile_leave(sender As Object, e As EventArgs)
+        Dim tle As PictureBox = DirectCast(sender, PictureBox)
+        If docktopbot = "Bottom" Then
+            tle.Top = tle.Top + 10
+            If tle.Top > 54 Then
+                tle.Top = 54
+            End If
+        End If
+        If docktopbot = "Top" Then
+            tle.Top = tle.Top - 10
+            If tle.Top < dtop Then
+                tle.Top = dtop
+            End If
+        End If
+    End Sub
+
+    Private Sub tilesets_click(sender As Object, e As EventArgs)
+        DockSettingsMenu.Show()
+    End Sub
+
+End Class

ShiftOS/FullScreenLogin Customizer.Designer.vb

@@ -23,11 +23,11 @@ Partial Class FullScreenLoginCustomizer
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FullScreenLoginCustomizer))
-        Me.txtusername = New MichaelsMovableControlSuite.MovableTextBox()
+        Me.txtusername = New TextBox 'MichaelsMovableControlSuite.MovableTextBox()
-        Me.txtpassword = New MichaelsMovableControlSuite.MovableTextBox()
+        Me.txtpassword = New TextBox 'MichaelsMovableControlSuite.MovableTextBox()
-        Me.userpic = New MichaelsMovableControlSuite.MovablePictureBox()
+        Me.userpic = New PictureBox ' MichaelsMovableControlSuite.MovablePictureBox()
-        Me.loginbtn = New MichaelsMovableControlSuite.MovableButton()
+        Me.loginbtn = New Button ' MichaelsMovableControlSuite.MovableButton()
-        Me.shutdown = New MichaelsMovableControlSuite.MovableButton()
+        Me.shutdown = New Button 'MichaelsMovableControlSuite.MovableButton()
         Me.preview = New System.Windows.Forms.Panel()
         Me.pnldefault = New System.Windows.Forms.Panel()
         Me.Label3 = New System.Windows.Forms.Label()
@@ -281,11 +281,11 @@ Partial Class FullScreenLoginCustomizer
         Me.ResumeLayout(False)
 
     End Sub
-    Friend WithEvents txtusername As MichaelsMovableControlSuite.MovableTextBox
+    Friend WithEvents txtusername As TextBox 'MichaelsMovableControlSuite.MovableTextBox
-    Friend WithEvents txtpassword As MichaelsMovableControlSuite.MovableTextBox
+    Friend WithEvents txtpassword As TextBox 'MichaelsMovableControlSuite.MovableTextBox
-    Friend WithEvents userpic As MichaelsMovableControlSuite.MovablePictureBox
+    Friend WithEvents userpic As PictureBox 'MichaelsMovableControlSuite.MovablePictureBox
-    Friend WithEvents loginbtn As MichaelsMovableControlSuite.MovableButton
+    Friend WithEvents loginbtn As Button 'MichaelsMovableControlSuite.MovableButton
-    Friend WithEvents shutdown As MichaelsMovableControlSuite.MovableButton
+    Friend WithEvents shutdown As Button ' MichaelsMovableControlSuite.MovableButton
     Friend WithEvents preview As System.Windows.Forms.Panel
     Friend WithEvents pnldefault As System.Windows.Forms.Panel
     Friend WithEvents Titlebar As System.Windows.Forms.Panel

ShiftOS/ShiftOS.vbproj

@@ -88,7 +88,8 @@
     <Reference Include="MichaelsMovableControlSuite">
       <HintPath>bin\debug\MichaelsMovableControlSuite.dll</HintPath>
     </Reference>
-    <Reference Include="Skybound.Gecko">
+    <Reference Include="Skybound.Gecko, Version=1.9.1.0, Culture=neutral, PublicKeyToken=3209ac31600d1857, processorArchitecture=x86">
+      <SpecificVersion>False</SpecificVersion>
       <HintPath>bin\debug\Skybound.Gecko.dll</HintPath>
     </Reference>
     <Reference Include="System" />
@@ -157,6 +158,13 @@
     <Compile Include="Catalyst_Main.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="DockWindow.Designer.vb">
+      <DependentUpon>DockWindow.vb</DependentUpon>
+    </Compile>
+    <Compile Include="DockWindow.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="DockEngine.vb" />
     <Compile Include="FullScreenLogin Customizer.Designer.vb">
       <DependentUpon>FullScreenLogin Customizer.vb</DependentUpon>
     </Compile>
@@ -325,6 +333,12 @@
     <Compile Include="SystemInfo.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="DockSettingsMenu.Designer.vb">
+      <DependentUpon>DockSettingsMenu.vb</DependentUpon>
+    </Compile>
+    <Compile Include="DockSettingsMenu.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="Video Player.Designer.vb">
       <DependentUpon>Video Player.vb</DependentUpon>
     </Compile>
@@ -492,6 +506,9 @@
     <EmbeddedResource Include="coherencemodeform.resx">
       <DependentUpon>coherencemodeform.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="DockWindow.resx">
+      <DependentUpon>DockWindow.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="FullScreenLogin Customizer.resx">
       <DependentUpon>FullScreenLogin Customizer.vb</DependentUpon>
     </EmbeddedResource>
@@ -562,6 +579,9 @@
     <EmbeddedResource Include="SystemInfo.resx">
       <DependentUpon>SystemInfo.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="DockSettingsMenu.resx">
+      <DependentUpon>DockSettingsMenu.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Video Player.resx">
       <DependentUpon>Video Player.vb</DependentUpon>
     </EmbeddedResource>

ShiftOS/ShiftOSDesktop.vb

@@ -1638,7 +1638,7 @@
             Catch ex As Exception
                 'Do nothing -- Haven't found a good startup sound
             End Try
-
+        DockWindow.Show()
     End Sub
 
     Public Sub loadcurrentskin()