Merge branch 'master' of https://github.com/Histacom/HistacomMac_OS_X_Tiger

1 files changed, 0 insertions, 849 deletions

diff --git a/Backup/windows 95/time distorter.vb b/Backup/windows 95/time distorter.vb
deleted file mode 100755
index a975816..0000000
--- a/Backup/windows 95/time distorter.vb
+++ /dev/null
@@ -1,849 +0,0 @@
-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