Skip to content

Commit 7747658

Browse files
BeakerboyBeakerboy
and
Beakerboy
authored
changed line endings (#44)
Co-authored-by: Beakerboy <[email protected]>
1 parent 041de2d commit 7747658

File tree

1 file changed

+34
-34
lines changed

1 file changed

+34
-34
lines changed

src/Forms/Login.frm

Lines changed: 34 additions & 34 deletions
Original file line numberDiff line numberDiff line change
@@ -1,34 +1,34 @@
1-
VERSION 5.00
2-
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} 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-16DC-11CE-9E98-00AA00574A4F} 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

0 commit comments

Comments
 (0)