ShiftOS

ShiftOS is a game about evolving an experimental operating system called
"ShiftOS" from a completely black and white text based command line
based OS to a fully graphical operating system filled with advanced
features and beautiful colours. The level of customization will exceed
the levels of real world operating systems

1 files changed, 19 insertions, 0 deletions

diff --git a/coherencemode.vb b/coherencemode.vb
new file mode 100644
index 0000000..5868bf1
--- /dev/null
+++ b/coherencemode.vb
@@ -0,0 +1,19 @@
+Module coherencemode
+    Dim fakeform As New template
+
+    Public Sub setupwindows(ByVal programname As String)
+        Dim win As Window = Window.Find(programname)
+        win.Style(Window.Styles.Border) = False
+        win.Style(Window.Styles.Sizable) = False
+        win.Size = New Size(win.Size.Width + 1, win.Size.Height + 1)
+        win.Invalidate()
+
+        fakeform.Show()
+        fakeform.Location = win.Location
+        fakeform.Size = win.Size
+        fakeform.lbtitletext.Text = win.Text
+        fakeform.resettitlebar()
+        fakeform.pgcontents.BackColor = Color.FromArgb(1, 0, 1)
+    End Sub
+
+End Module