mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 02:12:14 +00:00
35 lines
No EOL
1.2 KiB
VB.net
35 lines
No EOL
1.2 KiB
VB.net
Public Class IntroStory
|
|
Dim TimerDisplay As Integer = 1
|
|
Private Sub IntroStory_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
FormBorderStyle = FormBorderStyle.None
|
|
WindowState = FormWindowState.Maximized
|
|
OpacityPlay.Start()
|
|
End Sub
|
|
|
|
Private Sub OpacityPlay_Tick(sender As Object, e As EventArgs) Handles OpacityPlay.Tick
|
|
Select Case TimerDisplay
|
|
Case 1, 5, 9, 13, 17
|
|
Visible = True
|
|
TimerDisplay = TimerDisplay + 1
|
|
Case 3, 7, 11, 15, 19
|
|
Visible = False
|
|
TimerDisplay = TimerDisplay + 1
|
|
Case 21
|
|
BackColor = Color.Black
|
|
Visible = True
|
|
Opacity = 0.1
|
|
TimerDisplay = 22
|
|
Case 22
|
|
If Opacity = 1 Then
|
|
Strings.ComputerInfo(3) = "0"
|
|
Strings.IsFree = False
|
|
Terminal.Show()
|
|
Close()
|
|
Else
|
|
Opacity = Opacity + 0.05
|
|
End If
|
|
Case Else
|
|
TimerDisplay = TimerDisplay + 1
|
|
End Select
|
|
End Sub
|
|
End Class |