blob: 93088947fcb788be7d3aea55f73394b883c959fd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
|
