diff options
| author | jakeypearce <[email protected]> | 2015-08-15 20:52:59 +0100 |
|---|---|---|
| committer | jakeypearce <[email protected]> | 2015-08-15 20:52:59 +0100 |
| commit | ffe6a491934e592b49d6329b3b8bd6b48ed5618b (patch) | |
| tree | e261e711c15fe08aad16678319b8e96c91399bb0 /windows 95/Bios.vb | |
| parent | a5edbb7a3abae0b23245a79a34b43ff0afb0e3e8 (diff) | |
| download | histacom-ffe6a491934e592b49d6329b3b8bd6b48ed5618b.tar.gz histacom-ffe6a491934e592b49d6329b3b8bd6b48ed5618b.tar.bz2 histacom-ffe6a491934e592b49d6329b3b8bd6b48ed5618b.zip | |
Since he is unable to do so, I've gone ahead and committed the changes
Diffstat (limited to 'windows 95/Bios.vb')
| -rw-r--r-- | windows 95/Bios.vb | 72 |
1 files changed, 72 insertions, 0 deletions
diff --git a/windows 95/Bios.vb b/windows 95/Bios.vb new file mode 100644 index 0000000..fd8ac74 --- /dev/null +++ b/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
\ No newline at end of file |