-
Notifications
You must be signed in to change notification settings - Fork 2
/
frmAbout.frm
137 lines (136 loc) · 4.21 KB
/
frmAbout.frm
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
VERSION 5.00
Begin VB.Form frmAbout
BackColor = &H00400000&
Caption = "About Rcon Unlimited"
ClientHeight = 4560
ClientLeft = 60
ClientTop = 450
ClientWidth = 6045
Icon = "frmAbout.frx":0000
LinkTopic = "Form1"
ScaleHeight = 4560
ScaleWidth = 6045
StartUpPosition = 2 'CenterScreen
Begin VB.Timer Timer1
Interval = 25
Left = 5400
Top = 3120
End
Begin VB.PictureBox PicMain
Appearance = 0 'Flat
BackColor = &H00400000&
ForeColor = &H80000008&
Height = 495
Left = 0
ScaleHeight = 465
ScaleWidth = 4305
TabIndex = 4
Top = 4080
Width = 4335
Begin VB.PictureBox Pic2
BackColor = &H00400000&
BorderStyle = 0 'None
Height = 375
Left = 4320
ScaleHeight = 375
ScaleWidth = 15735
TabIndex = 5
Top = 0
Width = 15735
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = $"frmAbout.frx":210A
ForeColor = &H00FF8080&
Height = 255
Left = 120
TabIndex = 6
Top = 120
Width = 13815
End
End
End
Begin VB.CommandButton CmdClose
Caption = "Close"
Height = 375
Left = 4440
TabIndex = 3
Top = 3960
Width = 1335
End
Begin VB.Image Image1
Height = 1500
Left = 0
Picture = "frmAbout.frx":21D3
Top = 0
Width = 6000
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "Thanks goes to the guys at Fragomatic for making Rcon Commander open source, so I learnt how to make this program a reality!"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 735
Left = 120
TabIndex = 2
Top = 3360
Width = 5295
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = $"frmAbout.frx":6807
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 735
Left = 120
TabIndex = 1
Top = 2520
Width = 5295
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = $"frmAbout.frx":689F
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 975
Left = 120
TabIndex = 0
Top = 1680
Width = 5775
End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdClose_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
Pic2.Left = Pic2.Left - 10
If Pic2.Left <= -Pic2.Width Then Pic2.Left = PicMain.Width
End Sub