1 files changed, 0 insertions, 124 deletions
diff --git a/Backup/windows 95/Guess The Number app.vb b/Backup/windows 95/Guess The Number app.vb
deleted file mode 100755
index 15695cc..0000000
--- a/Backup/windows 95/Guess The Number app.vb
+++ /dev/null
@@ -1,124 +0,0 @@
-Public Class Guess_The_Number_app
-    Dim thenumber As Integer
-    Dim chosencolor As Color
-    Dim flashnumb As Integer
-    Dim controlpicked As Integer
-    Dim controlnumb As New Random
-    Dim chosencontrol As Control
-    Dim flashgen As New Random
-    Dim guessednumb As Integer
-    Dim randnumb As New Random
-    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 Guess_The_Number_app_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
-        thenumber = randnumb.Next(1, 101)
-        look.Start()
-    End Sub
-
-    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
-        guessednumb = txtGuessedNumber.Text
-        If guessednumb < thenumber Then
-            higherorlower.Text = "Higher"
-            higherorlower.ForeColor = Color.Blue
-        End If
-        If guessednumb > thenumber Then
-            higherorlower.Text = "Lower"
-            higherorlower.ForeColor = Color.Red
-        End If
-        If guessednumb = thenumber Then
-            higherorlower.Text = "Correct"
-            higherorlower.ForeColor = Color.Green
-            selector.Start()
-        End If
-    End Sub
-
-    Private Sub flasher_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles flasher.Tick
-        flashnumb = flashgen.Next(1, 10)
-        If flashnumb = 1 Then
-            chosencolor = Color.Red
-        End If
-        If flashnumb = 2 Then
-            chosencolor = Color.Green
-        End If
-        If flashnumb = 3 Then
-            chosencolor = Color.Pink
-        End If
-        If flashnumb = 4 Then
-            chosencolor = Color.Orange
-        End If
-        If flashnumb = 5 Then
-            chosencolor = Color.Aqua
-        End If
-        If flashnumb = 6 Then
-            chosencolor = Color.Gold
-        End If
-        If flashnumb = 7 Then
-            chosencolor = Color.YellowGreen
-        End If
-        If flashnumb = 8 Then
-            chosencolor = Color.Yellow
-        End If
-        If flashnumb = 9 Then
-            chosencolor = Color.Black
-        End If
-        chosencontrol.BackColor = chosencolor
-    End Sub
-
-    Private Sub selector_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles selector.Tick
-        controlpicked = controlnumb.Next(1, 10)
-        If controlpicked = 1 Then
-            chosencontrol = Label1
-        End If
-        If controlpicked = 2 Then
-            chosencontrol = program
-        End If
-        If controlpicked = 3 Then
-            chosencontrol = txtGuessedNumber
-        End If
-        If controlpicked = 4 Then
-            chosencontrol = Button1
-        End If
-        If controlpicked = 5 Then
-            chosencontrol = Button2
-        End If
-        If controlpicked = 6 Then
-            chosencontrol = programtopbar
-        End If
-        If controlpicked = 7 Then
-            chosencontrol = Label2
-        End If
-        If controlpicked = 8 Then
-            chosencontrol = Label3
-        End If
-        If controlpicked = 9 Then
-            chosencontrol = higherorlower
-        End If
-        flasher.Start()
-    End Sub
-
-    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
-        Me.Close()
-        Dim openguess As New Guess_The_Number_app
-        openguess.Show()
-    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
-End Class
-\ No newline at end of file