From 70be68814244c074e26916979f0aae1833719d93 Mon Sep 17 00:00:00 2001 From: TheUltimateHacker Date: Mon, 2 Mar 2015 15:48:34 -0500 Subject: Bug fixing, mainly for the Internet Explorer icon on Windows ME's desktop, as well as adding a shutdown sound to both ME and 2000. --- windows 95/windows me.vb | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) (limited to 'windows 95/windows me.vb') diff --git a/windows 95/windows me.vb b/windows 95/windows me.vb index ceffb41..658c903 100755 --- a/windows 95/windows me.vb +++ b/windows 95/windows me.vb @@ -72,8 +72,8 @@ If Not IsNothing(objListViewItem) Then If objListViewItem.Text = "Internet Explorer" Then - Dim openerror As New windows2000messagebox - openerror.infomessage.Text = "You have reached the End of Histcom 1.9, Please save your game now by clicking on the time in the start menu so that you can continue your game from here when the next version of histacom comes out." + Dim IE As New Internet_Explorer_52001 + IE.Show() End If If objListViewItem.Text = "Guess The Number 2 Setup" Then @@ -255,7 +255,19 @@ End Sub Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click - Title_Screen.Close() + startmenu.Hide() + desktopicons.Hide() + taskbar.Hide() + startbutton.Hide() + + Dim bStr(My.Resources.Windows_ME_Shutdown.Length) As Byte + My.Resources.Windows_ME_Shutdown.Read(bStr, 0, My.Resources.Windows_ME_Shutdown.Length) + My.Computer.Audio.Play(bStr, AudioPlayMode.WaitToComplete) + Me.Close() + End Sub + + Private Sub Form_IsClosing(sender As Object, e As EventArgs) Handles MyBase.FormClosing + End Sub Private Sub WindowsExplorerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsExplorerToolStripMenuItem.Click -- cgit v1.2.3