This repository has been archived by the owner on Feb 26, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 5
/
Copy pathfrmAbout.frm
772 lines (690 loc) · 24.7 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
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
VERSION 5.00
Begin VB.Form frmAbout
BorderStyle = 0 'None
Caption = "About MyApp"
ClientHeight = 6030
ClientLeft = 7050
ClientTop = 4080
ClientWidth = 6945
ClipControls = 0 'False
ControlBox = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmAbout.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6030
ScaleWidth = 6945
ShowInTaskbar = 0 'False
Begin VB.PictureBox imgR
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 750
Left = 5835
MouseIcon = "frmAbout.frx":2CFA
MousePointer = 99 'Custom
ScaleHeight = 750
ScaleWidth = 690
TabIndex = 19
Top = 2580
Width = 690
End
Begin VB.Timer tmrPrepareEEGG
Enabled = 0 'False
Interval = 1500
Left = 225
Top = 3480
End
Begin VB.TextBox txtSN
Appearance = 0 'Flat
BackColor = &H80000000&
ForeColor = &H80000011&
Height = 315
Left = 1095
Locked = -1 'True
TabIndex = 14
TabStop = 0 'False
Top = 3945
Width = 4050
End
Begin VB.Timer tmrScroll
Enabled = 0 'False
Interval = 51
Left = 240
Top = 2055
End
Begin VB.PictureBox picScrollContainer
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 1695
Left = 1050
ScaleHeight = 1695
ScaleWidth = 4125
TabIndex = 4
Top = 1215
Width = 4125
Begin VB.PictureBox picScroll
Appearance = 0 'Flat
BorderStyle = 0 'None
ClipControls = 0 'False
ForeColor = &H80000008&
Height = 18525
Left = 30
ScaleHeight = 18525
ScaleWidth = 4065
TabIndex = 5
Top = -1715
Width = 4065
Begin VB.TextBox txtMsg
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 13365
Left = 300
Locked = -1 'True
MousePointer = 1 'Arrow
MultiLine = -1 'True
TabIndex = 6
Text = "frmAbout.frx":2E4C
Top = 3795
Width = 3240
End
Begin VB.Label lblCopyright
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "©2000 All Rights Reserved"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 900
TabIndex = 13
Top = 18315
Width = 1950
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = "Xavier Flix"
Height = 210
Left = 300
TabIndex = 12
Top = 2145
UseMnemonic = 0 'False
Width = 915
End
Begin VB.Label Label5
AutoSize = -1 'True
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = "Project coordinator & original concept"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 300
TabIndex = 11
Top = 2535
UseMnemonic = 0 'False
Width = 3225
End
Begin VB.Label Label6
AutoSize = -1 'True
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = "Xavier Flix"
Height = 210
Left = 300
TabIndex = 10
Top = 2790
UseMnemonic = 0 'False
Width = 915
End
Begin VB.Image Image1
Height = 240
Left = 0
Picture = "frmAbout.frx":315A
Stretch = -1 'True
Top = 1860
Width = 240
End
Begin VB.Image Image2
Height = 240
Left = 0
Picture = "frmAbout.frx":359C
Stretch = -1 'True
Top = 2505
Width = 240
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = "Programming"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 300
TabIndex = 9
Top = 1890
UseMnemonic = 0 'False
Width = 1155
End
Begin VB.Label Label7
AutoSize = -1 'True
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = "Special Thanks..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 300
TabIndex = 8
Top = 3540
Width = 1395
End
Begin VB.Image Image6
Height = 240
Left = 0
Picture = "frmAbout.frx":39DE
Stretch = -1 'True
Top = 3517
Width = 240
End
Begin VB.Image Image7
Height = 1185
Left = 945
Stretch = -1 'True
Top = 17235
Width = 1800
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "®"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 2475
TabIndex = 7
Top = 17955
Width = 150
End
End
End
Begin VB.TextBox txtReg
Appearance = 0 'Flat
BackColor = &H80000000&
ForeColor = &H80000011&
Height = 495
Left = 1095
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 3
TabStop = 0 'False
Top = 3420
Width = 4050
End
Begin VB.CommandButton cmdOK
Cancel = -1 'True
Caption = "OK"
Default = -1 'True
Height = 345
Left = 5550
TabIndex = 2
Top = 5535
Width = 1260
End
Begin VB.PictureBox picLogo
Appearance = 0 'Flat
BackColor = &H00808080&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 1155
Left = 45
ScaleHeight = 1155
ScaleWidth = 6855
TabIndex = 0
Top = 45
Width = 6855
Begin VB.Label lblDEVer
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "<developers_edition>"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 180
Left = 1695
TabIndex = 1
Top = 840
UseMnemonic = 0 'False
Width = 2100
End
End
Begin VB.Timer tmrStartScroll
Interval = 3500
Left = 330
Top = 2730
End
Begin VB.Image Image5
Height = 480
Left = 3330
Picture = "frmAbout.frx":3E20
ToolTipText = "Presets Support"
Top = 5415
Width = 480
End
Begin VB.Image Image4
Height = 480
Left = 2625
Picture = "frmAbout.frx":4AEA
ToolTipText = "AddIns Support"
Top = 5415
Width = 480
End
Begin VB.Image imgRORLogo
Height = 570
Left = 1785
Picture = "frmAbout.frx":57B4
ToolTipText = "ROR Import Support"
Top = 5370
Width = 615
End
Begin VB.Image imgSEOLogo
Appearance = 0 'Flat
Height = 570
Left = 180
Picture = "frmAbout.frx":5E42
ToolTipText = "Search Engine Optimizations"
Top = 5370
Width = 1410
End
Begin VB.Label lblResInfo
Alignment = 2 'Center
BackColor = &H80000008&
BeginProperty Font
Name = "Small Fonts"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 5670
TabIndex = 20
Top = 3210
UseMnemonic = 0 'False
Width = 645
End
Begin VB.Image imgSIMONLogo
Height = 1185
Left = 5160
Stretch = -1 'True
Top = 1275
Width = 1800
End
Begin VB.Label lblEngineVersion
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Engine Version"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5760
TabIndex = 15
Top = 4065
UseMnemonic = 0 'False
Width = 1050
End
Begin VB.Image Image3
Height = 240
Left = 795
Picture = "frmAbout.frx":695E
Stretch = -1 'True
Top = 3105
Width = 240
End
Begin VB.Label lblRegMsg
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "This program is registered to"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 1095
TabIndex = 18
Top = 3135
UseMnemonic = 0 'False
Width = 2460
End
Begin VB.Label lblVersion
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Version"
Height = 210
Left = 6210
TabIndex = 17
Top = 3840
UseMnemonic = 0 'False
Width = 600
End
Begin VB.Label lblDisclaimer
BackStyle = 0 'Transparent
Caption = $"frmAbout.frx":6DA0
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 570
Left = 180
TabIndex = 16
Top = 4500
UseMnemonic = 0 'False
Width = 6435
End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim IsALTPressed As Boolean
Dim cx As Long
Dim cy As Long
Dim IsDragging As Boolean
Private WithEvents msgSubClass As xfxSC
Attribute msgSubClass.VB_VarHelpID = -1
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
Select Case KeyCode
Case 107 '+
tmrScroll.Interval = tmrScroll.Interval - 25
Case 109 '-
tmrScroll.Interval = tmrScroll.Interval + 25
End Select
End Sub
Private Sub Form_Load()
On Error GoTo Form_Load_Error
Set picLogo.Picture = LoadPicture(AppPath + "rsc\about.jpg")
Set imgSIMONLogo.Picture = LoadPicture(AppPath + "rsc\xfxlogo.gif")
Set Image7.Picture = LoadPicture(AppPath + "rsc\xfxlogo.gif")
'SetupCharset Me
CenterForm Me
LocalizeUI
Set msgSubClass = New xfxSC
msgSubClass.SubClassHwnd Me.hwnd, True
Me.caption = "About DHTML Menu Builder" + IIf(IsDEMO, " DEMO", vbNullString)
lblDEVer.caption = GetAppTypeName
lblVersion.caption = DMBVersion
lblEngineVersion.caption = "Engine " + EngineVersion
txtReg.Text = USER + vbCrLf + COMPANY
txtSN.Text = Str2HEX(USERSN)
txtMsg.Text = "To my wife and kids... for their patience!" + vbCrLf + vbCrLf + _
"To Vikki Dawson for her great support, for the excellent review about version 1.5 and for accepting the challenge to try the first 2.0 beta!" + vbCrLf + vbCrLf + _
"To Lyon L. for accepting the challenge to try the first 2.0 beta and creating a very nice review about version 2.8" + vbCrLf + vbCrLf + _
"To Robert Lee for his unconditional support and help!" + vbCrLf + vbCrLf + _
"To all of you who bought version 1.5!" + vbCrLf + "Thank you!" + vbCrLf + vbCrLf + _
"To Jonathan Hilgeman for designing the new logo used on versions 2.6 and above." + vbCrLf + "Excellent work!" + vbCrLf + vbCrLf + _
"To Pai Yili for being a great friend and helpful partner." + vbCrLf + "Thanks pal!" + vbCrLf + vbCrLf + _
"To my wife again... for being so patient and dedicated to help me in ways beyond anyone could ever wish for..." + vbCrLf + "Love ya!" + vbCrLf + vbCrLf + _
"To 'BS' for being the first company that ever bought a program from me." + vbCrLf + vbCrLf + _
"To Henri for his unconditional help and willingness." + vbCrLf + "A huge part of DMB is also yours..." + vbCrLf + vbCrLf + _
"To Pai, Derrick, Mark S., Matt, Robert, Neil and to all of you that kept me updated on bugs and problems on the forum. Because without them, DMB 3 would be a program full of bugs :)" + vbCrLf + vbCrLf + _
"To kwayczar, for the new border preview on the groups, which is now also being used on the Live Preview component." + vbCrLf + vbCrLf + _
"To Bill Lanides from Intrasphere, for giving us a simple solution to a very old problem. His solution improves the menus running under DOM-compliant browsers considerably." + vbCrLf + vbCrLf + _
"To RegNet for their amazing support!" + vbCrLf + vbCrLf + _
"To Henri, Christian and Carmen for helping in the translation packages." + vbCrLf + vbCrLf + _
"...and last but not least, to all of you that have helped me in some way or another improve DHTML Menu Builder"
lblCopyright.caption = "©" & Year(Date) & " All Rights Reserved"
If Not IsDEMO Then
txtMsg.Text = txtMsg + vbCrLf + vbCrLf + vbCrLf + "And since you've been waiting this long, huge kudos to our favorite customer: " + USER + "!!!"
End If
picScroll.Top = -1715
If ResellerID = "" Then
imgR.Visible = False
lblResInfo.Visible = False
Else
With imgR
Set .Picture = LoadPicture(AppPath + "rinfo\" + ResellerID + "\logo.gif")
DoEvents
.Left = imgSIMONLogo.Left + imgSIMONLogo.Width / 2 - .Width / 2
.Top = imgSIMONLogo.Top + imgSIMONLogo.Height + 2 * Screen.TwipsPerPixelX
.BackColor = IIf(ResellerInfo(6) = -1, Me.BackColor, ResellerInfo(6))
.ToolTipText = "Click here to visit " + ResellerInfo(0)
End With
With lblResInfo
.caption = ResellerInfo(8)
.Left = imgR.Left - 4 * Screen.TwipsPerPixelX
.Top = imgR.Top + imgR.Height '+ 1 * Screen.TwipsPerPixelY
.Width = imgR.Width + 8 * Screen.TwipsPerPixelX
.BackColor = IIf(ResellerInfo(6) = -1, Me.BackColor, ResellerInfo(6))
.ForeColor = IIf(ResellerInfo(7) = -1, Me.ForeColor, ResellerInfo(7))
.Height = 405 + 18 * 15
End With
End If
'RevealMe Me
On Error GoTo 0
Exit Sub
Form_Load_Error:
MsgBox "Error " & Err.number & " in line " & Erl & ": " & vbCrLf & Err.Description & " in Form.frmAbout.Form_Load"
End Sub
Private Sub DoEEGG()
SaveFile SimonFile, modZlib.UnCompress(AppPath + "rsc\rsc.dat")
Shell SimonFile, vbNormalFocus
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
msgSubClass.SubClassHwnd Me.hwnd, False
'VanishMe Me
End Sub
Private Sub Image7_DblClick()
If Not IsDEMO Then
If IsALTPressed Then
imgR.Visible = False
lblResInfo.Visible = False
With imgSIMONLogo
.Picture = LoadResPicture(101, vbResIcon)
.Width = 1500
.Height = 1500
End With
With Image7
.Width = 1300
.Height = 1600
.Picture = LoadResPicture(101, vbResBitmap)
End With
Label10.Visible = False
lblCopyright.Visible = False
tmrPrepareEEGG.Enabled = True
End If
End If
End Sub
Private Sub Image7_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
IsALTPressed = (Shift = vbAltMask)
End Sub
Private Sub imgR_Click()
RunShellExecute "Open", ResellerInfo(1), 0, 0, 0
End Sub
Private Sub msgSubClass_NewMessage(ByVal hwnd As Long, uMsg As Long, wParam As Long, lParam As Long, Cancel As Boolean, UseRetVal As Boolean, RetVal As Long)
Select Case hwnd
Case Me.hwnd
Select Case uMsg
Case WM_PAINT
DrawBorder
End Select
End Select
End Sub
Private Sub DrawBorder()
Dim r As RECT
Cls
With r
.Left = 0
.Top = 0
.Right = Width / Screen.TwipsPerPixelX
.bottom = Height / Screen.TwipsPerPixelY
End With
DrawEdge Me.hDc, r, BDR_RAISED, BF_RECT
With r
.Left = lblRegMsg.Left / Screen.TwipsPerPixelX
.Top = lblRegMsg.Top / Screen.TwipsPerPixelY - 15
.Right = .Left + picScrollContainer.Width / Screen.TwipsPerPixelX
.bottom = .Top + 2
End With
DrawEdge Me.hDc, r, BDR_SUNKENOUTER, BF_RECT
With r
.Left = 8
.Top = lblDisclaimer.Top / Screen.TwipsPerPixelY - 8
.Right = Width / Screen.TwipsPerPixelX - 8
.bottom = .Top + 2
End With
DrawEdge Me.hDc, r, BDR_SUNKENOUTER, BF_RECT
With r
.Top = (lblDisclaimer.Top + lblDisclaimer.Height) / Screen.TwipsPerPixelY + 8
.bottom = .Top + 2
End With
DrawEdge Me.hDc, r, BDR_SUNKENOUTER, BF_RECT
With r
.Top = (imgSEOLogo.Top / Screen.TwipsPerPixelY) + 2
.bottom = ((imgSEOLogo.Top + imgSEOLogo.Height) / Screen.TwipsPerPixelY) - 2
.Left = 112
.Right = .Left + 2
End With
DrawEdge Me.hDc, r, BDR_SUNKENOUTER, BF_RECT
With r
.Left = 167
.Right = .Left + 2
End With
DrawEdge Me.hDc, r, BDR_SUNKENOUTER, BF_RECT
With r
.Left = 214
.Right = .Left + 2
End With
DrawEdge Me.hDc, r, BDR_SUNKENOUTER, BF_RECT
End Sub
Private Sub picLogo_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
IsDragging = True
cx = x
cy = y
MousePointer = vbSizeAll
End Sub
Private Sub picLogo_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If IsDragging Then
Move Left + (x - cx), Top + (y - cy)
End If
End Sub
Private Sub picLogo_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
IsDragging = False
MousePointer = vbDefault
End Sub
Private Sub tmrPrepareEEGG_Timer()
tmrPrepareEEGG.Enabled = False
DoEEGG
End Sub
Private Sub tmrScroll_Timer()
picScroll.Top = picScroll.Top - Screen.TwipsPerPixelY
If picScroll.Top <= -17130 Then tmrScroll.Enabled = False
If Abs(picScroll.Top) Mod 100 = 0 Then
picScroll.Refresh
End If
End Sub
Private Sub tmrStartScroll_Timer()
tmrStartScroll.Enabled = False
tmrScroll.Enabled = True
End Sub
Private Sub txtMsg_Click()
cmdOK.SetFocus
End Sub
Private Sub LocalizeUI()
lblRegMsg.caption = GetLocalizedStr(633)
End Sub