File tree Expand file tree Collapse file tree 1 file changed +34
-34
lines changed Expand file tree Collapse file tree 1 file changed +34
-34
lines changed Original file line number Diff line number Diff line change 1- VERSION 5.00
2- Begin {C62A69F0-16 DC-11 CE-9 E98-00 AA00574A4F} Login
3- Caption = "Please Log In"
4- ClientHeight = 1920
5- ClientLeft = 120
6- ClientTop = 465
7- ClientWidth = 2295
8- OleObjectBlob = "Login.frx" :0000
9- StartUpPosition = 1 'CenterOwner
10- End
11- Attribute VB_Name = "Login"
12- Attribute VB_GlobalNameSpace = False
13- Attribute VB_Creatable = False
14- Attribute VB_PredeclaredId = True
15- Attribute VB_Exposed = False
16- Public Ready As Boolean
17-
18- Private Sub Form_Load ()
19- Me.Show
20- Ready = False
21- Call Wait
22- 'Label1.Visible = True
23- End Sub
24-
25- Public Function Wait ()
26- Do While Ready = False
27- DoEvents
28- Loop
29- End Function
30-
31- Private Sub LoginButton_Click ()
32- Ready = True
33- Me.Hide
34- End Sub
1+ VERSION 5.00
2+ Begin {C62A69F0-16 DC-11 CE-9 E98-00 AA00574A4F} Login
3+ Caption = "Please Log In"
4+ ClientHeight = 1920
5+ ClientLeft = 120
6+ ClientTop = 465
7+ ClientWidth = 2295
8+ OleObjectBlob = "Login.frx" :0000
9+ StartUpPosition = 1 'CenterOwner
10+ End
11+ Attribute VB_Name = "Login"
12+ Attribute VB_GlobalNameSpace = False
13+ Attribute VB_Creatable = False
14+ Attribute VB_PredeclaredId = True
15+ Attribute VB_Exposed = False
16+ Public Ready As Boolean
17+
18+ Private Sub Form_Load ()
19+ Me.Show
20+ Ready = False
21+ Call Wait
22+ 'Label1.Visible = True
23+ End Sub
24+
25+ Public Function Wait ()
26+ Do While Ready = False
27+ DoEvents
28+ Loop
29+ End Function
30+
31+ Private Sub LoginButton_Click ()
32+ Ready = True
33+ Me.Hide
34+ End Sub
You can’t perform that action at this time.
0 commit comments