From cb58c22d232766d955d6c9d37e168e505b5faa9d Mon Sep 17 00:00:00 2001
From: ShiftOS <archive@shiftos.dev>
Date: Sat, 11 Oct 2014 14:14:20 -0400
Subject: Init

---
 ShiftOS/coherencemode.vb | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 ShiftOS/coherencemode.vb

(limited to 'ShiftOS/coherencemode.vb')

diff --git a/ShiftOS/coherencemode.vb b/ShiftOS/coherencemode.vb
new file mode 100644
index 0000000..9308894
--- /dev/null
+++ b/ShiftOS/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
-- 
cgit v1.2.3