File tree 1 file changed +34
-34
lines changed 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