mirror of
https://github.com/TheUltimateHacker/ShiftOS.git
synced 2025-01-22 16:12:14 +00:00
4caacce50c
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
19 lines
624 B
VB.net
19 lines
624 B
VB.net
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
|