From 3c9ecd0c0bea92954876af9adfd8f6296403e572 Mon Sep 17 00:00:00 2001 From: TheUltimateHacker Date: Mon, 2 Mar 2015 18:01:07 -0500 Subject: Shutdown sounds added, along with new Windows 2000 startup and shutdown to match the actual Windows 2000 startup and shutdown sounds rather than reusing the sounds from Windows ME. --- windows 95/Windows98.vb | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'windows 95/Windows98.vb') diff --git a/windows 95/Windows98.vb b/windows 95/Windows98.vb index e86f07b..4b484d3 100755 --- a/windows 95/Windows98.vb +++ b/windows 95/Windows98.vb @@ -163,8 +163,16 @@ startmenu.Hide() End Sub - Private Sub ShutdownToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShutdownToolStripMenuItem1.Click - Title_Screen.Close() + Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShutdownToolStripMenuItem1.Click + startmenu.Hide() + desktopicons.Hide() + taskbar.Hide() + startbutton.Hide() + + Dim bStr(My.Resources.Windows_98_Shutdown.Length) As Byte + My.Resources.Windows_98_Shutdown.Read(bStr, 0, My.Resources.Windows_98_Shutdown.Length) + My.Computer.Audio.Play(bStr, AudioPlayMode.WaitToComplete) + Me.Close() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick -- cgit v1.2.3