From dfac3489c438f5c54bff088a354815e79675b531 Mon Sep 17 00:00:00 2001
From: Jamie Mansfield <malgm@lapis.blue>
Date: Sun, 1 Mar 2015 10:50:24 +0000
Subject: Initial commit

---
 Backup/windows 95/time distorter.vb | 849 ++++++++++++++++++++++++++++++++++++
 1 file changed, 849 insertions(+)
 create mode 100755 Backup/windows 95/time distorter.vb

(limited to 'Backup/windows 95/time distorter.vb')

diff --git a/Backup/windows 95/time distorter.vb b/Backup/windows 95/time distorter.vb
new file mode 100755
index 0000000..a975816
--- /dev/null
+++ b/Backup/windows 95/time distorter.vb	
@@ -0,0 +1,849 @@
+Public Class time_distorter
+    Dim label6x As Integer
+    Dim label6y As Integer
+    Dim showcount As String
+    Dim count As Integer
+
+    Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click
+        Me.Close()
+    End Sub
+
+
+    Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
+        If e.Button = MouseButtons.Left Then
+            programtopbar.Capture = False
+
+            Const WM_NCLBUTTONDOWN As Integer = &HA1S
+            Const HTCAPTION As Integer = 2
+            Dim msg As Message = _
+                Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
+                    New IntPtr(HTCAPTION), IntPtr.Zero)
+            Me.DefWndProc(msg)
+        End If
+    End Sub
+
+    Private Sub Timedistort_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        look.Start()
+        Label7.Hide()
+        count = 180
+        Me.Location = New Point(300, 300)
+    End Sub
+
+    Private Sub look_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles look.Tick
+        Me.programtopbar.BackColor = Windows95.exampleprogramtopbar.BackColor
+        Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage
+        Me.programname.BackColor = Windows95.exampleprogramtext.BackColor
+    End Sub
+
+    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
+        If count = -200 Then
+            Windows98.Show()
+            Me.Close()
+        End If
+        If count = -180 Then
+            Label1.Hide()
+            Label2.Hide()
+            Label3.Hide()
+            Label4.Hide()
+            Label5.Hide()
+            Label7.Hide()
+            Label7.Hide()
+        End If
+        If count = -178 Then
+            Label4.ForeColor = Color.Black
+            Label5.ForeColor = Color.Black
+        End If
+        If count = -178 Then
+            Label4.ForeColor = Color.Black
+            Label5.ForeColor = Color.Black
+        End If
+        If count = -177 Then
+            Label4.ForeColor = Color.White
+            Label5.ForeColor = Color.White
+        End If
+        If count = -176 Then
+            Label4.ForeColor = Color.Black
+            Label5.ForeColor = Color.Black
+        End If
+        If count = -175 Then
+            Label4.ForeColor = Color.Black
+            Label5.ForeColor = Color.Black
+        End If
+        If count = -174 Then
+            Label4.ForeColor = Color.Black
+            Label1.Hide()
+            Label5.ForeColor = Color.Black
+        End If
+        If count = -173 Then
+            Label4.ForeColor = Color.White
+            Label5.ForeColor = Color.White
+        End If
+        If count = -172 Then
+            Label4.ForeColor = Color.Black
+            Label5.ForeColor = Color.Black
+        End If
+        If count = -171 Then
+            Label4.ForeColor = Color.Black
+            Label5.ForeColor = Color.Black
+        End If
+        If count = -170 Then
+            Label4.ForeColor = Color.Black
+            Label5.ForeColor = Color.Black
+        End If
+        If count = -169 Then
+            Label4.ForeColor = Color.White
+            Label5.ForeColor = Color.White
+            Label7.Hide()
+        End If
+        If count = -168 Then
+            Label4.ForeColor = Color.Black
+            Label5.ForeColor = Color.Black
+        End If
+        If count = -167 Then
+            Label4.ForeColor = Color.Black
+            Label5.ForeColor = Color.Black
+        End If
+        If count = -166 Then
+            Label4.ForeColor = Color.Black
+            Label5.ForeColor = Color.Black
+        End If
+        If count = -165 Then
+            Label4.ForeColor = Color.White
+            Label5.ForeColor = Color.White
+        End If
+        If count = -164 Then
+            Label6.Hide()
+            Label4.ForeColor = Color.Black
+            Label5.ForeColor = Color.Black
+        End If
+        If count = -163 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.White
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -162 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.Gray
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -161 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.White
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -160 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.Gray
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -159 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.White
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -158 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.Gray
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -157 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.White
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -156 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.Gray
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -155 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.White
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -154 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.Gray
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -153 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.White
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -152 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.Gray
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -151 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.White
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -150 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.Gray
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -149 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.White
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -148 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.Gray
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -147 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.White
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -146 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.Gray
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -145 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.White
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -144 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.Gray
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -143 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.White
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -142 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.Gray
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -141 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.White
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -140 Then
+            label6x = label6x + 10
+            Label6.BackColor = Color.Gray
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -139 Then
+            label6x = Label6.Location.X
+            label6y = Label6.Location.Y
+            Label6.Location = New Point(label6x, label6y)
+        End If
+        If count = -138 Then
+            Label2.ForeColor = Color.Black
+            Label3.ForeColor = Color.Black
+        End If
+        If count = -137 Then
+            Label2.ForeColor = Color.White
+            Label3.ForeColor = Color.White
+        End If
+        If count = -136 Then
+            Label2.ForeColor = Color.Black
+            Label3.ForeColor = Color.Black
+        End If
+        If count = -135 Then
+            Label2.ForeColor = Color.White
+            Label3.ForeColor = Color.White
+        End If
+        If count = -134 Then
+            Label2.ForeColor = Color.Black
+            Label3.ForeColor = Color.Black
+        End If
+        If count = -133 Then
+            Label2.ForeColor = Color.White
+            Label3.ForeColor = Color.White
+        End If
+        If count = -132 Then
+            Label2.ForeColor = Color.Black
+            Label3.ForeColor = Color.Black
+        End If
+        If count = -131 Then
+            Label2.ForeColor = Color.White
+            Label3.ForeColor = Color.White
+        End If
+        If count = -130 Then
+            Label2.ForeColor = Color.Black
+            Label3.ForeColor = Color.Black
+        End If
+        If count = -116 Then
+            programtopbar.BackColor = Color.White
+            programtopbar.Hide()
+        End If
+        If count = -115 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -104 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -113 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -112 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -111 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -110 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -109 Then
+            programtopbar.BackColor = Color.Black
+            programname.Hide()
+        End If
+        If count = -108 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -107 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -106 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -105 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -104 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -103 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -102 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -101 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -100 Then
+            programtopbar.BackColor = Color.White
+            minimizebutton.Hide()
+        End If
+        If count = -99 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -98 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -97 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -96 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -95 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -94 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -93 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -92 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -91 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -90 Then
+            programtopbar.BackColor = Color.White
+            maximizebutton.Hide()
+        End If
+        If count = -89 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -88 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -87 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -86 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -85 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -84 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -83 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -82 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -81 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -80 Then
+            programtopbar.BackColor = Color.White
+            closebutton.Hide()
+        End If
+        If count = -79 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -78 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -77 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -76 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -75 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -74 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -73 Then
+            programtopbar.BackColor = Color.Black
+        End If
+        If count = -72 Then
+            programtopbar.BackColor = Color.White
+        End If
+        If count = -71 Then
+            Label7.Text = "Traveling..."
+            Button1.Hide()
+        End If
+        If count = -70 Then
+            Label7.ForeColor = Color.White
+        End If
+        If count = -69 Then
+            Label6.ForeColor = Color.White
+        End If
+        If count = -68 Then
+            Label5.ForeColor = Color.White
+        End If
+        If count = -67 Then
+            Label4.ForeColor = Color.White
+        End If
+        If count = -66 Then
+            Label3.ForeColor = Color.White
+        End If
+        If count = -65 Then
+            Label2.ForeColor = Color.White
+        End If
+        If count = -64 Then
+            Label1.ForeColor = Color.White
+        End If
+        If count = -63 Then
+            program.BackColor = Color.Black
+        End If
+        If count = -62 Then
+            Windows95.desktopbackground.BackColor = Color.White
+            Windows95.Hide()
+        End If
+        If count = -61 Then
+            Windows95.desktopbackground.BackColor = Color.Black
+            Me.WindowState = FormWindowState.Maximized
+        End If
+        If count = -60 Then
+            Windows95.desktopbackground.BackColor = Color.White
+            Me.Location = New Point(330, 240)
+        End If
+        If count = -59 Then
+            Windows95.desktopbackground.BackColor = Color.Black
+            Me.Location = New Point(295, 285)
+        End If
+        If count = -58 Then
+            Windows95.desktopbackground.BackColor = Color.White
+            Me.Location = New Point(295, 300)
+        End If
+        If count = -57 Then
+            Windows95.desktopbackground.BackColor = Color.Black
+            Me.Location = New Point(305, 300)
+        End If
+        If count = -56 Then
+            Windows95.desktopbackground.BackColor = Color.White
+            Me.Location = New Point(300, 300)
+        End If
+        If count = -55 Then
+            Windows95.desktopbackground.BackColor = Color.Black
+            Me.Location = New Point(295, 300)
+        End If
+        If count = -54 Then
+            Windows95.desktopbackground.BackColor = Color.White
+            Me.Location = New Point(300, 300)
+        End If
+        If count = -52 Then
+            Windows95.desktopbackground.BackColor = Color.Black
+            Me.Location = New Point(300, 295)
+        End If
+        If count = -51 Then
+            Windows95.desktopbackground.BackColor = Color.White
+            Me.Location = New Point(300, 300)
+        End If
+        If count = -50 Then
+            Windows95.desktopbackground.BackColor = Color.Black
+            Me.Location = New Point(300, 305)
+        End If
+        If count = -49 Then
+            Windows95.desktopbackground.BackColor = Color.White
+        End If
+        If count = -48 Then
+            Windows95.desktopbackground.BackColor = Color.Black
+        End If
+        If count = -47 Then
+            Windows95.desktopbackground.BackColor = Color.White
+        End If
+        If count = -46 Then
+            Windows95.desktopbackground.BackColor = Color.Black
+        End If
+        If count = -45 Then
+            Windows95.desktopbackground.BackColor = Color.White
+        End If
+        If count = -44 Then
+            Windows95.desktopbackground.BackColor = Color.Black
+        End If
+        If count = -43 Then
+            Windows95.desktopbackground.BackColor = Color.White
+        End If
+        If count = -42 Then
+            Windows95.desktopbackground.BackColor = Color.Black
+        End If
+        If count = -41 Then
+            Windows95.desktopbackground.BackColor = Color.White
+        End If
+        If count = -40 Then
+            Windows95.desktopbackground.BackColor = Color.Black
+            Windows95.desktopbackground.Image = Nothing
+        End If
+        If count = -39 Then
+            Windows95.desktopicons.Hide()
+        End If
+        If count = -38 Then
+            Windows95.desktopicons.Show()
+        End If
+        If count = -37 Then
+            Windows95.desktopicons.Hide()
+        End If
+        If count = -36 Then
+            Windows95.desktopicons.Show()
+        End If
+        If count = -35 Then
+            Windows95.desktopicons.Hide()
+        End If
+        If count = -34 Then
+            Windows95.desktopicons.Show()
+        End If
+        If count = -33 Then
+            Windows95.desktopicons.Hide()
+        End If
+        If count = -32 Then
+            Windows95.desktopicons.Show()
+        End If
+        If count = -31 Then
+            Windows95.desktopicons.Hide()
+        End If
+        If count = -30 Then
+            Windows95.taskbar.Hide()
+        End If
+        If count = -29 Then
+            Windows95.taskbar.BackColor = Color.White
+        End If
+        If count = -28 Then
+            Windows95.taskbar.BackColor = Color.Black
+        End If
+        If count = -27 Then
+            Windows95.taskbar.BackColor = Color.White
+        End If
+        If count = -26 Then
+            Windows95.taskbar.BackColor = Color.Black
+        End If
+        If count = -25 Then
+            Windows95.taskbar.BackColor = Color.White
+        End If
+        If count = -24 Then
+            Windows95.taskbar.BackColor = Color.Black
+        End If
+        If count = -23 Then
+            Windows95.taskbar.BackColor = Color.White
+        End If
+        If count = -22 Then
+            Windows95.taskbar.BackColor = Color.Black
+        End If
+        If count = -21 Then
+            Windows95.taskbar.BackColor = Color.White
+        End If
+        If count = -20 Then
+            Windows95.taskbar.BackColor = Color.Black
+        End If
+        If count = -10 Then
+            Command_prompt.Hide()
+        End If
+        If count = -9 Then
+            Command_prompt.TextBox1.ForeColor = Color.Black
+            Command_prompt.TextBox1.BackColor = Color.White
+        End If
+        If count = -8 Then
+            Command_prompt.TextBox1.ForeColor = Color.White
+            Command_prompt.TextBox1.BackColor = Color.Black
+        End If
+        If count = -7 Then
+            Command_prompt.TextBox1.ForeColor = Color.Black
+            Command_prompt.TextBox1.BackColor = Color.White
+        End If
+        If count = -6 Then
+            Command_prompt.TextBox1.ForeColor = Color.White
+            Command_prompt.TextBox1.BackColor = Color.Black
+        End If
+        If count = -5 Then
+            Command_prompt.TextBox1.ForeColor = Color.Black
+            Command_prompt.TextBox1.BackColor = Color.White
+        End If
+        If count = -4 Then
+            Command_prompt.TextBox1.ForeColor = Color.White
+            Command_prompt.TextBox1.BackColor = Color.Black
+        End If
+        If count = -3 Then
+            Command_prompt.TextBox1.ForeColor = Color.Black
+            Command_prompt.TextBox1.BackColor = Color.White
+        End If
+        If count = -2 Then
+            Command_prompt.TextBox1.ForeColor = Color.White
+            Command_prompt.TextBox1.BackColor = Color.Black
+        End If
+        If count = -1 Then
+            Command_prompt.TextBox1.ForeColor = Color.Black
+            Command_prompt.TextBox1.BackColor = Color.White
+        End If
+        If count = 0 Then
+            look.Stop()
+            showcount = "no"
+            Label7.Text = "Initiating Time Travel Sequence..."
+            Timer1.Interval = 100
+        End If
+        If count = 3 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("The Hidden Hacker: Good luck Windows 95 user... Ill see you in the future!" & Environment.NewLine)
+        End If
+        If count = 6 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams Has been Disconnected..." & Environment.NewLine)
+        End If
+        If count = 7 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("Disconnect 12padams" & Environment.NewLine)
+        End If
+        If count = 10 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("The Hidden Hacker: Oh and heres one more command for you to learn" & Environment.NewLine)
+        End If
+        If count = 12 Then
+            showcount = "yes"
+            Label7.Show()
+
+        End If
+        If count = 13 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("Show Timer" & Environment.NewLine)
+        End If
+        If count = 15 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("The Hidden Hacker: Oh Is It? Well watch this!!" & Environment.NewLine)
+        End If
+        If count = 20 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: THATS IMPOSSIBLE" & Environment.NewLine)
+        End If
+        If count = 26 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("The Hidden Hacker: I converted the stop function to the hide function when i first logged on..." & Environment.NewLine)
+        End If
+        If count = 30 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("The Hidden Hacker: Oh but i did..." & Environment.NewLine)
+        End If
+        If count = 34 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: Bet You didn't see that one coming..." & Environment.NewLine)
+        End If
+        If count = 38 Then
+            Me.Label7.Hide()
+        End If
+        If count = 39 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("Stop Timer" & Environment.NewLine)
+            showcount = "no"
+        End If
+        If count = 41 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: OK NOW YOU HAVE DONE IT!!!!" & Environment.NewLine)
+        End If
+        If count = 44 Then
+            Windows95.startbutton.Show()
+        End If
+        If count = 45 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("Show Start Button" & Environment.NewLine)
+        End If
+        If count = 47 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("The Hidden Hacker: Hey heres your start button back" & Environment.NewLine)
+        End If
+        If count = 51 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("The Hidden Hacker: Hey person who owns this computer don't worry your about to get away from all this..." & Environment.NewLine)
+        End If
+        If count = 56 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: Get out now or ill make you get out!!!!" & Environment.NewLine)
+        End If
+        If count = 62 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("The Hidden Hacker: Well Now that i have uncovered your secret... I'm not gunna just go away" & Environment.NewLine)
+        End If
+        If count = 67 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: The Hidden Hacker... I Though My first leason was enough to get you away" & Environment.NewLine)
+        End If
+        If count = 71 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("The Hidden Hacker: Good job for getting this software" & Environment.NewLine)
+        End If
+        If count = 75 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("The Hidden Hacker: but to the person who owns this computer..." & Environment.NewLine)
+        End If
+        If count = 78 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("The Hidden Hacker: Don't worry um... sorry i don't know your name" & Environment.NewLine)
+        End If
+        If count = 81 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: HOW DARE YOU INVADE" & Environment.NewLine)
+        End If
+        If count = 84 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("The Hidden Hacker: Great you found The software" & Environment.NewLine)
+        End If
+        If count = 86 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("The Hidden Hacker has connected" & Environment.NewLine)
+        End If
+        If count = 90 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("146.342.534.632 connecting" & Environment.NewLine)
+        End If
+        If count = 92 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: What? your desktop background was suposed to change... why did it only flicker?" & Environment.NewLine)
+        End If
+        If count = 95 Then
+            Windows95.desktopicons.BackgroundImage = My.Resources.windows95error
+        End If
+        If count = 97 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: Now watch this" & Environment.NewLine)
+        End If
+        If count = 103 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: See how easy that was" & Environment.NewLine)
+        End If
+        If count = 106 Then
+            Windows95.startbutton.Hide()
+        End If
+        If count = 108 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("Hide Start Button" & Environment.NewLine)
+        End If
+        If count = 112 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: Ok Let me show you how easy this is" & Environment.NewLine)
+        End If
+        If count = 117 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: You see I have LOTS of power over your computer" & Environment.NewLine)
+        End If
+        If count = 122 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: Well I am sorry but i just can't let you do that." & Environment.NewLine)
+        End If
+        If count = 127 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: Now In 2 minutes you think your going to be able to travel to 1999" & Environment.NewLine)
+        End If
+        If count = 132 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: To prove that I can see it look at your timer... It says 130 seconds left... " & Environment.NewLine)
+        End If
+        If count = 137 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: I can see your screen right now..." & Environment.NewLine)
+        End If
+        If count = 142 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: Oh and i know you pressed it" & Environment.NewLine)
+        End If
+        If count = 147 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: And download my secret time travel software..." & Environment.NewLine)
+        End If
+        If count = 151 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: Then use it to hack my website" & Environment.NewLine)
+        End If
+        If count = 154 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: And you download an attachment" & Environment.NewLine)
+        End If
+        If count = 157 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: Then you read them all..." & Environment.NewLine)
+        End If
+        If count = 161 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: You first hack my emails..." & Environment.NewLine)
+        End If
+        If count = 165 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams: WHAT DO YOU THINK YOUR DOING!!!" & Environment.NewLine)
+        End If
+        If count = 168 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("12padams Connected" & Environment.NewLine)
+        End If
+        If count = 171 Then
+            Command_prompt.TextBox1.Text = Command_prompt.TextBox1.Text + ("Ip 185.352.857.342 Connecting..." & Environment.NewLine)
+        End If
+        If count = 172 Then
+            Command_prompt.Show()
+        End If
+        If Label1.Text = "                    ---------------  TIME DISTORTER ---------------" Then
+            If showcount = "yes" Then
+                Label7.Show()
+                Label7.Text = "Preparing to travel...   ETA: " & count & " Seconds"
+                count = count - 1
+            End If
+            If showcount = "no" Then
+                count = count - 1
+            End If
+        End If
+        If Label1.Text = "                  --------------#  TIME DISTORTER #--------------" Then
+            showcount = "yes"
+            Label1.Text = "                    ---------------  TIME DISTORTER ---------------"
+
+        End If
+        If Label1.Text = "                -------------##  TIME DISTORTER ##-------------" Then
+            Label1.Text = "                  --------------#  TIME DISTORTER #--------------"
+        End If
+        If Label1.Text = "              ------------###  TIME DISTORTER ###------------" Then
+            Label1.Text = "                -------------##  TIME DISTORTER ##-------------"
+        End If
+        If Label1.Text = "            -----------####  TIME DISTORTER ####-----------" Then
+            Label1.Text = "              ------------###  TIME DISTORTER ###------------"
+        End If
+        If Label1.Text = "          ----------#####  TIME DISTORTER #####----------" Then
+            Label1.Text = "            -----------####  TIME DISTORTER ####-----------"
+        End If
+        If Label1.Text = "         ---------######  TIME DISTORTER ######---------" Then
+            Label1.Text = "          ----------#####  TIME DISTORTER #####----------"
+        End If
+        If Label1.Text = "        --------#######  TIME DISTORTER #######--------" Then
+            Label1.Text = "         ---------######  TIME DISTORTER ######---------"
+        End If
+        If Label1.Text = "       -------########  TIME DISTORTER ########-------" Then
+            Label1.Text = "        --------#######  TIME DISTORTER #######--------"
+        End If
+        If Label1.Text = "      ------#########  TIME DISTORTER #########------" Then
+            Label1.Text = "       -------########  TIME DISTORTER ########-------"
+        End If
+        If Label1.Text = "     -----##########  TIME DISTORTER ##########-----" Then
+            Label1.Text = "      ------#########  TIME DISTORTER #########------"
+        End If
+        If Label1.Text = "    ----###########  TIME DISTORTER ###########----" Then
+            Label1.Text = "     -----##########  TIME DISTORTER ##########-----"
+        End If
+        If Label1.Text = "   ---############  TIME DISTORTER ############---" Then
+            Label1.Text = "    ----###########  TIME DISTORTER ###########----"
+        End If
+        If Label1.Text = "  --#############  TIME DISTORTER #############--" Then
+            Label1.Text = "   ---############  TIME DISTORTER ############---"
+        End If
+        If Label1.Text = " -##############  TIME DISTORTER ##############-" Then
+            Label1.Text = "  --#############  TIME DISTORTER #############--"
+        End If
+        If Label1.Text = "###############  TIME DISTORTER ###############" Then
+            Label1.Text = " -##############  TIME DISTORTER ##############-"
+        End If
+        Command_prompt.TextBox1.SelectionStart = 999999
+        Command_prompt.TextBox1.ScrollToCaret()
+    End Sub
+
+    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
+        Timer1.Start()
+    End Sub
+End Class
\ No newline at end of file
-- 
cgit v1.2.3