From 6337ebe79a71f4434e50733b9426fbacc01bf5c6 Mon Sep 17 00:00:00 2001 From: Jamie Mansfield Date: Sat, 7 Mar 2015 19:48:26 +0000 Subject: Use the 'Not' operator --- windows 95/Internetexplorer62002damaged.vb | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'windows 95/Internetexplorer62002damaged.vb') 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 -- cgit v1.2.3