1 files changed, 198 insertions, 0 deletions
diff --git a/Backup/windows 95/Windows98.vb b/Backup/windows 95/Windows98.vb
new file mode 100755
index 0000000..65cb311
--- /dev/null
+++ b/Backup/windows 95/Windows98.vb
@@ -0,0 +1,198 @@
+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