diff options
Diffstat (limited to 'windows 95/Internetexplorer62002damaged.vb')
| -rwxr-xr-x | windows 95/Internetexplorer62002damaged.vb | 9 |
1 files changed, 4 insertions, 5 deletions
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 |
