Changes by AAYapps

Since he is unable to do so, I've gone ahead and committed the changes

windows 95/Bios.Designer.vb

@@ -0,0 +1,319 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Bios
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.Sunimage = New System.Windows.Forms.PictureBox()
+        Me.Americanimage = New System.Windows.Forms.PictureBox()
+        Me.biostxt1 = New System.Windows.Forms.Label()
+        Me.biostxt2 = New System.Windows.Forms.Label()
+        Me.biostxt3 = New System.Windows.Forms.Label()
+        Me.biostxt4 = New System.Windows.Forms.Label()
+        Me.biostxt5 = New System.Windows.Forms.Label()
+        Me.biostxt6 = New System.Windows.Forms.Label()
+        Me.biostxt7 = New System.Windows.Forms.Label()
+        Me.biostxt9 = New System.Windows.Forms.Label()
+        Me.biostxt8 = New System.Windows.Forms.Label()
+        Me.biostxt10 = New System.Windows.Forms.Label()
+        Me.biostxt11 = New System.Windows.Forms.Label()
+        Me.biostxt12 = New System.Windows.Forms.Label()
+        Me.biostxt13 = New System.Windows.Forms.Label()
+        Me.biostxt15 = New System.Windows.Forms.Label()
+        Me.biostxt14 = New System.Windows.Forms.Label()
+        Me.biostxt16 = New System.Windows.Forms.Label()
+        Me.Biosload = New System.Windows.Forms.Timer(Me.components)
+        CType(Me.Sunimage,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.Americanimage,System.ComponentModel.ISupportInitialize).BeginInit
+        Me.SuspendLayout
+        '
+        'Sunimage
+        '
+        Me.Sunimage.Image = Global.Histacom.My.Resources.Resources.biosmakerimage
+        Me.Sunimage.Location = New System.Drawing.Point(407, 2)
+        Me.Sunimage.Name = "Sunimage"
+        Me.Sunimage.Size = New System.Drawing.Size(348, 126)
+        Me.Sunimage.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.Sunimage.TabIndex = 1
+        Me.Sunimage.TabStop = false
+        '
+        'Americanimage
+        '
+        Me.Americanimage.Image = Global.Histacom.My.Resources.Resources.biosimage
+        Me.Americanimage.Location = New System.Drawing.Point(3, 2)
+        Me.Americanimage.Name = "Americanimage"
+        Me.Americanimage.Size = New System.Drawing.Size(356, 126)
+        Me.Americanimage.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.Americanimage.TabIndex = 0
+        Me.Americanimage.TabStop = false
+        '
+        'biostxt1
+        '
+        Me.biostxt1.AutoSize = true
+        Me.biostxt1.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.biostxt1.ForeColor = System.Drawing.Color.Silver
+        Me.biostxt1.Location = New System.Drawing.Point(0, 131)
+        Me.biostxt1.Name = "biostxt1"
+        Me.biostxt1.Size = New System.Drawing.Size(533, 29)
+        Me.biostxt1.TabIndex = 2
+        Me.biostxt1.Text = "AMIBIOS(C) 1995 American Megatrends, Inc."
+        Me.biostxt1.Visible = false
+        '
+        'biostxt2
+        '
+        Me.biostxt2.AutoSize = true
+        Me.biostxt2.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.biostxt2.ForeColor = System.Drawing.Color.Silver
+        Me.biostxt2.Location = New System.Drawing.Point(0, 160)
+        Me.biostxt2.Name = "biostxt2"
+        Me.biostxt2.Size = New System.Drawing.Size(562, 29)
+        Me.biostxt2.TabIndex = 3
+        Me.biostxt2.Text = "BIOS Date:   02/25/95   16:04:09    Ver: 00.00.15"
+        Me.biostxt2.Visible = false
+        '
+        'biostxt3
+        '
+        Me.biostxt3.AutoSize = true
+        Me.biostxt3.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.biostxt3.ForeColor = System.Drawing.Color.Silver
+        Me.biostxt3.Location = New System.Drawing.Point(0, 189)
+        Me.biostxt3.Name = "biostxt3"
+        Me.biostxt3.Size = New System.Drawing.Size(381, 29)
+        Me.biostxt3.TabIndex = 4
+        Me.biostxt3.Text = "Sun BIOS Revision: 07.01.38.03"
+        Me.biostxt3.Visible = false
+        '
+        'biostxt4
+        '
+        Me.biostxt4.AutoSize = true
+        Me.biostxt4.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.biostxt4.ForeColor = System.Drawing.Color.Silver
+        Me.biostxt4.Location = New System.Drawing.Point(1, 218)
+        Me.biostxt4.Name = "biostxt4"
+        Me.biostxt4.Size = New System.Drawing.Size(731, 29)
+        Me.biostxt4.TabIndex = 5
+        Me.biostxt4.Text = "Sun Fire X4170 Server       CPU Power (TOP Limit) = 95 Watts"
+        Me.biostxt4.Visible = false
+        '
+        'biostxt5
+        '
+        Me.biostxt5.AutoSize = true
+        Me.biostxt5.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.biostxt5.ForeColor = System.Drawing.Color.Silver
+        Me.biostxt5.Location = New System.Drawing.Point(1, 247)
+        Me.biostxt5.Name = "biostxt5"
+        Me.biostxt5.Size = New System.Drawing.Size(426, 29)
+        Me.biostxt5.TabIndex = 6
+        Me.biostxt5.Text = "Product Serial Number:0000000000"
+        Me.biostxt5.Visible = false
+        '
+        'biostxt6
+        '
+        Me.biostxt6.AutoSize = true
+        Me.biostxt6.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.biostxt6.ForeColor = System.Drawing.Color.Silver
+        Me.biostxt6.Location = New System.Drawing.Point(1, 276)
+        Me.biostxt6.Name = "biostxt6"
+        Me.biostxt6.Size = New System.Drawing.Size(720, 29)
+        Me.biostxt6.TabIndex = 7
+        Me.biostxt6.Text = "CPU : Intel(R) Xeon(R)   CPU                      X5570   L 2.93GHz"
+        Me.biostxt6.Visible = false
+        '
+        'biostxt7
+        '
+        Me.biostxt7.AutoSize = true
+        Me.biostxt7.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.biostxt7.ForeColor = System.Drawing.Color.Silver
+        Me.biostxt7.Location = New System.Drawing.Point(1, 305)
+        Me.biostxt7.Name = "biostxt7"
+        Me.biostxt7.Size = New System.Drawing.Size(382, 29)
+        Me.biostxt7.TabIndex = 8
+        Me.biostxt7.Text = " Speed : 2.93 GHz      Count : 16"
+        Me.biostxt7.Visible = false
+        '
+        'biostxt9
+        '
+        Me.biostxt9.AutoSize = true
+        Me.biostxt9.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.biostxt9.ForeColor = System.Drawing.Color.Silver
+        Me.biostxt9.Location = New System.Drawing.Point(1, 388)
+        Me.biostxt9.Name = "biostxt9"
+        Me.biostxt9.Size = New System.Drawing.Size(929, 29)
+        Me.biostxt9.TabIndex = 9
+        Me.biostxt9.Text = "Press F12 if you want to boot from the network (CTRL+N on Remote Keyboard)"
+        Me.biostxt9.Visible = false
+        '
+        'biostxt8
+        '
+        Me.biostxt8.AutoSize = true
+        Me.biostxt8.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.biostxt8.ForeColor = System.Drawing.Color.Silver
+        Me.biostxt8.Location = New System.Drawing.Point(1, 363)
+        Me.biostxt8.Name = "biostxt8"
+        Me.biostxt8.Size = New System.Drawing.Size(642, 29)
+        Me.biostxt8.TabIndex = 10
+        Me.biostxt8.Text = "Press F2 to run Setup (CTRL+E on Remote Keyboard)"
+        Me.biostxt8.Visible = false
+        '
+        'biostxt10
+        '
+        Me.biostxt10.AutoSize = true
+        Me.biostxt10.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.biostxt10.ForeColor = System.Drawing.Color.Silver
+        Me.biostxt10.Location = New System.Drawing.Point(1, 417)
+        Me.biostxt10.Name = "biostxt10"
+        Me.biostxt10.Size = New System.Drawing.Size(686, 29)
+        Me.biostxt10.TabIndex = 11
+        Me.biostxt10.Text = "Press F8 for BBS POPUP (CTRL+P on Remote Keyboard)"
+        Me.biostxt10.Visible = false
+        '
+        'biostxt11
+        '
+        Me.biostxt11.AutoSize = true
+        Me.biostxt11.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.biostxt11.ForeColor = System.Drawing.Color.Silver
+        Me.biostxt11.Location = New System.Drawing.Point(-2, 446)
+        Me.biostxt11.Name = "biostxt11"
+        Me.biostxt11.Size = New System.Drawing.Size(426, 29)
+        Me.biostxt11.TabIndex = 12
+        Me.biostxt11.Text = "QPI Operational Speed at : 6.4GT/s"
+        Me.biostxt11.Visible = false
+        '
+        'biostxt12
+        '
+        Me.biostxt12.AutoSize = true
+        Me.biostxt12.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.biostxt12.ForeColor = System.Drawing.Color.Silver
+        Me.biostxt12.Location = New System.Drawing.Point(1, 475)
+        Me.biostxt12.Name = "biostxt12"
+        Me.biostxt12.Size = New System.Drawing.Size(377, 29)
+        Me.biostxt12.TabIndex = 13
+        Me.biostxt12.Text = "BNC Fireware Revision: 2.0.2.9"
+        Me.biostxt12.Visible = false
+        '
+        'biostxt13
+        '
+        Me.biostxt13.AutoSize = true
+        Me.biostxt13.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.biostxt13.ForeColor = System.Drawing.Color.Silver
+        Me.biostxt13.Location = New System.Drawing.Point(1, 504)
+        Me.biostxt13.Name = "biostxt13"
+        Me.biostxt13.Size = New System.Drawing.Size(347, 29)
+        Me.biostxt13.TabIndex = 14
+        Me.biostxt13.Text = "Initializing USB Controllers .."
+        Me.biostxt13.Visible = false
+        '
+        'biostxt15
+        '
+        Me.biostxt15.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
+        Me.biostxt15.AutoSize = true
+        Me.biostxt15.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.biostxt15.ForeColor = System.Drawing.Color.Silver
+        Me.biostxt15.Location = New System.Drawing.Point(0, 615)
+        Me.biostxt15.Name = "biostxt15"
+        Me.biostxt15.Size = New System.Drawing.Size(765, 29)
+        Me.biostxt15.TabIndex = 15
+        Me.biostxt15.Text = "64-3047-009999-00101111-022509-TYLSBURG-3AB0N838-Y2KC"
+        '
+        'biostxt14
+        '
+        Me.biostxt14.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
+        Me.biostxt14.AutoSize = true
+        Me.biostxt14.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.biostxt14.ForeColor = System.Drawing.Color.Silver
+        Me.biostxt14.Location = New System.Drawing.Point(-2, 586)
+        Me.biostxt14.Name = "biostxt14"
+        Me.biostxt14.Size = New System.Drawing.Size(365, 29)
+        Me.biostxt14.TabIndex = 16
+        Me.biostxt14.Text = "(C) American Megatrends. Inc."
+        '
+        'biostxt16
+        '
+        Me.biostxt16.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+        Me.biostxt16.AutoSize = true
+        Me.biostxt16.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.biostxt16.ForeColor = System.Drawing.Color.Silver
+        Me.biostxt16.Location = New System.Drawing.Point(817, 615)
+        Me.biostxt16.Name = "biostxt16"
+        Me.biostxt16.Size = New System.Drawing.Size(72, 29)
+        Me.biostxt16.TabIndex = 17
+        Me.biostxt16.Text = "6B38"
+        '
+        'Biosload
+        '
+        Me.Biosload.Enabled = true
+        Me.Biosload.Interval = 500
+        '
+        'Bios
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.Black
+        Me.ClientSize = New System.Drawing.Size(887, 641)
+        Me.Controls.Add(Me.biostxt16)
+        Me.Controls.Add(Me.biostxt14)
+        Me.Controls.Add(Me.biostxt15)
+        Me.Controls.Add(Me.biostxt13)
+        Me.Controls.Add(Me.biostxt12)
+        Me.Controls.Add(Me.biostxt11)
+        Me.Controls.Add(Me.biostxt10)
+        Me.Controls.Add(Me.biostxt8)
+        Me.Controls.Add(Me.biostxt9)
+        Me.Controls.Add(Me.biostxt7)
+        Me.Controls.Add(Me.biostxt6)
+        Me.Controls.Add(Me.biostxt5)
+        Me.Controls.Add(Me.biostxt4)
+        Me.Controls.Add(Me.biostxt3)
+        Me.Controls.Add(Me.biostxt2)
+        Me.Controls.Add(Me.biostxt1)
+        Me.Controls.Add(Me.Sunimage)
+        Me.Controls.Add(Me.Americanimage)
+        Me.Name = "Bios"
+        Me.Text = "Bios"
+        Me.TopMost = true
+        CType(Me.Sunimage,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.Americanimage,System.ComponentModel.ISupportInitialize).EndInit
+        Me.ResumeLayout(false)
+        Me.PerformLayout
+
+End Sub
+
+    Friend WithEvents Americanimage As PictureBox
+    Friend WithEvents Sunimage As PictureBox
+    Friend WithEvents biostxt1 As Label
+    Friend WithEvents biostxt2 As Label
+    Friend WithEvents biostxt3 As Label
+    Friend WithEvents biostxt4 As Label
+    Friend WithEvents biostxt5 As Label
+    Friend WithEvents biostxt6 As Label
+    Friend WithEvents biostxt7 As Label
+    Friend WithEvents biostxt9 As Label
+    Friend WithEvents biostxt8 As Label
+    Friend WithEvents biostxt10 As Label
+    Friend WithEvents biostxt11 As Label
+    Friend WithEvents biostxt12 As Label
+    Friend WithEvents biostxt13 As Label
+    Friend WithEvents biostxt15 As Label
+    Friend WithEvents biostxt14 As Label
+    Friend WithEvents biostxt16 As Label
+    Friend WithEvents Biosload As Timer
+End Class

windows 95/Bios.resx

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="Biosload.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

windows 95/Bios.vb

@@ -0,0 +1,72 @@
+Public Class Bios
+
+    Dim counter As Integer = 0
+
+    Private Sub Bios_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Me.TopMost = True
+        Me.FormBorderStyle = FormBorderStyle.None
+        Me.Width = Screen.PrimaryScreen.Bounds.Width
+        Me.Height = Screen.PrimaryScreen.Bounds.Height
+        Me.Left = 0
+        Me.Top = 0
+    End Sub
+    Dim winbootground As Image
+    Public Sub winload(ByVal image As Image, ByVal winver As Form)
+        Biosload.Enabled = True
+        winbootground = image
+        windowsboot.winversion = winver
+    End Sub
+
+    Private Sub Biosload_Tick(sender As Object, e As EventArgs) Handles Biosload.Tick
+        Select Case counter
+            Case 5
+                biostxt1.Visible = True
+            Case 6
+                biostxt2.Visible = True
+            Case 7
+                biostxt3.Visible = True
+            Case 8
+                biostxt4.Visible = True
+            Case 9
+                biostxt5.Visible = True
+            Case 10
+                biostxt6.Visible = True
+            Case 11
+                biostxt7.Visible = True
+                Biosload.Interval = 900
+            Case 12
+                biostxt8.Visible = True
+                Biosload.Interval = 500
+            Case 13
+                biostxt9.Visible = True
+            Case 14
+                biostxt10.Visible = True
+            Case 15
+                biostxt11.Visible = True
+            Case 16
+                biostxt12.Visible = True
+            Case 17
+                biostxt13.Visible = True
+            Case 25
+                windowsboot.Show()
+                windowsboot.bootimage.Image = winbootground
+                counter = -1
+                Biosload.Enabled = False
+                Me.Hide()
+                biostxt1.Visible = False
+                biostxt2.Visible = False
+                biostxt3.Visible = False
+                biostxt4.Visible = False
+                biostxt5.Visible = False
+                biostxt6.Visible = False
+                biostxt7.Visible = False
+                biostxt8.Visible = False
+                biostxt9.Visible = False
+                biostxt10.Visible = False
+                biostxt11.Visible = False
+                biostxt12.Visible = False
+                biostxt13.Visible = False
+        End Select
+        counter = counter + 1
+    End Sub
+End Class

windows 95/WebChat 1999.Designer.vb

@@ -26,7 +26,10 @@ Partial Class WebChat_1999
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(WebChat_1999))
         Me.program = New System.Windows.Forms.Panel()
         Me.programtopbar = New System.Windows.Forms.Panel()
+        Me.maximizebutton = New System.Windows.Forms.PictureBox()
+        Me.minimizebutton = New System.Windows.Forms.PictureBox()
         Me.programname = New System.Windows.Forms.Label()
+        Me.closebutton = New System.Windows.Forms.PictureBox()
         Me.login = New System.Windows.Forms.Panel()
         Me.TextBox2 = New System.Windows.Forms.TextBox()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
@@ -36,14 +39,22 @@ Partial Class WebChat_1999
         Me.txtscreenname = New System.Windows.Forms.TextBox()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Label7 = New System.Windows.Forms.Label()
+        Me.toprightcorner = New System.Windows.Forms.Panel()
+        Me.bottomrightcorner = New System.Windows.Forms.Panel()
         Me.history = New System.Windows.Forms.TextBox()
         Me.Label6 = New System.Windows.Forms.Label()
+        Me.bottomleftcorner = New System.Windows.Forms.Panel()
         Me.typechat = New System.Windows.Forms.TextBox()
+        Me.topleftcorner = New System.Windows.Forms.Panel()
         Me.Button2 = New System.Windows.Forms.Button()
+        Me.left = New System.Windows.Forms.Panel()
         Me.Label1 = New System.Windows.Forms.Label()
+        Me.bottom = New System.Windows.Forms.Panel()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.Button5 = New System.Windows.Forms.Button()
         Me.Label5 = New System.Windows.Forms.Label()
+        Me.right = New System.Windows.Forms.Panel()
+        Me.top = New System.Windows.Forms.Panel()
         Me.ListBox1 = New System.Windows.Forms.ListBox()
         Me.Chat = New System.Windows.Forms.Timer(Me.components)
         Me.look = New System.Windows.Forms.Timer(Me.components)
@@ -52,24 +63,13 @@ Partial Class WebChat_1999
         Me.pullside = New System.Windows.Forms.Timer(Me.components)
         Me.waitingdownload = New System.Windows.Forms.Timer(Me.components)
         Me.count = New System.Windows.Forms.Timer(Me.components)
-        Me.maximizebutton = New System.Windows.Forms.PictureBox()
-        Me.minimizebutton = New System.Windows.Forms.PictureBox()
-        Me.closebutton = New System.Windows.Forms.PictureBox()
-        Me.toprightcorner = New System.Windows.Forms.Panel()
-        Me.bottomrightcorner = New System.Windows.Forms.Panel()
-        Me.bottomleftcorner = New System.Windows.Forms.Panel()
-        Me.topleftcorner = New System.Windows.Forms.Panel()
-        Me.left = New System.Windows.Forms.Panel()
-        Me.bottom = New System.Windows.Forms.Panel()
-        Me.right = New System.Windows.Forms.Panel()
-        Me.top = New System.Windows.Forms.Panel()
         Me.program.SuspendLayout()
         Me.programtopbar.SuspendLayout()
-        Me.login.SuspendLayout()
-        Me.Panel1.SuspendLayout()
         CType(Me.maximizebutton, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.minimizebutton, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.closebutton, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.login.SuspendLayout()
+        Me.Panel1.SuspendLayout()
         Me.SuspendLayout()
         '
         'program
@@ -112,6 +112,26 @@ Partial Class WebChat_1999
         Me.programtopbar.Size = New System.Drawing.Size(808, 18)
         Me.programtopbar.TabIndex = 0
         '
+        'maximizebutton
+        '
+        Me.maximizebutton.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.maximizebutton.Image = Global.Histacom.My.Resources.Resources.Maximize
+        Me.maximizebutton.Location = New System.Drawing.Point(774, 2)
+        Me.maximizebutton.Name = "maximizebutton"
+        Me.maximizebutton.Size = New System.Drawing.Size(16, 14)
+        Me.maximizebutton.TabIndex = 6
+        Me.maximizebutton.TabStop = False
+        '
+        'minimizebutton
+        '
+        Me.minimizebutton.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.minimizebutton.Image = Global.Histacom.My.Resources.Resources.minimize
+        Me.minimizebutton.Location = New System.Drawing.Point(758, 2)
+        Me.minimizebutton.Name = "minimizebutton"
+        Me.minimizebutton.Size = New System.Drawing.Size(16, 14)
+        Me.minimizebutton.TabIndex = 5
+        Me.minimizebutton.TabStop = False
+        '
         'programname
         '
         Me.programname.AutoSize = True
@@ -123,6 +143,16 @@ Partial Class WebChat_1999
         Me.programname.TabIndex = 3
         Me.programname.Text = "Web Chat 1999"
         '
+        'closebutton
+        '
+        Me.closebutton.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.closebutton.Image = Global.Histacom.My.Resources.Resources.close
+        Me.closebutton.Location = New System.Drawing.Point(791, 2)
+        Me.closebutton.Name = "closebutton"
+        Me.closebutton.Size = New System.Drawing.Size(16, 14)
+        Me.closebutton.TabIndex = 4
+        Me.closebutton.TabStop = False
+        '
         'login
         '
         Me.login.BackColor = System.Drawing.Color.Moccasin
@@ -150,7 +180,7 @@ Partial Class WebChat_1999
         Me.TextBox2.ReadOnly = True
         Me.TextBox2.Size = New System.Drawing.Size(151, 108)
         Me.TextBox2.TabIndex = 6
-        Me.TextBox2.Text = "A screen name is a tempary name which is displayed in place of your real name. To" & _
+        Me.TextBox2.Text = "A screen name is a tempary name which is displayed in place of your real name. To" &
     " keep your identity safe please don't enter your real name in this chatroom" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         '
         'TextBox1
@@ -216,13 +246,32 @@ Partial Class WebChat_1999
         Me.Label7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label7.AutoSize = True
-        Me.Label7.Font = New System.Drawing.Font("Monotype Corsiva", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label7.Location = New System.Drawing.Point(63, 31)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(437, 17)
+        Me.Label7.Size = New System.Drawing.Size(539, 18)
         Me.Label7.TabIndex = 18
         Me.Label7.Text = "To Speak Just type a message in the bottom textbox then press the speak button"
         '
+        'toprightcorner
+        '
+        Me.toprightcorner.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.toprightcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95toprightcorner
+        Me.toprightcorner.Location = New System.Drawing.Point(812, 0)
+        Me.toprightcorner.Name = "toprightcorner"
+        Me.toprightcorner.Size = New System.Drawing.Size(4, 4)
+        Me.toprightcorner.TabIndex = 6
+        '
+        'bottomrightcorner
+        '
+        Me.bottomrightcorner.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.bottomrightcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95bottomrightcorner
+        Me.bottomrightcorner.Cursor = System.Windows.Forms.Cursors.SizeNWSE
+        Me.bottomrightcorner.Location = New System.Drawing.Point(812, 487)
+        Me.bottomrightcorner.Name = "bottomrightcorner"
+        Me.bottomrightcorner.Size = New System.Drawing.Size(4, 4)
+        Me.bottomrightcorner.TabIndex = 4
+        '
         'history
         '
         Me.history.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -250,6 +299,15 @@ Partial Class WebChat_1999
         Me.Label6.TabIndex = 17
         Me.Label6.Text = "File Sharing"
         '
+        'bottomleftcorner
+        '
+        Me.bottomleftcorner.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.bottomleftcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95bottomleftcorner
+        Me.bottomleftcorner.Location = New System.Drawing.Point(0, 487)
+        Me.bottomleftcorner.Name = "bottomleftcorner"
+        Me.bottomleftcorner.Size = New System.Drawing.Size(4, 4)
+        Me.bottomleftcorner.TabIndex = 2
+        '
         'typechat
         '
         Me.typechat.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
@@ -262,6 +320,14 @@ Partial Class WebChat_1999
         Me.typechat.Size = New System.Drawing.Size(487, 23)
         Me.typechat.TabIndex = 9
         '
+        'topleftcorner
+        '
+        Me.topleftcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95topleftcorner
+        Me.topleftcorner.Location = New System.Drawing.Point(0, 0)
+        Me.topleftcorner.Name = "topleftcorner"
+        Me.topleftcorner.Size = New System.Drawing.Size(4, 4)
+        Me.topleftcorner.TabIndex = 1
+        '
         'Button2
         '
         Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -275,6 +341,15 @@ Partial Class WebChat_1999
         Me.Button2.Text = "Speak"
         Me.Button2.UseVisualStyleBackColor = False
         '
+        'left
+        '
+        Me.left.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95leftside
+        Me.left.Dock = System.Windows.Forms.DockStyle.Left
+        Me.left.Location = New System.Drawing.Point(0, 4)
+        Me.left.Name = "left"
+        Me.left.Size = New System.Drawing.Size(4, 483)
+        Me.left.TabIndex = 3
+        '
         'Label1
         '
         Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -286,6 +361,16 @@ Partial Class WebChat_1999
         Me.Label1.TabIndex = 7
         Me.Label1.Text = "Users Logged In"
         '
+        'bottom
+        '
+        Me.bottom.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95bottom
+        Me.bottom.Cursor = System.Windows.Forms.Cursors.SizeNS
+        Me.bottom.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.bottom.Location = New System.Drawing.Point(0, 487)
+        Me.bottom.Name = "bottom"
+        Me.bottom.Size = New System.Drawing.Size(812, 4)
+        Me.bottom.TabIndex = 5
+        '
         'Panel1
         '
         Me.Panel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -316,6 +401,25 @@ Partial Class WebChat_1999
         Me.Label5.TabIndex = 15
         Me.Label5.Text = "Time Distorter 0.2"
         '
+        'right
+        '
+        Me.right.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95rightside
+        Me.right.Cursor = System.Windows.Forms.Cursors.SizeWE
+        Me.right.Dock = System.Windows.Forms.DockStyle.Right
+        Me.right.Location = New System.Drawing.Point(812, 4)
+        Me.right.Name = "right"
+        Me.right.Size = New System.Drawing.Size(4, 487)
+        Me.right.TabIndex = 7
+        '
+        'top
+        '
+        Me.top.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95top
+        Me.top.Dock = System.Windows.Forms.DockStyle.Top
+        Me.top.Location = New System.Drawing.Point(0, 0)
+        Me.top.Name = "top"
+        Me.top.Size = New System.Drawing.Size(816, 4)
+        Me.top.TabIndex = 8
+        '
         'ListBox1
         '
         Me.ListBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -353,110 +457,6 @@ Partial Class WebChat_1999
         '
         Me.count.Interval = 1000
         '
-        'maximizebutton
-        '
-        Me.maximizebutton.Anchor = System.Windows.Forms.AnchorStyles.Right
-        Me.maximizebutton.Image = Global.Histacom.My.Resources.Resources.Maximize
-        Me.maximizebutton.Location = New System.Drawing.Point(774, 2)
-        Me.maximizebutton.Name = "maximizebutton"
-        Me.maximizebutton.Size = New System.Drawing.Size(16, 14)
-        Me.maximizebutton.TabIndex = 6
-        Me.maximizebutton.TabStop = False
-        '
-        'minimizebutton
-        '
-        Me.minimizebutton.Anchor = System.Windows.Forms.AnchorStyles.Right
-        Me.minimizebutton.Image = Global.Histacom.My.Resources.Resources.minimize
-        Me.minimizebutton.Location = New System.Drawing.Point(758, 2)
-        Me.minimizebutton.Name = "minimizebutton"
-        Me.minimizebutton.Size = New System.Drawing.Size(16, 14)
-        Me.minimizebutton.TabIndex = 5
-        Me.minimizebutton.TabStop = False
-        '
-        'closebutton
-        '
-        Me.closebutton.Anchor = System.Windows.Forms.AnchorStyles.Right
-        Me.closebutton.Image = Global.Histacom.My.Resources.Resources.close
-        Me.closebutton.Location = New System.Drawing.Point(791, 2)
-        Me.closebutton.Name = "closebutton"
-        Me.closebutton.Size = New System.Drawing.Size(16, 14)
-        Me.closebutton.TabIndex = 4
-        Me.closebutton.TabStop = False
-        '
-        'toprightcorner
-        '
-        Me.toprightcorner.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.toprightcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95toprightcorner
-        Me.toprightcorner.Location = New System.Drawing.Point(812, 0)
-        Me.toprightcorner.Name = "toprightcorner"
-        Me.toprightcorner.Size = New System.Drawing.Size(4, 4)
-        Me.toprightcorner.TabIndex = 6
-        '
-        'bottomrightcorner
-        '
-        Me.bottomrightcorner.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.bottomrightcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95bottomrightcorner
-        Me.bottomrightcorner.Cursor = System.Windows.Forms.Cursors.SizeNWSE
-        Me.bottomrightcorner.Location = New System.Drawing.Point(812, 487)
-        Me.bottomrightcorner.Name = "bottomrightcorner"
-        Me.bottomrightcorner.Size = New System.Drawing.Size(4, 4)
-        Me.bottomrightcorner.TabIndex = 4
-        '
-        'bottomleftcorner
-        '
-        Me.bottomleftcorner.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.bottomleftcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95bottomleftcorner
-        Me.bottomleftcorner.Location = New System.Drawing.Point(0, 487)
-        Me.bottomleftcorner.Name = "bottomleftcorner"
-        Me.bottomleftcorner.Size = New System.Drawing.Size(4, 4)
-        Me.bottomleftcorner.TabIndex = 2
-        '
-        'topleftcorner
-        '
-        Me.topleftcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95topleftcorner
-        Me.topleftcorner.Location = New System.Drawing.Point(0, 0)
-        Me.topleftcorner.Name = "topleftcorner"
-        Me.topleftcorner.Size = New System.Drawing.Size(4, 4)
-        Me.topleftcorner.TabIndex = 1
-        '
-        'left
-        '
-        Me.left.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95leftside
-        Me.left.Dock = System.Windows.Forms.DockStyle.Left
-        Me.left.Location = New System.Drawing.Point(0, 4)
-        Me.left.Name = "left"
-        Me.left.Size = New System.Drawing.Size(4, 483)
-        Me.left.TabIndex = 3
-        '
-        'bottom
-        '
-        Me.bottom.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95bottom
-        Me.bottom.Cursor = System.Windows.Forms.Cursors.SizeNS
-        Me.bottom.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.bottom.Location = New System.Drawing.Point(0, 487)
-        Me.bottom.Name = "bottom"
-        Me.bottom.Size = New System.Drawing.Size(812, 4)
-        Me.bottom.TabIndex = 5
-        '
-        'right
-        '
-        Me.right.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95rightside
-        Me.right.Cursor = System.Windows.Forms.Cursors.SizeWE
-        Me.right.Dock = System.Windows.Forms.DockStyle.Right
-        Me.right.Location = New System.Drawing.Point(812, 4)
-        Me.right.Name = "right"
-        Me.right.Size = New System.Drawing.Size(4, 487)
-        Me.right.TabIndex = 7
-        '
-        'top
-        '
-        Me.top.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95top
-        Me.top.Dock = System.Windows.Forms.DockStyle.Top
-        Me.top.Location = New System.Drawing.Point(0, 0)
-        Me.top.Name = "top"
-        Me.top.Size = New System.Drawing.Size(816, 4)
-        Me.top.TabIndex = 8
-        '
         'WebChat_1999
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -471,13 +471,13 @@ Partial Class WebChat_1999
         Me.program.PerformLayout()
         Me.programtopbar.ResumeLayout(False)
         Me.programtopbar.PerformLayout()
+        CType(Me.maximizebutton, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.minimizebutton, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.closebutton, System.ComponentModel.ISupportInitialize).EndInit()
         Me.login.ResumeLayout(False)
         Me.login.PerformLayout()
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
-        CType(Me.maximizebutton, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.minimizebutton, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.closebutton, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub

windows 95/Webchat1998.vb

@@ -25,6 +25,12 @@
         Chat.Start()
         ListBox1.Items.Add(username)
         history.Text += (username & " Has Logged On" & Environment.NewLine)
+        If username = ("") Then
+            Chat.Stop()
+            Dim showmess As New windows95messagebox
+            showmess.infomessage.Text = ("Blank names are not allowed. Please enter a valid name.")
+            showmess.Show()
+        End If
     End Sub
 
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
@@ -37,8 +43,22 @@
 
     Private Sub Chat_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chat.Tick
         Select Case con
+            Case 164
+                history.Text = ("REMOVING ADDITIONAL CHANGES" & Environment.NewLine)
+                Windows95.taskbar.Show()
+                Windows95.Show()
+                history.ScrollBars = ScrollBars.Horizontal
+                Cursor.Show()
+                programtopbar.Show()
+                Windows95.desktopicons.Show()
+                history.ForeColor = Color.White
+                Windows95.startbutton.Show()
+                history.Text = ("The Hidden Hacker: All done!" & Environment.NewLine)
+                history.Text = ("The Hidden Hacker: Now, go back on the web and destroy him!" & Environment.NewLine)
+                con += 1
+
             Case 163
-                history.Text = ("RESTORING BORDER" & Environment.NewLine)
+                history.Text = ("RESTORING BORDER..." & Environment.NewLine)
                 program.BorderStyle = BorderStyle.FixedSingle
                 history.BorderStyle = BorderStyle.FixedSingle
                 top.Show()
@@ -51,8 +71,7 @@
                 bottomleftcorner.Show()
                 history.Text = ("BORDER RESTORE COMPLETE" & Environment.NewLine)
             Case 162
-                history.Text = Environment.NewLine("RESTORING CHANGES..." & Environment.NewLine)
+                history.Text = ("RESTORING CHANGES..." & Environment.NewLine)
-                Chat.Interval = 3000
                 con += 1
             Case 161
                 history.Text = ("The Hidden Hacker: Download complete" & Environment.NewLine)
@@ -113,6 +132,8 @@
                 con += 1
             Case 146
                 history.Text = ("??? is scanning IP address!" & Environment.NewLine)
+                con += 1
+
             Case 145
                 history.Text = ("???: Hello?! Anyone here?" & Environment.NewLine)
                 con += 1
@@ -283,7 +304,7 @@
                 Chat.Interval = 2000
                 con += 1
             Case 106
-                history.Text += ("12padams: I see the scroll bar at the side of the screen which never existed early 1980s" & Environment.NewLine)
+                history.Text += ("12padams: First of all, I see the scroll bar at the side of the screen which never existed early 1980s." & Environment.NewLine)
                 Chat.Interval = 6000
                 con += 1
             Case 105
@@ -342,7 +363,7 @@
                 Chat.Interval = 5000
                 con += 1
             Case 92
-                history.Text += ("12padams: This is good! Now i can teach you and punish you at the same time lol :) " & Environment.NewLine)
+                history.Text += ("12padams: This is good! Now I can teach you and punish you at the same time lol :) " & Environment.NewLine)
                 Chat.Interval = 6000
                 con += 1
             Case 91
@@ -354,7 +375,7 @@
                 Chat.Interval = 10000
                 con += 1
             Case 89
-                history.Text += ("12padams: Oh yeah! You dont even talk so you problably don't even know it's gone... " & Environment.NewLine)
+                history.Text += ("12padams: Oh yeah! You dont even talk so you probably don't even know it's gone... " & Environment.NewLine)
                 Chat.Interval = 6000
                 con += 1
             Case 88
@@ -402,7 +423,7 @@
                 Panel1.Hide()
                 con += 1
             Case 78
-                history.Text += ("12padams: No because I got rid of him. Talking about getting rid of things! I forgot to remove the illegal file he uploaded which has been here all along..." & Environment.NewLine)
+                history.Text += ("12padams: No because I got rid of him. Talking about getting rid of things lol! I forgot to remove the illegal file he uploaded which has been here all along..." & Environment.NewLine)
                 Chat.Interval = 6000
                 con += 1
             Case 77
@@ -481,11 +502,11 @@
                 Chat.Interval = 4000
                 con += 1
             Case 60
-                history.Text += ("12padams: Well the whole of Windows 95 is a virus. Where shall I begin?" & Environment.NewLine)
+                history.Text += ("12padams: Well, the whole of Windows 95 is a virus. Where shall I begin?" & Environment.NewLine)
                 Chat.Interval = 5000
                 con += 1
             Case 59
-                history.Text += ("12padams: Get rid of the viruses did you type?" & Environment.NewLine)
+                history.Text += ("12padams: Get rid of the viruses did you say?" & Environment.NewLine)
                 Chat.Interval = 6000
                 con += 1
             Case 58
@@ -493,7 +514,7 @@
                 Chat.Interval = 5000
                 con += 1
             Case 57
-                history.Text += ("12padams: Anyway SkyHigh you are asking too many questions... It's time I unleash my next virus!" & Environment.NewLine)
+                history.Text += ("12padams: Anyway SkyHigh, you are asking too many questions. It's time I unleash my next virus!" & Environment.NewLine)
                 Chat.Interval = 8000
                 con += 1
             Case 56
@@ -505,7 +526,7 @@
                 Chat.Interval = 6000
                 con += 1
             Case 54
-                history.Text += ("12padams: You're both experienceing a lethal virus which i like to call ""death" & Environment.NewLine)
+                history.Text += ("12padams: You're both experiencing a lethal virus which I like to call ""death" & Environment.NewLine)
                 Chat.Interval = 4000
                 con += 1
             Case 53
@@ -517,12 +538,12 @@
                 Chat.Interval = 5000
                 con += 1
             Case 51
-                history.Text += ("SkyHigh: Don't worry " & username & ", I'll look online for help" & Environment.NewLine)
+                history.Text += ("SkyHigh: Don't worry " & username & ", I'll look online for help!" & Environment.NewLine)
                 Chat.Interval = 4000
                 Windows95.Enabled = False
                 con += 1
             Case 50
-                history.Text += ("12padams: Trying to fight back are we...? Well I'll punish you both!" & Environment.NewLine)
+                history.Text += ("12padams: Trying to fight back are we? Well then, I'll punish you both!" & Environment.NewLine)
                 Chat.Interval = 6000
                 con += 1
             Case 49
@@ -542,12 +563,12 @@
                 Chat.Interval = 6000
                 con += 1
             Case 45
-                history.Text += ("rain49 Has Logged Out" & Environment.NewLine)
+                history.Text += ("rain49 has logged off" & Environment.NewLine)
                 ListBox1.Items.Remove("rain49")
                 Chat.Interval = 7000
                 con += 1
             Case 44
-                history.Text += ("rain49: Oh yeah? Just watch!" & Environment.NewLine)
+                history.Text += ("rain49: Oh yeah? Just watch this!" & Environment.NewLine)
                 Chat.Interval = 1000
                 con += 1
             Case 43
@@ -555,11 +576,11 @@
                 Chat.Interval = 3000
                 con += 1
             Case 42
-                history.Text += ("rain49: No... because I can just turn my computer off at the power... " & Environment.NewLine)
+                history.Text += ("rain49: No... because I can just turn my computer off at the power!" & Environment.NewLine)
                 Chat.Interval = 4000
                 con += 1
             Case 41
-                history.Text += ("12padams: ... scared Yet?" & Environment.NewLine)
+                history.Text += ("12padams: Are we scared yet?" & Environment.NewLine)
                 Chat.Interval = 5000
                 con += 1
             Case 40

windows 95/Windows95.resx

@@ -206,7 +206,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABG
-        uAAAAk1TRnQBSQFMAgEBDgEAAZgBAgGYAQIBIAEAASABAAT/AREBAAj/AUIBTQE2BwABNgMAASgDAAGA
+        uAAAAk1TRnQBSQFMAgEBDgEAAaABAgGgAQIBIAEAASABAAT/AREBAAj/AUIBTQE2BwABNgMAASgDAAGA
         AwABgAMAAQEBAAEQBgABgBIAAVcBBgHxAQUBFAECARMBAgEyAQIBcQEKAW8BEgHNAQUBUwECAXsBAwHf
         AQMBnQEDARgBAwG2AQIB1wECAXwBAwH/AQMBewEDAbYBAgF8AQMBfAEDAd8BAwEZAQMBdAECAY0BAQGM
         AQEBcwECATEBAgEyAQIBcwECAVoBAwFTASYBjwENARIBDgFNAQkBEwECAW4BBQGPAQEB8QEFARMBBgHx

windows 95/Windows95.vb

@@ -255,4 +255,8 @@
         showmess.infomessage.Text = "Your save code is: ety53g63"
         showmess.Show()
     End Sub
+
+    Private Sub startmenuitems_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles startmenuitems.ItemClicked
+
+    End Sub
 End Class

windows 95/Windowsxp2002damaged.Designer.vb

@@ -1315,7 +1315,7 @@ Partial Class Windowsxp2002damaged
         '
         'startbutton
         '
-        Me.startbutton.Image = Global.Histacom.My.Resources.Resources.windowsxpstartbuttonpressed1
+        Me.startbutton.Image = Global.Histacom.My.Resources.Resources.windowsxpstartbuttonpressed
         Me.startbutton.Location = New System.Drawing.Point(0, 0)
         Me.startbutton.Name = "startbutton"
         Me.startbutton.Size = New System.Drawing.Size(98, 30)

windows 95/errorblaster95.Designer.vb

@@ -73,7 +73,7 @@ Partial Class errorblaster95
         Me.Button2.Size = New System.Drawing.Size(87, 39)
         Me.Button2.TabIndex = 13
         Me.Button2.Text = "Remove"
-        Me.Button2.UseVisualStyleBackColor = True
+        Me.Button2.UseVisualStyleBackColor = False
         '
         'Button1
         '

windows 95/time distorter 0.2.Designer.vb

@@ -69,10 +69,10 @@ Partial Class time_distorter_0
         '
         Me.labelcurrentyear.Anchor = System.Windows.Forms.AnchorStyles.Top
         Me.labelcurrentyear.AutoSize = True
-        Me.labelcurrentyear.Font = New System.Drawing.Font("MS Reference Sans Serif", 72.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.labelcurrentyear.Font = New System.Drawing.Font("Microsoft Sans Serif", 72.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.labelcurrentyear.Location = New System.Drawing.Point(23, 53)
         Me.labelcurrentyear.Name = "labelcurrentyear"
-        Me.labelcurrentyear.Size = New System.Drawing.Size(298, 118)
+        Me.labelcurrentyear.Size = New System.Drawing.Size(261, 108)
         Me.labelcurrentyear.TabIndex = 1
         Me.labelcurrentyear.Text = "1999"
         '

windows 95/time distorter 0.2.vb

@@ -120,6 +120,10 @@
 
     End Sub
 
+    Private Sub labelcurrentyear_Click(sender As Object, e As EventArgs) Handles labelcurrentyear.Click
+
+    End Sub
+
     Private Sub countdown_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles countdown.Tick
         If count = 145 Then
             WebChat_1999.history.Text = WebChat_1999.history.Text + ("12padams: The most important thing now is preparing for when " & mainname & " gets to the year 2000" & Environment.NewLine)

windows 95/windows 95.vbproj

@@ -70,7 +70,7 @@
     <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
   </PropertyGroup>
   <PropertyGroup>
-    <ApplicationIcon>histacom logo.ico</ApplicationIcon>
+    <ApplicationIcon>histacom icon.ico</ApplicationIcon>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="System" />
@@ -1678,8 +1678,12 @@
     </PublishFile>
   </ItemGroup>
   <ItemGroup>
-    <Content Include="histacom icon.ico" />
     <Content Include="histacom logo.ico" />
+    <Content Include="histacom icon.ico" />
+    <Content Include="Resources\Command-Prompt-icon.png" />
+    <None Include="Resources\money.gif" />
+    <None Include="Resources\other-fire-143887964479415.gif" />
+    <None Include="Resources\Windows ME Startup.wav" />
     <None Include="Resources\title.png" />
     <None Include="Resources\maximise.png" />
     <None Include="Resources\minimise.png" />
@@ -1817,6 +1821,23 @@
     <None Include="Resources\internetexplorer6stopbutton.png" />
     <None Include="Resources\internetexplorer6homebutton.png" />
   </ItemGroup>
+  <ItemGroup>
+    <BootstrapperPackage Include=".NETFramework,Version=v4.0">
+      <Visible>False</Visible>
+      <ProductName>Microsoft .NET Framework 4 %28x86 and x64%29</ProductName>
+      <Install>true</Install>
+    </BootstrapperPackage>
+    <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
+      <Visible>False</Visible>
+      <ProductName>.NET Framework 3.5 SP1</ProductName>
+      <Install>false</Install>
+    </BootstrapperPackage>
+    <BootstrapperPackage Include="Microsoft.Windows.Installer.4.5">
+      <Visible>False</Visible>
+      <ProductName>Windows Installer 4.5</ProductName>
+      <Install>true</Install>
+    </BootstrapperPackage>
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.

windows 95/windows vista resouces/Aero Theme/Resources/Bitmaps/bitmaps.rc

@@ -0,0 +1,68 @@
+10 BITMAP "Bitmap_1.bmp"
+
+11 BITMAP "Bitmap_2.bmp"
+
+12 BITMAP "Bitmap_3.bmp"
+
+13 BITMAP "Bitmap_4.bmp"
+
+14 BITMAP "Bitmap_5.bmp"
+
+15 BITMAP "Bitmap_6.bmp"
+
+16 BITMAP "Bitmap_7.bmp"
+
+17 BITMAP "Bitmap_8.bmp"
+
+18 BITMAP "Bitmap_9.bmp"
+
+19 BITMAP "Bitmap_10.bmp"
+
+20 BITMAP "Bitmap_11.bmp"
+
+21 BITMAP "Bitmap_12.bmp"
+
+25 BITMAP "Bitmap_13.bmp"
+
+27 BITMAP "Bitmap_14.bmp"
+
+29 BITMAP "Bitmap_15.bmp"
+
+30 BITMAP "Bitmap_16.bmp"
+
+40 BITMAP "Bitmap_17.bmp"
+
+41 BITMAP "Bitmap_18.bmp"
+
+100 BITMAP "Bitmap_19.bmp"
+
+101 BITMAP "Bitmap_20.bmp"
+
+102 BITMAP "Bitmap_21.bmp"
+
+103 BITMAP "Bitmap_22.bmp"
+
+104 BITMAP "Bitmap_23.bmp"
+
+105 BITMAP "Bitmap_24.bmp"
+
+106 BITMAP "Bitmap_25.bmp"
+
+107 BITMAP "Bitmap_26.bmp"
+
+110 BITMAP "Bitmap_27.bmp"
+
+112 BITMAP "Bitmap_28.bmp"
+
+113 BITMAP "Bitmap_29.bmp"
+
+114 BITMAP "Bitmap_30.bmp"
+
+119 BITMAP "Bitmap_31.bmp"
+
+120 BITMAP "Bitmap_32.bmp"
+
+121 BITMAP "Bitmap_33.bmp"
+
+122 BITMAP "Bitmap_34.bmp"
+

windows 95/windows vista resouces/Aero Theme/aero.theme

@@ -0,0 +1,66 @@
+; Copyright © Microsoft Corp. 1995-2001
+
+[Theme]
+DisplayName=@themeui.dll,-2013
+
+; My Computer
+[CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\DefaultIcon]
+DefaultValue=%SystemRoot%\System32\imageres.dll,-109
+
+; My Documents
+[CLSID\{450D8FBA-AD25-11D0-98A8-0800361B1103}\DefaultIcon]
+DefaultValue=%SystemRoot%\SYSTEM32\mydocs.dll,0
+
+; My Network Places - SHIDI_MYNETWORK
+[CLSID\{208D2C60-3AEA-1069-A2D7-08002B30309D}\DefaultIcon]
+DefaultValue=%SystemRoot%\SYSTEM32\imageres.dll,-25
+
+; Recycle Bin
+[CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\DefaultIcon]
+Full=%SystemRoot%\System32\imageres.dll,-54
+Empty=%SystemRoot%\System32\imageres.dll,-55
+
+
+[Control Panel\Cursors]
+AppStarting=%SystemRoot%\cursors\aero_working.ani
+Arrow=%SystemRoot%\cursors\aero_arrow.cur
+Crosshair=
+Hand=%SystemRoot%\cursors\aero_link.cur
+Help=%SystemRoot%\cursors\aero_helpsel.cur
+IBeam=
+No=%SystemRoot%\cursors\aero_unavail.cur
+NWPen=%SystemRoot%\cursors\aero_pen.cur
+SizeAll=%SystemRoot%\cursors\aero_move.cur
+SizeNESW=%SystemRoot%\cursors\aero_nesw.cur
+SizeNS=%SystemRoot%\cursors\aero_ns.cur
+SizeNWSE=%SystemRoot%\cursors\aero_nwse.cur
+SizeWE=%SystemRoot%\cursors\aero_ew.cur
+UpArrow=%SystemRoot%\cursors\aero_up.cur
+Wait=%SystemRoot%\cursors\aero_busy.ani
+DefaultValue=Windows Aero
+DefaultValue.MUI=@main.cpl,-1020
+
+
+[Control Panel\Desktop]
+Wallpaper=%SystemRoot%\web\wallpaper\img24.jpg
+Wallpaper.MUI=@themeui.dll,-2036
+TileWallpaper=0
+WallpaperStyle=2
+Pattern=
+ScreenSaveActive=1
+
+
+[VisualStyles]
+Path=%ResourceDir%\Themes\Aero\Aero.msstyles
+ColorStyle=NormalColor
+Size=NormalSize
+ColorizationColor=0x45409efe
+
+
+[boot]
+SCRNSAVE.EXE=%SystemRoot%\System32\logon.scr
+
+
+[MasterThemeSelector]
+MTSM=DABJDKT
+ThemeColorBPP=8

windows 95/windows vista resouces/loading mouse/loadmouse.rc

@@ -0,0 +1,16 @@
+5000 BITMAP "Bitmap_1.bmp"
+
+5001 BITMAP "Bitmap_2.bmp"
+
+5002 BITMAP "Bitmap_3.bmp"
+
+5003 BITMAP "Bitmap_4.bmp"
+
+5010 BITMAP "Bitmap_5.bmp"
+
+5011 BITMAP "Bitmap_6.bmp"
+
+5012 BITMAP "Bitmap_7.bmp"
+
+5013 BITMAP "Bitmap_8.bmp"
+