summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJamie Mansfield <[email protected]>2015-03-07 19:48:26 +0000
committerJamie Mansfield <[email protected]>2015-03-07 19:48:26 +0000
commit6337ebe79a71f4434e50733b9426fbacc01bf5c6 (patch)
tree203dd32fc52cb6782fcaba5d3788b0728ddb49bb
parentbb6492c6085f10570ae5087b667aaaa1e8fa3d01 (diff)
downloadhistacom-6337ebe79a71f4434e50733b9426fbacc01bf5c6.tar.gz
histacom-6337ebe79a71f4434e50733b9426fbacc01bf5c6.tar.bz2
histacom-6337ebe79a71f4434e50733b9426fbacc01bf5c6.zip
Use the 'Not' operator
-rwxr-xr-xwindows 95/2002 virus labels.vb2
-rwxr-xr-xwindows 95/Address Book.vb5
-rwxr-xr-xwindows 95/Command prompt.vb5
-rwxr-xr-xwindows 95/Downloader98.vb5
-rwxr-xr-xwindows 95/Guess The Number 98.vb5
-rwxr-xr-xwindows 95/Guess The Number app.vb5
-rwxr-xr-xwindows 95/Installer95.vb5
-rwxr-xr-xwindows 95/Installer98.vb5
-rwxr-xr-xwindows 95/Internet Explorer 52001.vb5
-rwxr-xr-xwindows 95/Internetexplorer62002damaged.vb9
-rwxr-xr-xwindows 95/Skindows 95.vb5
-rwxr-xr-xwindows 95/Start Runner95.vb5
-rwxr-xr-xwindows 95/StartRunner98.vb5
-rwxr-xr-xwindows 95/Survive The Day.vb5
-rwxr-xr-xwindows 95/Windows Xp messagebox.vb5
-rwxr-xr-xwindows 95/commandprompt2000.vb5
-rwxr-xr-xwindows 95/commandpromptxp.vb5
-rwxr-xr-xwindows 95/downloader2000.vb5
-rwxr-xr-xwindows 95/downloader95.vb5
-rwxr-xr-xwindows 95/errorblaster2000.vb5
-rwxr-xr-xwindows 95/errorblaster95.vb5
-rwxr-xr-xwindows 95/errorblaster98.vb5
-rwxr-xr-xwindows 95/formDisplayproperties.vb5
-rwxr-xr-xwindows 95/formcalculator.vb5
-rwxr-xr-xwindows 95/formwindowshelp.vb5
-rwxr-xr-xwindows 95/guessthenumber2win2000.vb5
-rwxr-xr-xwindows 95/hwcv.vb5
-rwxr-xr-xwindows 95/installer2000.vb5
-rwxr-xr-xwindows 95/installerxp.vb5
-rwxr-xr-xwindows 95/internet explorer 4.vb5
-rwxr-xr-xwindows 95/internet explorer 5.vb5
-rwxr-xr-xwindows 95/notepad.vb5
-rwxr-xr-xwindows 95/notepad2000.vb5
-rwxr-xr-xwindows 95/notepadxp.vb5
-rwxr-xr-xwindows 95/paint.vb5
-rwxr-xr-xwindows 95/phone dialer.vb5
-rwxr-xr-xwindows 95/run.vb5
-rwxr-xr-xwindows 95/startrunner2000.vb5
-rwxr-xr-xwindows 95/template2000.vb5
-rwxr-xr-xwindows 95/templatexp.vb5
-rwxr-xr-xwindows 95/templete95and98.vb5
-rwxr-xr-xwindows 95/templetevista.vb5
-rwxr-xr-xwindows 95/time distorter 0.2.vb5
-rwxr-xr-xwindows 95/time distorter.vb5
-rwxr-xr-xwindows 95/timedistorter0.32000.vb5
-rwxr-xr-xwindows 95/timedistorter032002xp.vb7
-rwxr-xr-xwindows 95/volume control.vb5
-rwxr-xr-xwindows 95/windows explorer.vb5
-rwxr-xr-xwindows 95/windows2000messagebox.vb5
-rwxr-xr-xwindows 95/windows95messagebox.vb5
-rwxr-xr-xwindows 95/windows98messagebox.vb5
51 files changed, 104 insertions, 154 deletions
diff --git a/windows 95/2002 virus labels.vb b/windows 95/2002 virus labels.vb
index 3ea801e..ac8f8b8 100755
--- a/windows 95/2002 virus labels.vb
+++ b/windows 95/2002 virus labels.vb
@@ -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
diff --git a/windows 95/Address Book.vb b/windows 95/Address Book.vb
index e5f34bc..4b4a520 100755
--- a/windows 95/Address Book.vb
+++ b/windows 95/Address Book.vb
@@ -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
diff --git a/windows 95/Command prompt.vb b/windows 95/Command prompt.vb
index f0cae53..c86560e 100755
--- a/windows 95/Command prompt.vb
+++ b/windows 95/Command prompt.vb
@@ -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
diff --git a/windows 95/Downloader98.vb b/windows 95/Downloader98.vb
index 7f82600..3749f55 100755
--- a/windows 95/Downloader98.vb
+++ b/windows 95/Downloader98.vb
@@ -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
diff --git a/windows 95/Guess The Number 98.vb b/windows 95/Guess The Number 98.vb
index 71aad64..11c0fd4 100755
--- a/windows 95/Guess The Number 98.vb
+++ b/windows 95/Guess The Number 98.vb
@@ -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
diff --git a/windows 95/Guess The Number app.vb b/windows 95/Guess The Number app.vb
index 2718fc1..3ff4686 100755
--- a/windows 95/Guess The Number app.vb
+++ b/windows 95/Guess The Number app.vb
@@ -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
diff --git a/windows 95/Installer95.vb b/windows 95/Installer95.vb
index e41310a..9414299 100755
--- a/windows 95/Installer95.vb
+++ b/windows 95/Installer95.vb
@@ -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
diff --git a/windows 95/Installer98.vb b/windows 95/Installer98.vb
index c184fe1..c922746 100755
--- a/windows 95/Installer98.vb
+++ b/windows 95/Installer98.vb
@@ -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
diff --git a/windows 95/Internet Explorer 52001.vb b/windows 95/Internet Explorer 52001.vb
index 6c72b7d..04e3ee1 100755
--- a/windows 95/Internet Explorer 52001.vb
+++ b/windows 95/Internet Explorer 52001.vb
@@ -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
diff --git a/windows 95/Internetexplorer62002damaged.vb b/windows 95/Internetexplorer62002damaged.vb
index b03b4c8..cafb750 100755
--- a/windows 95/Internetexplorer62002damaged.vb
+++ b/windows 95/Internetexplorer62002damaged.vb
@@ -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 \ No newline at end of file
diff --git a/windows 95/Skindows 95.vb b/windows 95/Skindows 95.vb
index 5c1cdaf..3f84047 100755
--- a/windows 95/Skindows 95.vb
+++ b/windows 95/Skindows 95.vb
@@ -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
diff --git a/windows 95/Start Runner95.vb b/windows 95/Start Runner95.vb
index dd37802..1a7600b 100755
--- a/windows 95/Start Runner95.vb
+++ b/windows 95/Start Runner95.vb
@@ -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
diff --git a/windows 95/StartRunner98.vb b/windows 95/StartRunner98.vb
index e319412..241b3b4 100755
--- a/windows 95/StartRunner98.vb
+++ b/windows 95/StartRunner98.vb
@@ -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
diff --git a/windows 95/Survive The Day.vb b/windows 95/Survive The Day.vb
index e9fe2ee..aca9ae6 100755
--- a/windows 95/Survive The Day.vb
+++ b/windows 95/Survive The Day.vb
@@ -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
diff --git a/windows 95/Windows Xp messagebox.vb b/windows 95/Windows Xp messagebox.vb
index 941346d..c3cc893 100755
--- a/windows 95/Windows Xp messagebox.vb
+++ b/windows 95/Windows Xp messagebox.vb
@@ -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
diff --git a/windows 95/commandprompt2000.vb b/windows 95/commandprompt2000.vb
index 1487488..6220b04 100755
--- a/windows 95/commandprompt2000.vb
+++ b/windows 95/commandprompt2000.vb
@@ -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
diff --git a/windows 95/commandpromptxp.vb b/windows 95/commandpromptxp.vb
index ce770cf..c8bd50f 100755
--- a/windows 95/commandpromptxp.vb
+++ b/windows 95/commandpromptxp.vb
@@ -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
diff --git a/windows 95/downloader2000.vb b/windows 95/downloader2000.vb
index c5b8445..077234e 100755
--- a/windows 95/downloader2000.vb
+++ b/windows 95/downloader2000.vb
@@ -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
diff --git a/windows 95/downloader95.vb b/windows 95/downloader95.vb
index 4953a46..48fbfd4 100755
--- a/windows 95/downloader95.vb
+++ b/windows 95/downloader95.vb
@@ -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
diff --git a/windows 95/errorblaster2000.vb b/windows 95/errorblaster2000.vb
index d6a7c0d..7ed1d6a 100755
--- a/windows 95/errorblaster2000.vb
+++ b/windows 95/errorblaster2000.vb
@@ -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
diff --git a/windows 95/errorblaster95.vb b/windows 95/errorblaster95.vb
index a96dac0..c1f42f3 100755
--- a/windows 95/errorblaster95.vb
+++ b/windows 95/errorblaster95.vb
@@ -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
diff --git a/windows 95/errorblaster98.vb b/windows 95/errorblaster98.vb
index 5449572..1da021c 100755
--- a/windows 95/errorblaster98.vb
+++ b/windows 95/errorblaster98.vb
@@ -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
diff --git a/windows 95/formDisplayproperties.vb b/windows 95/formDisplayproperties.vb
index 5deca22..b69ed51 100755
--- a/windows 95/formDisplayproperties.vb
+++ b/windows 95/formDisplayproperties.vb
@@ -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
diff --git a/windows 95/formcalculator.vb b/windows 95/formcalculator.vb
index e6741ad..5e66687 100755
--- a/windows 95/formcalculator.vb
+++ b/windows 95/formcalculator.vb
@@ -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
diff --git a/windows 95/formwindowshelp.vb b/windows 95/formwindowshelp.vb
index ca91130..a2fbc53 100755
--- a/windows 95/formwindowshelp.vb
+++ b/windows 95/formwindowshelp.vb
@@ -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
diff --git a/windows 95/guessthenumber2win2000.vb b/windows 95/guessthenumber2win2000.vb
index 16a2253..1c5ff50 100755
--- a/windows 95/guessthenumber2win2000.vb
+++ b/windows 95/guessthenumber2win2000.vb
@@ -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
diff --git a/windows 95/hwcv.vb b/windows 95/hwcv.vb
index 681bf04..7939100 100755
--- a/windows 95/hwcv.vb
+++ b/windows 95/hwcv.vb
@@ -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
diff --git a/windows 95/installer2000.vb b/windows 95/installer2000.vb
index 7b11b02..158ec2e 100755
--- a/windows 95/installer2000.vb
+++ b/windows 95/installer2000.vb
@@ -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
diff --git a/windows 95/installerxp.vb b/windows 95/installerxp.vb
index 66dbfa8..a3cf9ec 100755
--- a/windows 95/installerxp.vb
+++ b/windows 95/installerxp.vb
@@ -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
diff --git a/windows 95/internet explorer 4.vb b/windows 95/internet explorer 4.vb
index e6400d7..423a646 100755
--- a/windows 95/internet explorer 4.vb
+++ b/windows 95/internet explorer 4.vb
@@ -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
diff --git a/windows 95/internet explorer 5.vb b/windows 95/internet explorer 5.vb
index adcdcf8..0ba4f1e 100755
--- a/windows 95/internet explorer 5.vb
+++ b/windows 95/internet explorer 5.vb
@@ -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
diff --git a/windows 95/notepad.vb b/windows 95/notepad.vb
index 6428f7f..aae3f5b 100755
--- a/windows 95/notepad.vb
+++ b/windows 95/notepad.vb
@@ -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
diff --git a/windows 95/notepad2000.vb b/windows 95/notepad2000.vb
index e1f5bc4..95b4ca8 100755
--- a/windows 95/notepad2000.vb
+++ b/windows 95/notepad2000.vb
@@ -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
diff --git a/windows 95/notepadxp.vb b/windows 95/notepadxp.vb
index 8ecb241..114cdfe 100755
--- a/windows 95/notepadxp.vb
+++ b/windows 95/notepadxp.vb
@@ -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
diff --git a/windows 95/paint.vb b/windows 95/paint.vb
index ac05d7b..976b178 100755
--- a/windows 95/paint.vb
+++ b/windows 95/paint.vb
@@ -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
diff --git a/windows 95/phone dialer.vb b/windows 95/phone dialer.vb
index d873e79..25f75fb 100755
--- a/windows 95/phone dialer.vb
+++ b/windows 95/phone dialer.vb
@@ -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
diff --git a/windows 95/run.vb b/windows 95/run.vb
index 44d7200..d98327f 100755
--- a/windows 95/run.vb
+++ b/windows 95/run.vb
@@ -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
diff --git a/windows 95/startrunner2000.vb b/windows 95/startrunner2000.vb
index 0e82623..7b4c3d3 100755
--- a/windows 95/startrunner2000.vb
+++ b/windows 95/startrunner2000.vb
@@ -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
diff --git a/windows 95/template2000.vb b/windows 95/template2000.vb
index 3f7912f..57ab25d 100755
--- a/windows 95/template2000.vb
+++ b/windows 95/template2000.vb
@@ -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
diff --git a/windows 95/templatexp.vb b/windows 95/templatexp.vb
index cad32d9..5ef5dc2 100755
--- a/windows 95/templatexp.vb
+++ b/windows 95/templatexp.vb
@@ -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
diff --git a/windows 95/templete95and98.vb b/windows 95/templete95and98.vb
index 5dec644..6f6ea87 100755
--- a/windows 95/templete95and98.vb
+++ b/windows 95/templete95and98.vb
@@ -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
diff --git a/windows 95/templetevista.vb b/windows 95/templetevista.vb
index 00e8ac9..219b29b 100755
--- a/windows 95/templetevista.vb
+++ b/windows 95/templetevista.vb
@@ -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
diff --git a/windows 95/time distorter 0.2.vb b/windows 95/time distorter 0.2.vb
index eef5878..95eb3c3 100755
--- a/windows 95/time distorter 0.2.vb
+++ b/windows 95/time distorter 0.2.vb
@@ -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
diff --git a/windows 95/time distorter.vb b/windows 95/time distorter.vb
index 2baf566..abf181d 100755
--- a/windows 95/time distorter.vb
+++ b/windows 95/time distorter.vb
@@ -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
diff --git a/windows 95/timedistorter0.32000.vb b/windows 95/timedistorter0.32000.vb
index 0a7b379..9b19266 100755
--- a/windows 95/timedistorter0.32000.vb
+++ b/windows 95/timedistorter0.32000.vb
@@ -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
diff --git a/windows 95/timedistorter032002xp.vb b/windows 95/timedistorter032002xp.vb
index b0da4c1..d8a6c35 100755
--- a/windows 95/timedistorter032002xp.vb
+++ b/windows 95/timedistorter032002xp.vb
@@ -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
diff --git a/windows 95/volume control.vb b/windows 95/volume control.vb
index 44add41..7807c38 100755
--- a/windows 95/volume control.vb
+++ b/windows 95/volume control.vb
@@ -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
diff --git a/windows 95/windows explorer.vb b/windows 95/windows explorer.vb
index 7a54e1a..d3f7eff 100755
--- a/windows 95/windows explorer.vb
+++ b/windows 95/windows explorer.vb
@@ -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
diff --git a/windows 95/windows2000messagebox.vb b/windows 95/windows2000messagebox.vb
index 22f313e..15219c7 100755
--- a/windows 95/windows2000messagebox.vb
+++ b/windows 95/windows2000messagebox.vb
@@ -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
diff --git a/windows 95/windows95messagebox.vb b/windows 95/windows95messagebox.vb
index 47d55f3..dc03497 100755
--- a/windows 95/windows95messagebox.vb
+++ b/windows 95/windows95messagebox.vb
@@ -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
diff --git a/windows 95/windows98messagebox.vb b/windows 95/windows98messagebox.vb
index b17f5ab..16d5dc5 100755
--- a/windows 95/windows98messagebox.vb
+++ b/windows 95/windows98messagebox.vb
@@ -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