1 files changed, 0 insertions, 198 deletions
diff --git a/Backup/windows 95/Windows98.vb b/Backup/windows 95/Windows98.vb
deleted file mode 100755
index 65cb311..0000000
--- a/Backup/windows 95/Windows98.vb
+++ /dev/null
@@ -1,198 +0,0 @@
-Public Class Windows98
-    Dim count As Integer
-    Dim txtcount As Integer
-    Dim usersave As String
-
-    Private Sub startbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
-        startmenu.Show()
-    End Sub
-
-    Private Sub windows98_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
-        startmenu.Hide()
-    End Sub
-
-    Private Sub windows98Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
-        If My.Resources.windows98bootsound.CanRead Then
-            Dim bStr(My.Resources.windows98bootsound.Length) As Byte
-            My.Resources.windows98bootsound.Read(bStr, 0, My.Resources.windows98bootsound.Length)
-            My.Computer.Audio.Play(bStr, AudioPlayMode.Background)
-        End If
-        startmenu.Hide()
-        program.Hide()
-        Timer1.Start()
-        exampleprogramtopbar.Show()
-        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
-        Me.WindowState = FormWindowState.Maximized
-
-    End Sub
-
-    Private Sub NotePadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NotePadToolStripMenuItem.Click
-        Dim opennotepad As New formnotepad
-        opennotepad.Show()
-        startmenu.Hide()
-    End Sub
-
-    Private Sub Closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
-        program.Hide()
-        exampleprogramtext.Text = ""
-        program.Size = New Size(367, 253)
-    End Sub
-
-    Private Sub fullscreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
-        program.Dock = DockStyle.Fill
-    End Sub
-
-    Private Sub minimize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
-
-        program.Dock = DockStyle.None
-    End Sub
-
-
-    Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem.Click
-        Dim windowshelpopen As New formwindowshelp
-        windowshelpopen.Show()
-        startmenu.Hide()
-    End Sub
-
-    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
-        program.Hide()
-    End Sub
-
-    Private Sub CalculatorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculatorToolStripMenuItem.Click
-        Dim opencalc As New formcalculator
-        opencalc.Show()
-        startmenu.Hide()
-    End Sub
-
-    Private Sub Desktop_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
-        If e.Button = Windows.Forms.MouseButtons.Right Then
-            rightclickbackproperties.Show()
-            rightclickbackproperties.BringToFront()
-            rightclickbackproperties.Location = MousePosition
-        End If
-        If e.Button = Windows.Forms.MouseButtons.Left Then
-        End If
-        If e.Button = Windows.Forms.MouseButtons.Middle Then
-        End If
-
-    End Sub
-
-    Private Sub minimizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
-        program.Dock = DockStyle.None
-    End Sub
-
-    Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
-        program.Dock = DockStyle.Fill
-    End Sub
-
-    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles startbutton.Click
-        startmenu.Show()
-    End Sub
-
-    Private Sub PropertiesToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PropertiesToolStripMenuItem1.Click
-        Dim oform As New formDisplayproperties
-        oform.Show()
-        startmenu.Hide()
-    End Sub
-
-    Private Sub ShutdownToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShutdownToolStripMenuItem1.Click
-        Me.Close()
-    End Sub
-
-    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
-        desktopicons.BackColor = Me.BackColor
-        taskbartime.Text = TimeOfDay
-    End Sub
-
-    Private Sub PhoneDialerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
-        Dim openphonedialer As New phone_dialer
-        openphonedialer.Show()
-        startmenu.Hide()
-    End Sub
-
-    Private Sub AddressBookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddressBookToolStripMenuItem.Click
-        Dim openaddressbook As New Address_Book
-        openaddressbook.Show()
-        startmenu.Hide()
-    End Sub
-
-    Private Sub VolumeControlToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VolumeControlToolStripMenuItem.Click
-        Dim openvolumecontrol As New volume_control
-        openvolumecontrol.Show()
-        startmenu.Hide()
-    End Sub
-
-    Private Sub RunToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RunToolStripMenuItem.Click
-        Dim openrun As New run
-        openrun.Show()
-        startmenu.Hide()
-    End Sub
-
-    Private Sub PaintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaintToolStripMenuItem.Click
-        Dim openpaint As New paint
-        openpaint.Show()
-        startmenu.Hide()
-    End Sub
-
-    Private Sub WindowsExplorerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsExplorerToolStripMenuItem.Click
-        Dim openinternetexplorer As New internet_explorer_5
-        openinternetexplorer.Show()
-        startmenu.Hide()
-    End Sub
-
-    Private Sub FolderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FolderToolStripMenuItem.Click
-        desktopicons.Items.Add("New Folder")
-    End Sub
-
-    Private Sub desktopicons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles desktopicons.MouseDown
-        startmenu.Hide()
-
-    End Sub
-
-    Private Sub WindowsExplorerToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsExplorerToolStripMenuItem1.Click
-        Dim openexplorer As New windows_explorer
-        openexplorer.Show()
-        startmenu.Hide()
-    End Sub
-
-    Private Sub GuessTheNumberToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuessTheNumberToolStripMenuItem.Click
-        Dim openguessnumber As New Guess_The_Number_app()
-        openguessnumber.Show()
-        startmenu.Hide()
-    End Sub
-
-    Private Sub StartRunnerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartRunnerToolStripMenuItem.Click
-        Dim openstartrunner As New Start_Runner
-        openstartrunner.Show()
-        startmenu.Hide()
-    End Sub
-
-    Private Sub ErrorBlasterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ErrorBlasterToolStripMenuItem.Click
-        Dim openerror As New errorblaster
-        openerror.Show()
-        startmenu.Hide()
-    End Sub
-
-    Private Sub desktopicons_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
-
-    End Sub
-
-    Private Sub SkindowsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SkindowsToolStripMenuItem.Click
-        Dim openskin As New Skindows_95
-        openskin.Show()
-        startmenu.Hide()
-    End Sub
-
-    Private Sub WebChatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WebChatToolStripMenuItem.Click
-        Dim openchat As New Webchat
-        openchat.Show()
-        startmenu.Hide()
-    End Sub
-
-    Private Sub TimeDistorterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimeDistorterToolStripMenuItem.Click
-        Dim opentimedistorter As New time_distorter
-        opentimedistorter.Show()
-        startmenu.Hide()
-    End Sub
-
-End Class