blob: f7d30d9b525164562d11fa878ff5428b54b5f0b1 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
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
|
