shiftos-archive/Histacom
1
0
Fork 0
mirror of https://github.com/Histacom/Histacom.git synced 2025-01-22 09:02:00 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Use the 'Not' operator

Browse source
This commit is contained in:
Jamie Mansfield 2015-03-07 19:48:26 +00:00
parent bb6492c608
commit 6337ebe79a
51 changed files with 104 additions and 154 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
windows 95/2002 virus labels.vb
View file

@ -1,7 +1,7 @@
Public Class _2002_virus_labels
Dim white As Boolean = True
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If white = True Then
If white Then
original.ForeColor = Color.Black
white = False
Else

5
windows 95/Address Book.vb
View file

@ -9,7 +9,7 @@
End Sub
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -19,7 +19,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -66,7 +65,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/Command prompt.vb
View file

@ -10,7 +10,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -20,7 +20,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -66,7 +65,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/Downloader98.vb
View file

@ -53,7 +53,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -63,7 +63,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -110,7 +109,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/Guess The Number 98.vb
View file

@ -143,7 +143,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -153,7 +153,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -200,7 +199,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = windows98.desktopicons.Height - Me.Height
mexlocation = windows98.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/Guess The Number app.vb
View file

@ -106,7 +106,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -116,7 +116,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -163,7 +162,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/Installer95.vb
View file

@ -75,7 +75,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -85,7 +85,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -132,7 +131,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/Installer98.vb
View file

@ -76,7 +76,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -86,7 +86,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -133,7 +132,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/Internet Explorer 52001.vb
View file

@ -243,7 +243,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -253,7 +253,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -300,7 +299,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows2000.desktopicons.Height - Me.Height
mexlocation = Windows2000.desktopicons.Width - Me.Width
mewidth = Me.Width

9
windows 95/Internetexplorer62002damaged.vb
View file

@ -13,7 +13,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles top.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
top.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -23,7 +23,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -68,7 +67,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windowsxp2002damaged.desktopicons.Height - Me.Height
mexlocation = Windowsxp2002damaged.desktopicons.Width - Me.Width
mewidth = Me.Width
@ -111,7 +110,7 @@
End Sub
Private Sub viruscountdown_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles labelflash.Tick
If white = True Then
If white Then
original.ForeColor = Color.Black
white = False
Else
@ -376,7 +375,7 @@
If amount = 20 Then
Title_Screen.Close()
End If
amount = amount - 1
amount -= 1
End Sub
End Class

5
windows 95/Skindows 95.vb
View file

@ -1229,7 +1229,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -1239,7 +1239,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -1286,7 +1285,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/Start Runner95.vb
View file

@ -39,7 +39,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -49,7 +49,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -91,7 +90,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/StartRunner98.vb
View file

@ -39,7 +39,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -49,7 +49,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -91,7 +90,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows98.desktopicons.Height - Me.Height
mexlocation = Windows98.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/Survive The Day.vb
View file

@ -5,7 +5,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -15,7 +15,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -62,7 +61,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows2000.desktopicons.Height - Me.Height
mexlocation = Windows2000.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/Windows Xp messagebox.vb
View file

@ -47,7 +47,7 @@
Timer3.Stop()
End Sub
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles top.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
top.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -57,7 +57,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -104,7 +103,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windowsxp2002damaged.desktopicons.Height - Me.Height
mexlocation = Windowsxp2002damaged.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/commandprompt2000.vb
View file

@ -6,7 +6,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -16,7 +16,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -63,7 +62,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows2000.desktopicons.Height - Me.Height
mexlocation = Windows2000.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/commandpromptxp.vb
View file

@ -5,7 +5,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles top.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
top.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -15,7 +15,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -62,7 +61,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If not maximize Then
meylocation = Windowsxp2002damaged.desktopicons.Height - Me.Height
mexlocation = Windowsxp2002damaged.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/downloader2000.vb
View file

@ -56,7 +56,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -66,7 +66,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -113,7 +112,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows2000.desktopicons.Height - Me.Height
mexlocation = Windows2000.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/downloader95.vb
View file

@ -53,7 +53,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -63,7 +63,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -110,7 +109,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/errorblaster2000.vb
View file

@ -57,7 +57,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -67,7 +67,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -114,7 +113,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows2000.desktopicons.Height - Me.Height
mexlocation = Windows2000.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/errorblaster95.vb
View file

@ -56,7 +56,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -66,7 +66,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -113,7 +112,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/errorblaster98.vb
View file

@ -57,7 +57,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -67,7 +67,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -114,7 +113,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows98.desktopicons.Height - Me.Height
mexlocation = Windows98.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/formDisplayproperties.vb
View file

@ -266,7 +266,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -276,7 +276,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -323,7 +322,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/formcalculator.vb
View file

@ -9,7 +9,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -19,7 +19,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -66,7 +65,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/formwindowshelp.vb
View file

@ -9,7 +9,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -19,7 +19,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -66,7 +65,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/guessthenumber2win2000.vb
View file

@ -143,7 +143,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -153,7 +153,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -200,7 +199,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows2000.desktopicons.Height - Me.Height
mexlocation = Windows2000.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/hwcv.vb
View file

@ -22,7 +22,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -32,7 +32,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -79,7 +78,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/installer2000.vb
View file

@ -82,7 +82,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -92,7 +92,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -139,7 +138,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows2000.desktopicons.Height - Me.Height
mexlocation = Windows2000.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/installerxp.vb
View file

@ -78,7 +78,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles top.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
top.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -88,7 +88,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -135,7 +134,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windowsxp2002damaged.desktopicons.Height - Me.Height
mexlocation = Windowsxp2002damaged.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/internet explorer 4.vb
View file

@ -256,7 +256,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -266,7 +266,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -313,7 +312,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/internet explorer 5.vb
View file

@ -255,7 +255,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -265,7 +265,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -312,7 +311,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/notepad.vb
View file

@ -14,7 +14,7 @@
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -24,7 +24,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -71,7 +70,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/notepad2000.vb
View file

@ -5,7 +5,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -15,7 +15,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -62,7 +61,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/notepadxp.vb
View file

@ -5,7 +5,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles top.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
top.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -15,7 +15,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -62,7 +61,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/paint.vb
View file

@ -640,7 +640,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -650,7 +650,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -697,7 +696,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/phone dialer.vb
View file

@ -11,7 +11,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -21,7 +21,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -68,7 +67,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/run.vb
View file

@ -9,7 +9,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -19,7 +19,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -66,7 +65,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/startrunner2000.vb
View file

@ -39,7 +39,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -49,7 +49,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -91,7 +90,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows2000.desktopicons.Height - Me.Height
mexlocation = Windows2000.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/template2000.vb
View file

@ -5,7 +5,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -15,7 +15,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -62,7 +61,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows2000.desktopicons.Height - Me.Height
mexlocation = Windows2000.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/templatexp.vb
View file

@ -5,7 +5,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles top.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
top.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -15,7 +15,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -62,7 +61,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windowsxp2002damaged.desktopicons.Height - Me.Height
mexlocation = Windowsxp2002damaged.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/templete95and98.vb
View file

@ -5,7 +5,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -15,7 +15,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -62,7 +61,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/templetevista.vb
View file

@ -5,7 +5,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles top.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
top.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -15,7 +15,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -62,7 +61,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = windowsvista.desktopicons.Height - Me.Height
mexlocation = windowsvista.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/time distorter 0.2.vb
View file

@ -7,7 +7,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -17,7 +17,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -63,7 +62,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/time distorter.vb
View file

@ -840,7 +840,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -850,7 +850,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -897,7 +896,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/timedistorter0.32000.vb
View file

@ -7,7 +7,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -17,7 +17,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -64,7 +63,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows2000.desktopicons.Height - Me.Height
mexlocation = Windows2000.desktopicons.Width - Me.Width
mewidth = Me.Width

7
windows 95/timedistorter032002xp.vb
View file

@ -7,7 +7,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles top.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
top.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -17,7 +17,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -64,7 +63,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windowsxp2002damaged.desktopicons.Height - Me.Height
mexlocation = Windowsxp2002damaged.desktopicons.Width - Me.Width
mewidth = Me.Width
@ -212,7 +211,7 @@
countdown.Text = countdownnum
commandpromptxp.TextBox1.Text = commandpromptxp.TextBox1.Text + ("The Hidden Hacker: Ok... you chose the year 2000." & Environment.NewLine)
End If
If timergo = True Then
If timergo Then
countdown.Text = countdownnum
End If

5
windows 95/volume control.vb
View file

@ -14,7 +14,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -24,7 +24,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -71,7 +70,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/windows explorer.vb
View file

@ -24,7 +24,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -34,7 +34,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -81,7 +80,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/windows2000messagebox.vb
View file

@ -48,7 +48,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -58,7 +58,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -105,7 +104,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows2000.desktopicons.Height - Me.Height
mexlocation = Windows2000.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/windows95messagebox.vb
View file

@ -43,7 +43,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -53,7 +53,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -100,7 +99,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width

5
windows 95/windows98messagebox.vb
View file

@ -48,7 +48,7 @@
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -58,7 +58,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
@ -105,7 +104,7 @@
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
If Not maximize Then
meylocation = Windows98.desktopicons.Height - Me.Height
mexlocation = Windows98.desktopicons.Width - Me.Width
mewidth = Me.Width