By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
444,027 Members | 1,313 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 444,027 IT Pros & Developers. It's quick & easy.

Floor Plan Map

P: n/a
Aloha. I have a Self Storage Company and want to make a floor plan
visual location of all 850 locker units. I have done this before for a
smaller facility with 350 units and I used text boxes and wrote code
and modules for mouse-down and double click and colored boxes to show
if delinquent, etc.

Problem is that I had to edit the textbox code to insert "getUnitInfo
Text110.DefaultValue" 350 times and I am not looking forward to doing
it 850 times now as well as match the correct text box nuimber.
Anyone have any shortcut ideas thanks Frank

May 1 '06 #1
Share this Question
Share on Google+
7 Replies


P: n/a
rkc
spdas wrote:
Problem is that I had to edit the textbox code to insert "getUnitInfo
Text110.DefaultValue" 350 times and I am not looking forward to doing
it 850 times now as well as match the correct text box nuimber.
Anyone have any shortcut ideas thanks Frank

Create a public function in a code module. An example would be:

Public Function SayName()
MsgBox Screen.ActiveControl.Name
End Function

Select all 8000 textbox controls and open the property sheet.
Select the event you want the code to run from and enter
=SayName() in the corresponding textbox in the property sheet.

That or create a class that contains a textbox control and
intercepts and processes whatever events are necessary to
to do whatever it is you want to do. You write the code in
one place and create an instance for each of your 8000 textbox
controls.
May 1 '06 #2

P: n/a
"spdas" <ma********@hawaii.rr.com> wrote in
news:11**********************@j33g2000cwa.googlegr oups.com:
Aloha. I have a Self Storage Company and want to make a floor
plan visual location of all 850 locker units. I have done
this before for a smaller facility with 350 units and I used
text boxes and wrote code and modules for mouse-down and
double click and colored boxes to show if delinquent, etc.

Problem is that I had to edit the textbox code to insert
"getUnitInfo Text110.DefaultValue" 350 times and I am not
looking forward to doing it 850 times now as well as match the
correct text box nuimber. Anyone have any shortcut ideas
thanks Frank

You are going to run into a problem, in that a form cannot have 850
controls on it. However, you could cover all the controls that you
can have with a single user defined function that determines which
control is under the cursor.

--
Bob Quintal

PA is y I've altered my email address.
May 1 '06 #3

P: n/a
spdas wrote:
Problem is that I had to edit the textbox code to insert "getUnitInfo
Text110.DefaultValue" 350 times and I am not looking forward to doing
it 850 times now as well as match the correct text box nuimber.
Anyone have any shortcut ideas thanks Frank


Frank, not an answer (rkc's response is what I'd do) something to consider:

The maximum number of controls Access an handle on a form is 754 - see
Access specifications. Bizarre things start happening with compiling of
code when you exceed this, something I've experienced myself before I'd
realized I'd surpassed this number of controls (relatively easy to do
when your form has lots of tabs).

The way around this is to divide your area into two separate areas, both
on separate forms with an acceptable number of controls. Then create a
new form and plop in the two separate forms as sub forms.

--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me
May 1 '06 #4

P: n/a
Have you considered using Visio as a front end to your Access database? You
can create a realistic layout of your locker units and have the shapes
connected to your Access database.

John... Visio MVP

"spdas" <ma********@hawaii.rr.com> wrote in message
news:11**********************@j33g2000cwa.googlegr oups.com...
Aloha. I have a Self Storage Company and want to make a floor plan
visual location of all 850 locker units. I have done this before for a
smaller facility with 350 units and I used text boxes and wrote code
and modules for mouse-down and double click and colored boxes to show
if delinquent, etc.

Problem is that I had to edit the textbox code to insert "getUnitInfo
Text110.DefaultValue" 350 times and I am not looking forward to doing
it 850 times now as well as match the correct text box nuimber.
Anyone have any shortcut ideas thanks Frank

May 1 '06 #5

P: n/a
"spdas" <ma********@hawaii.rr.com> wrote in news:1146447050.102315.220810
@j33g2000cwa.googlegroups.com:
Aloha. I have a Self Storage Company and want to make a floor plan
visual location of all 850 locker units. I have done this before for a
smaller facility with 350 units and I used text boxes and wrote code
and modules for mouse-down and double click and colored boxes to show
if delinquent, etc.

Problem is that I had to edit the textbox code to insert "getUnitInfo
Text110.DefaultValue" 350 times and I am not looking forward to doing
it 850 times now as well as match the correct text box nuimber.
Anyone have any shortcut ideas thanks Frank


Will a form hold 850 text boxes?

Maybe you could draw your form carefully and check the coordinates of
Mouse_Down?

On the other hand why would writing it out 850 times be a problem?

Private Sub GetUnitInfoText1_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText1.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText2_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText2.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText3_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText3.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText4_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText4.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText5_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText5.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText6_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText6.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText7_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText7.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText8_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText8.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText9_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText9.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText10_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText10.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText11_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText11.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText12_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText12.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText13_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText13.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText14_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText14.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText15_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText15.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText16_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText16.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText17_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText17.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText18_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText18.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText19_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText19.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText20_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText20.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText21_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText21.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText22_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText22.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText23_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText23.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText24_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText24.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText25_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText25.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText26_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText26.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText27_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText27.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText28_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText28.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText29_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText29.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText30_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText30.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText31_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText31.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText32_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText32.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText33_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText33.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText34_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText34.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText35_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText35.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText36_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText36.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText37_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText37.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText38_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText38.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText39_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText39.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText40_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText40.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText41_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText41.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText42_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText42.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText43_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText43.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText44_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText44.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText45_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText45.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText46_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText46.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText47_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText47.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText48_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText48.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText49_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText49.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText50_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText50.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText51_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText51.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText52_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText52.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText53_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText53.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText54_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText54.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText55_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText55.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText56_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText56.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText57_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText57.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText58_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText58.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText59_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText59.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText60_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText60.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText61_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText61.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText62_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText62.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText63_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText63.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText64_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText64.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText65_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText65.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText66_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText66.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText67_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText67.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText68_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText68.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText69_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText69.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText70_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText70.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText71_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText71.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText72_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText72.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText73_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText73.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText74_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText74.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText75_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText75.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText76_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText76.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText77_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText77.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText78_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText78.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText79_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText79.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText80_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText80.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText81_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText81.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText82_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText82.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText83_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText83.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText84_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText84.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText85_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText85.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText86_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText86.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText87_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText87.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText88_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText88.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText89_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText89.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText90_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText90.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText91_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText91.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText92_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText92.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText93_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText93.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText94_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText94.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText95_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText95.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText96_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText96.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText97_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText97.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText98_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText98.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText99_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText99.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText100_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText100.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText101_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText101.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText102_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText102.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText103_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText103.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText104_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText104.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText105_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText105.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText106_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText106.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText107_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText107.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText108_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText108.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText109_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText109.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText110_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText110.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText111_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText111.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText112_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText112.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText113_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText113.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText114_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText114.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText115_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText115.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText116_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText116.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText117_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText117.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText118_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText118.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText119_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText119.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText120_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText120.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText121_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText121.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText122_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText122.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText123_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText123.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText124_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText124.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText125_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText125.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText126_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText126.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText127_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText127.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText128_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText128.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText129_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText129.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText130_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText130.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText131_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText131.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText132_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText132.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText133_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText133.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText134_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText134.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText135_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText135.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText136_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText136.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText137_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText137.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText138_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText138.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText139_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText139.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText140_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText140.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText141_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText141.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText142_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText142.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText143_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText143.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText144_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText144.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText145_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText145.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText146_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText146.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText147_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText147.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText148_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText148.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText149_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText149.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText150_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText150.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText151_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText151.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText152_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText152.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText153_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText153.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText154_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText154.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText155_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText155.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText156_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText156.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText157_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText157.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText158_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText158.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText159_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText159.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText160_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText160.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText161_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText161.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText162_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText162.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText163_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText163.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText164_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText164.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText165_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText165.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText166_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText166.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText167_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText167.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText168_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText168.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText169_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText169.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText170_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText170.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText171_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText171.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText172_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText172.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText173_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText173.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText174_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText174.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText175_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText175.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText176_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText176.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText177_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText177.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText178_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText178.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText179_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText179.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText180_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText180.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText181_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText181.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText182_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText182.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText183_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText183.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText184_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText184.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText185_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText185.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText186_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText186.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText187_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText187.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText188_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText188.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText189_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText189.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText190_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText190.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText191_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText191.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText192_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText192.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText193_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText193.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText194_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText194.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText195_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText195.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText196_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText196.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText197_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText197.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText198_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText198.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText199_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText199.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText200_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText200.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText201_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText201.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText202_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText202.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText203_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText203.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText204_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText204.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText205_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText205.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText206_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText206.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText207_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText207.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText208_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText208.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText209_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText209.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText210_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText210.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText211_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText211.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText212_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText212.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText213_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText213.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText214_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText214.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText215_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText215.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText216_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText216.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText217_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText217.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText218_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText218.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText219_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText219.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText220_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText220.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText221_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText221.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText222_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText222.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText223_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText223.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText224_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText224.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText225_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText225.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText226_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText226.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText227_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText227.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText228_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText228.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText229_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText229.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText230_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText230.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText231_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText231.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText232_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText232.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText233_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText233.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText234_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText234.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText235_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText235.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText236_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText236.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText237_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText237.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText238_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText238.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText239_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText239.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText240_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText240.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText241_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText241.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText242_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText242.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText243_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText243.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText244_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText244.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText245_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText245.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText246_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText246.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText247_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText247.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText248_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText248.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText249_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText249.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText250_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText250.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText251_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText251.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText252_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText252.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText253_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText253.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText254_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText254.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText255_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText255.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText256_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText256.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText257_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText257.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText258_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText258.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText259_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText259.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText260_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText260.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText261_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText261.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText262_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText262.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText263_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText263.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText264_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText264.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText265_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText265.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText266_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText266.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText267_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText267.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText268_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText268.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText269_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText269.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText270_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText270.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText271_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText271.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText272_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText272.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText273_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText273.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText274_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText274.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText275_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText275.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText276_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText276.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText277_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText277.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText278_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText278.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText279_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText279.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText280_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText280.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText281_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText281.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText282_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText282.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText283_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText283.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText284_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText284.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText285_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText285.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText286_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText286.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText287_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText287.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText288_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText288.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText289_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText289.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText290_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText290.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText291_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText291.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText292_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText292.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText293_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText293.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText294_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText294.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText295_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText295.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText296_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText296.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText297_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText297.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText298_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText298.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText299_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText299.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText300_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText300.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText301_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText301.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText302_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText302.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText303_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText303.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText304_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText304.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText305_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText305.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText306_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText306.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText307_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText307.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText308_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText308.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText309_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText309.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText310_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText310.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText311_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText311.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText312_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText312.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText313_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText313.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText314_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText314.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText315_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText315.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText316_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText316.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText317_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText317.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText318_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText318.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText319_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText319.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText320_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText320.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText321_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText321.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText322_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText322.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText323_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText323.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText324_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText324.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText325_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText325.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText326_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText326.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText327_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText327.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText328_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText328.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText329_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText329.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText330_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText330.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText331_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText331.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText332_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText332.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText333_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText333.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText334_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText334.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText335_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText335.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText336_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText336.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText337_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText337.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText338_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText338.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText339_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText339.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText340_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText340.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText341_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText341.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText342_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText342.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText343_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText343.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText344_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText344.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText345_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText345.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText346_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText346.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText347_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText347.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText348_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText348.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText349_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText349.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText350_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText350.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText351_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText351.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText352_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText352.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText353_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText353.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText354_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText354.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText355_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText355.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText356_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText356.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText357_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText357.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText358_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText358.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText359_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText359.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText360_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText360.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText361_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText361.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText362_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText362.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText363_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText363.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText364_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText364.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText365_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText365.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText366_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText366.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText367_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText367.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText368_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText368.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText369_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText369.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText370_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText370.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText371_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText371.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText372_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText372.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText373_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText373.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText374_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText374.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText375_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText375.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText376_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText376.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText377_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText377.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText378_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText378.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText379_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText379.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText380_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText380.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText381_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText381.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText382_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText382.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText383_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText383.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText384_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText384.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText385_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText385.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText386_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText386.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText387_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText387.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText388_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText388.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText389_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText389.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText390_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText390.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText391_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText391.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText392_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText392.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText393_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText393.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText394_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText394.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText395_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText395.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText396_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText396.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText397_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText397.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText398_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText398.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText399_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText399.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText400_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText400.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText401_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText401.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText402_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText402.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText403_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText403.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText404_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText404.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText405_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText405.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText406_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText406.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText407_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText407.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText408_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText408.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText409_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText409.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText410_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText410.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText411_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText411.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText412_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText412.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText413_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText413.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText414_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText414.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText415_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText415.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText416_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText416.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText417_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText417.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText418_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText418.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText419_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText419.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText420_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText420.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText421_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText421.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText422_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText422.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText423_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText423.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText424_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText424.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText425_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText425.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText426_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText426.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText427_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText427.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText428_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText428.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText429_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText429.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText430_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText430.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText431_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText431.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText432_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText432.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText433_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText433.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText434_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText434.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText435_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText435.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText436_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText436.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText437_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText437.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText438_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText438.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText439_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText439.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText440_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText440.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText441_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText441.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText442_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText442.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText443_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText443.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText444_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText444.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText445_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText445.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText446_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText446.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText447_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText447.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText448_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText448.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText449_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText449.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText450_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText450.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText451_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText451.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText452_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText452.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText453_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText453.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText454_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText454.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText455_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText455.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText456_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText456.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText457_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText457.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText458_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText458.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText459_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText459.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText460_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText460.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText461_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText461.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText462_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText462.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText463_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText463.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText464_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText464.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText465_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText465.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText466_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText466.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText467_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText467.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText468_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText468.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText469_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText469.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText470_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText470.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText471_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText471.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText472_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText472.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText473_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText473.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText474_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText474.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText475_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText475.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText476_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText476.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText477_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText477.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText478_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText478.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText479_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText479.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText480_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText480.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText481_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText481.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText482_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText482.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText483_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText483.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText484_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText484.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText485_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText485.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText486_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText486.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText487_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText487.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText488_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText488.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText489_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText489.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText490_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText490.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText491_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText491.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText492_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText492.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText493_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText493.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText494_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText494.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText495_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText495.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText496_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText496.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText497_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText497.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText498_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText498.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText499_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText499.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText500_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText500.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText501_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText501.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText502_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText502.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText503_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText503.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText504_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText504.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText505_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText505.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText506_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText506.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText507_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText507.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText508_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText508.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText509_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText509.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText510_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText510.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText511_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText511.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText512_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText512.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText513_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText513.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText514_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText514.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText515_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText515.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText516_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText516.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText517_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText517.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText518_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText518.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText519_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText519.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText520_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText520.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText521_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText521.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText522_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText522.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText523_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText523.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText524_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText524.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText525_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText525.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText526_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText526.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText527_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText527.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText528_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText528.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText529_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText529.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText530_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText530.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText531_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText531.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText532_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText532.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText533_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText533.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText534_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText534.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText535_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText535.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText536_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText536.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText537_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText537.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText538_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText538.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText539_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText539.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText540_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText540.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText541_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText541.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText542_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText542.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText543_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText543.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText544_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText544.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText545_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText545.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText546_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText546.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText547_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText547.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText548_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText548.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText549_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText549.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText550_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText550.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText551_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText551.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText552_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText552.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText553_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText553.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText554_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText554.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText555_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText555.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText556_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText556.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText557_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText557.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText558_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText558.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText559_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText559.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText560_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText560.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText561_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText561.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText562_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText562.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText563_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText563.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText564_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText564.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText565_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText565.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText566_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText566.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText567_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText567.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText568_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText568.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText569_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText569.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText570_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText570.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText571_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText571.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText572_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText572.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText573_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText573.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText574_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText574.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText575_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText575.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText576_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText576.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText577_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText577.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText578_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText578.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText579_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText579.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText580_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText580.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText581_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText581.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText582_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText582.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText583_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText583.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText584_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText584.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText585_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText585.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText586_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText586.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText587_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText587.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText588_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText588.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText589_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText589.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText590_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText590.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText591_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText591.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText592_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText592.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText593_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText593.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText594_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText594.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText595_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText595.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText596_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText596.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText597_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText597.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText598_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText598.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText599_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText599.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText600_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText600.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText601_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText601.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText602_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText602.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText603_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText603.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText604_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText604.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText605_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText605.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText606_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText606.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText607_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText607.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText608_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText608.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText609_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText609.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText610_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText610.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText611_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText611.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText612_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText612.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText613_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText613.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText614_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText614.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText615_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText615.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText616_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText616.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText617_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText617.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText618_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText618.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText619_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText619.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText620_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText620.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText621_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText621.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText622_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText622.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText623_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText623.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText624_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText624.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText625_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText625.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText626_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText626.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText627_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText627.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText628_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText628.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText629_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText629.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText630_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText630.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText631_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText631.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText632_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText632.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText633_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText633.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText634_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText634.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText635_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText635.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText636_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText636.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText637_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText637.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText638_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText638.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText639_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText639.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText640_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText640.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText641_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText641.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText642_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText642.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText643_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText643.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText644_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText644.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText645_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText645.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText646_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText646.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText647_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText647.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText648_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText648.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText649_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText649.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText650_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText650.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText651_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText651.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText652_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText652.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText653_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText653.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText654_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText654.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText655_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText655.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText656_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText656.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText657_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText657.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText658_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText658.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText659_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText659.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText660_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText660.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText661_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText661.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText662_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText662.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText663_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText663.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText664_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText664.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText665_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText665.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText666_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText666.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText667_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText667.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText668_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText668.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText669_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText669.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText670_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText670.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText671_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText671.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText672_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText672.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText673_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText673.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText674_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText674.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText675_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText675.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText676_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText676.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText677_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText677.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText678_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText678.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText679_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText679.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText680_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText680.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText681_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText681.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText682_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText682.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText683_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText683.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText684_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText684.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText685_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText685.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText686_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText686.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText687_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText687.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText688_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText688.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText689_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText689.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText690_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText690.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText691_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText691.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText692_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText692.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText693_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText693.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText694_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText694.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText695_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText695.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText696_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText696.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText697_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText697.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText698_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText698.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText699_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText699.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText700_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText700.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText701_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText701.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText702_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText702.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText703_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText703.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText704_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText704.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText705_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText705.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText706_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText706.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText707_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText707.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText708_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText708.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText709_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText709.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText710_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText710.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText711_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText711.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText712_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText712.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText713_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText713.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText714_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText714.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText715_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText715.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText716_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText716.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText717_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText717.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText718_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText718.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText719_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText719.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText720_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText720.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText721_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText721.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText722_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText722.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText723_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText723.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText724_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText724.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText725_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText725.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText726_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText726.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText727_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText727.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText728_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText728.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText729_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText729.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText730_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText730.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText731_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText731.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText732_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText732.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText733_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText733.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText734_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText734.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText735_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText735.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText736_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText736.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText737_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText737.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText738_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText738.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText739_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText739.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText740_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText740.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText741_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText741.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText742_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText742.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText743_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText743.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText744_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText744.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText745_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText745.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText746_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText746.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText747_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText747.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText748_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText748.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText749_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText749.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText750_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText750.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText751_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText751.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText752_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText752.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText753_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText753.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText754_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText754.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText755_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText755.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText756_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText756.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText757_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText757.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText758_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText758.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText759_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText759.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText760_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText760.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText761_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText761.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText762_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText762.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText763_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText763.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText764_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText764.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText765_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText765.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText766_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText766.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText767_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText767.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText768_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText768.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText769_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText769.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText770_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText770.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText771_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText771.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText772_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText772.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText773_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText773.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText774_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText774.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText775_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText775.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText776_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText776.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText777_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText777.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText778_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText778.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText779_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText779.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText780_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText780.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText781_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText781.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText782_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText782.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText783_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText783.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText784_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText784.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText785_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText785.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText786_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText786.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText787_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText787.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText788_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText788.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText789_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText789.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText790_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText790.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText791_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText791.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText792_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText792.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText793_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText793.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText794_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText794.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText795_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText795.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText796_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText796.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText797_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText797.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText798_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText798.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText799_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText799.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText800_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText800.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText801_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText801.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText802_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText802.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText803_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText803.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText804_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText804.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText805_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText805.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText806_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText806.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText807_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText807.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText808_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText808.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText809_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText809.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText810_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText810.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText811_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText811.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText812_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText812.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText813_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText813.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText814_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText814.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText815_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText815.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText816_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText816.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText817_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText817.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText818_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText818.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText819_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText819.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText820_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText820.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText821_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText821.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText822_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText822.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText823_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText823.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText824_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText824.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText825_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText825.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText826_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText826.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText827_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText827.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText828_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText828.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText829_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText829.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText830_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText830.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText831_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText831.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText832_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText832.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText833_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText833.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText834_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText834.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText835_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText835.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText836_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText836.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText837_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText837.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText838_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText838.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText839_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText839.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText840_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText840.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText841_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText841.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText842_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText842.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText843_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText843.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText844_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText844.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText845_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText845.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText846_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText846.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText847_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText847.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText848_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText848.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText849_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText849.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText850_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText850.DefaultValue = 12
End Sub
--
Lyle Fairfield
May 1 '06 #6

P: n/a
"spdas" <ma********@hawaii.rr.com> wrote in news:1146447050.102315.220810
@j33g2000cwa.googlegroups.com:
Aloha. I have a Self Storage Company and want to make a floor plan
visual location of all 850 locker units. I have done this before for a
smaller facility with 350 units and I used text boxes and wrote code
and modules for mouse-down and double click and colored boxes to show
if delinquent, etc.

Problem is that I had to edit the textbox code to insert "getUnitInfo
Text110.DefaultValue" 350 times and I am not looking forward to doing
it 850 times now as well as match the correct text box nuimber.
Anyone have any shortcut ideas thanks Frank


Will a form hold 850 text boxes?

Maybe you could draw your form carefully and check the coordinates of
Mouse_Down?

On the other hand why would writing it out 850 times be a problem?

Private Sub GetUnitInfoText1_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText1.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText2_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText2.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText3_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText3.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText4_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText4.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText5_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText5.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText6_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText6.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText7_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText7.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText8_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText8.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText9_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText9.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText10_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText10.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText11_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText11.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText12_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText12.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText13_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText13.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText14_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText14.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText15_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText15.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText16_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText16.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText17_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText17.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText18_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText18.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText19_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText19.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText20_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText20.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText21_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText21.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText22_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText22.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText23_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText23.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText24_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText24.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText25_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText25.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText26_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText26.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText27_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText27.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText28_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText28.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText29_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText29.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText30_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText30.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText31_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText31.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText32_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText32.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText33_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText33.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText34_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText34.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText35_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText35.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText36_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText36.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText37_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText37.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText38_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText38.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText39_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText39.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText40_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText40.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText41_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText41.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText42_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText42.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText43_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText43.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText44_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText44.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText45_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText45.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText46_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText46.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText47_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText47.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText48_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText48.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText49_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText49.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText50_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText50.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText51_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText51.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText52_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText52.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText53_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText53.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText54_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText54.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText55_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText55.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText56_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText56.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText57_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText57.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText58_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText58.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText59_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText59.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText60_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText60.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText61_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText61.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText62_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText62.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText63_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText63.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText64_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText64.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText65_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText65.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText66_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText66.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText67_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText67.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText68_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText68.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText69_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText69.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText70_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText70.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText71_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText71.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText72_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText72.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText73_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText73.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText74_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText74.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText75_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText75.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText76_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText76.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText77_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText77.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText78_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText78.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText79_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText79.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText80_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText80.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText81_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText81.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText82_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText82.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText83_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText83.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText84_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText84.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText85_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText85.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText86_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText86.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText87_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText87.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText88_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText88.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText89_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText89.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText90_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText90.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText91_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText91.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText92_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText92.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText93_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText93.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText94_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText94.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText95_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText95.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText96_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText96.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText97_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText97.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText98_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText98.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText99_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText99.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText100_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText100.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText101_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText101.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText102_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText102.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText103_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText103.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText104_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText104.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText105_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText105.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText106_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText106.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText107_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText107.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText108_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText108.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText109_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText109.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText110_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText110.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText111_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText111.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText112_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText112.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText113_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText113.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText114_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText114.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText115_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText115.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText116_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText116.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText117_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText117.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText118_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText118.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText119_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText119.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText120_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText120.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText121_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText121.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText122_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText122.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText123_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText123.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText124_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText124.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText125_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText125.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText126_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText126.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText127_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText127.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText128_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText128.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText129_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText129.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText130_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText130.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText131_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText131.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText132_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText132.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText133_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText133.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText134_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText134.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText135_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText135.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText136_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText136.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText137_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText137.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText138_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText138.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText139_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText139.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText140_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText140.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText141_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText141.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText142_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText142.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText143_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText143.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText144_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText144.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText145_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText145.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText146_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText146.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText147_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText147.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText148_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText148.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText149_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText149.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText150_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText150.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText151_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText151.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText152_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText152.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText153_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText153.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText154_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText154.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText155_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText155.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText156_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText156.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText157_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText157.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText158_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText158.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText159_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText159.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText160_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText160.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText161_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText161.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText162_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText162.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText163_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText163.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText164_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText164.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText165_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText165.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText166_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText166.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText167_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText167.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText168_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText168.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText169_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText169.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText170_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText170.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText171_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText171.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText172_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText172.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText173_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText173.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText174_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText174.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText175_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText175.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText176_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText176.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText177_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText177.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText178_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText178.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText179_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText179.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText180_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText180.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText181_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText181.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText182_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText182.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText183_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText183.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText184_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText184.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText185_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText185.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText186_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText186.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText187_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText187.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText188_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText188.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText189_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText189.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText190_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText190.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText191_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText191.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText192_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText192.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText193_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText193.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText194_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText194.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText195_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText195.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText196_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText196.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText197_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText197.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText198_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText198.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText199_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText199.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText200_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText200.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText201_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText201.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText202_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText202.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText203_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText203.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText204_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText204.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText205_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText205.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText206_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText206.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText207_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText207.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText208_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText208.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText209_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText209.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText210_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText210.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText211_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText211.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText212_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText212.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText213_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText213.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText214_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText214.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText215_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText215.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText216_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText216.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText217_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText217.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText218_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText218.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText219_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText219.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText220_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText220.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText221_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText221.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText222_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText222.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText223_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText223.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText224_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText224.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText225_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText225.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText226_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText226.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText227_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText227.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText228_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText228.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText229_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText229.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText230_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText230.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText231_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText231.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText232_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText232.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText233_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText233.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText234_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText234.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText235_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText235.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText236_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText236.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText237_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText237.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText238_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText238.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText239_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText239.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText240_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText240.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText241_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText241.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText242_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText242.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText243_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText243.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText244_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText244.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText245_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText245.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText246_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText246.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText247_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText247.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText248_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText248.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText249_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText249.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText250_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText250.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText251_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText251.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText252_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText252.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText253_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText253.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText254_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText254.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText255_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText255.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText256_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText256.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText257_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText257.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText258_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText258.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText259_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText259.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText260_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText260.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText261_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText261.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText262_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText262.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText263_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText263.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText264_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText264.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText265_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText265.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText266_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText266.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText267_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText267.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText268_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText268.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText269_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText269.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText270_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText270.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText271_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText271.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText272_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText272.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText273_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText273.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText274_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText274.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText275_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText275.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText276_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText276.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText277_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText277.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText278_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText278.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText279_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText279.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText280_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText280.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText281_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText281.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText282_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText282.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText283_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText283.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText284_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText284.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText285_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText285.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText286_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText286.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText287_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText287.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText288_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText288.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText289_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText289.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText290_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText290.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText291_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText291.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText292_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText292.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText293_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText293.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText294_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText294.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText295_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText295.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText296_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText296.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText297_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText297.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText298_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText298.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText299_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText299.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText300_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText300.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText301_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText301.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText302_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText302.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText303_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText303.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText304_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText304.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText305_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText305.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText306_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText306.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText307_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText307.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText308_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText308.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText309_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText309.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText310_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText310.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText311_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText311.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText312_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText312.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText313_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText313.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText314_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText314.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText315_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText315.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText316_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText316.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText317_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText317.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText318_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText318.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText319_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText319.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText320_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText320.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText321_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText321.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText322_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText322.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText323_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText323.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText324_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText324.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText325_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText325.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText326_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText326.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText327_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText327.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText328_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText328.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText329_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText329.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText330_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText330.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText331_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText331.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText332_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText332.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText333_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText333.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText334_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText334.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText335_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText335.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText336_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText336.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText337_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText337.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText338_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText338.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText339_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText339.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText340_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText340.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText341_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText341.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText342_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText342.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText343_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText343.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText344_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText344.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText345_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText345.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText346_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText346.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText347_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText347.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText348_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText348.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText349_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText349.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText350_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText350.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText351_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText351.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText352_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText352.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText353_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText353.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText354_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText354.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText355_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText355.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText356_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText356.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText357_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText357.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText358_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText358.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText359_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText359.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText360_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText360.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText361_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText361.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText362_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText362.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText363_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText363.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText364_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText364.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText365_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText365.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText366_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText366.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText367_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText367.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText368_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText368.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText369_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText369.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText370_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText370.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText371_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText371.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText372_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText372.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText373_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText373.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText374_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText374.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText375_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText375.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText376_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText376.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText377_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText377.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText378_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText378.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText379_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText379.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText380_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText380.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText381_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText381.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText382_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText382.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText383_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText383.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText384_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText384.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText385_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText385.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText386_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText386.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText387_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText387.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText388_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText388.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText389_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText389.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText390_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText390.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText391_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText391.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText392_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText392.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText393_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText393.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText394_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText394.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText395_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText395.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText396_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText396.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText397_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText397.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText398_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText398.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText399_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText399.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText400_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText400.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText401_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText401.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText402_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText402.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText403_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText403.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText404_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText404.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText405_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText405.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText406_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText406.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText407_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText407.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText408_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText408.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText409_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText409.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText410_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText410.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText411_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText411.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText412_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText412.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText413_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText413.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText414_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText414.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText415_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText415.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText416_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText416.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText417_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText417.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText418_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText418.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText419_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText419.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText420_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText420.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText421_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText421.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText422_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText422.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText423_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText423.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText424_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText424.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText425_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText425.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText426_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText426.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText427_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText427.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText428_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText428.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText429_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText429.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText430_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText430.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText431_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText431.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText432_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText432.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText433_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText433.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText434_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText434.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText435_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText435.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText436_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText436.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText437_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText437.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText438_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText438.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText439_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText439.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText440_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText440.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText441_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText441.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText442_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText442.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText443_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText443.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText444_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText444.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText445_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText445.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText446_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText446.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText447_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText447.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText448_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText448.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText449_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText449.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText450_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText450.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText451_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText451.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText452_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText452.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText453_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText453.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText454_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText454.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText455_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText455.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText456_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText456.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText457_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText457.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText458_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText458.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText459_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText459.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText460_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText460.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText461_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText461.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText462_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText462.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText463_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText463.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText464_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText464.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText465_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText465.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText466_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText466.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText467_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText467.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText468_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText468.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText469_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText469.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText470_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText470.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText471_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText471.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText472_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText472.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText473_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText473.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText474_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText474.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText475_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText475.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText476_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText476.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText477_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText477.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText478_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText478.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText479_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText479.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText480_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText480.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText481_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText481.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText482_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText482.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText483_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText483.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText484_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText484.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText485_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText485.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText486_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText486.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText487_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText487.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText488_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText488.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText489_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText489.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText490_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText490.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText491_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText491.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText492_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText492.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText493_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText493.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText494_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText494.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText495_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText495.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText496_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText496.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText497_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText497.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText498_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText498.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText499_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText499.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText500_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText500.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText501_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText501.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText502_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText502.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText503_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText503.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText504_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText504.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText505_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText505.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText506_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText506.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText507_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText507.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText508_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText508.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText509_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText509.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText510_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText510.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText511_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText511.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText512_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText512.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText513_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText513.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText514_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText514.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText515_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText515.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText516_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText516.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText517_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText517.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText518_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText518.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText519_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText519.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText520_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText520.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText521_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText521.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText522_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText522.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText523_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText523.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText524_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText524.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText525_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText525.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText526_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText526.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText527_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText527.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText528_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText528.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText529_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText529.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText530_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText530.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText531_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText531.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText532_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText532.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText533_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText533.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText534_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText534.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText535_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText535.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText536_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText536.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText537_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText537.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText538_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText538.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText539_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText539.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText540_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText540.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText541_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText541.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText542_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText542.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText543_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText543.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText544_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText544.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText545_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText545.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText546_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText546.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText547_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText547.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText548_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText548.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText549_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText549.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText550_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText550.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText551_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText551.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText552_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText552.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText553_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText553.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText554_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText554.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText555_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText555.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText556_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText556.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText557_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText557.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText558_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText558.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText559_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText559.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText560_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText560.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText561_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText561.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText562_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText562.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText563_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText563.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText564_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText564.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText565_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText565.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText566_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText566.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText567_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText567.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText568_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText568.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText569_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText569.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText570_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText570.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText571_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText571.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText572_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText572.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText573_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText573.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText574_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText574.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText575_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText575.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText576_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText576.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText577_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText577.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText578_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText578.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText579_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText579.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText580_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText580.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText581_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText581.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText582_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText582.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText583_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText583.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText584_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText584.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText585_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText585.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText586_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText586.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText587_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText587.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText588_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText588.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText589_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText589.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText590_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText590.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText591_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText591.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText592_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText592.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText593_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText593.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText594_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText594.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText595_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText595.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText596_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText596.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText597_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText597.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText598_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText598.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText599_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText599.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText600_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText600.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText601_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText601.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText602_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText602.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText603_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText603.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText604_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText604.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText605_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText605.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText606_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText606.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText607_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText607.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText608_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText608.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText609_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText609.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText610_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText610.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText611_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText611.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText612_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText612.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText613_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText613.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText614_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText614.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText615_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText615.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText616_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText616.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText617_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText617.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText618_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText618.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText619_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText619.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText620_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText620.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText621_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText621.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText622_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText622.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText623_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText623.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText624_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText624.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText625_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText625.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText626_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText626.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText627_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText627.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText628_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText628.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText629_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText629.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText630_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText630.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText631_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText631.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText632_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText632.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText633_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText633.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText634_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText634.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText635_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText635.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText636_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText636.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText637_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText637.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText638_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText638.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText639_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText639.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText640_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText640.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText641_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText641.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText642_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText642.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText643_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText643.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText644_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText644.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText645_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText645.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText646_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText646.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText647_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText647.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText648_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText648.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText649_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText649.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText650_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText650.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText651_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText651.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText652_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText652.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText653_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText653.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText654_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText654.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText655_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText655.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText656_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText656.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText657_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText657.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText658_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText658.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText659_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText659.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText660_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText660.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText661_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText661.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText662_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText662.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText663_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText663.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText664_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText664.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText665_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText665.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText666_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText666.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText667_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText667.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText668_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText668.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText669_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText669.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText670_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText670.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText671_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText671.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText672_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText672.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText673_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText673.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText674_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText674.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText675_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText675.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText676_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText676.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText677_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText677.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText678_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText678.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText679_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText679.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText680_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText680.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText681_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText681.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText682_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText682.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText683_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText683.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText684_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText684.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText685_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText685.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText686_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText686.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText687_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText687.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText688_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText688.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText689_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText689.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText690_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText690.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText691_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText691.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText692_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText692.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText693_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText693.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText694_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText694.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText695_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText695.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText696_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText696.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText697_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText697.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText698_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText698.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText699_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText699.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText700_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText700.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText701_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText701.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText702_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText702.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText703_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText703.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText704_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText704.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText705_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText705.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText706_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText706.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText707_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText707.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText708_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText708.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText709_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText709.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText710_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText710.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText711_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText711.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText712_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText712.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText713_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText713.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText714_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText714.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText715_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText715.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText716_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText716.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText717_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText717.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText718_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText718.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText719_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText719.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText720_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText720.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText721_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText721.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText722_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText722.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText723_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText723.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText724_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText724.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText725_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText725.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText726_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText726.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText727_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText727.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText728_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText728.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText729_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText729.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText730_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText730.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText731_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText731.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText732_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText732.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText733_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText733.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText734_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText734.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText735_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText735.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText736_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText736.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText737_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText737.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText738_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText738.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText739_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText739.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText740_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText740.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText741_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText741.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText742_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText742.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText743_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText743.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText744_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText744.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText745_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText745.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText746_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText746.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText747_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText747.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText748_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText748.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText749_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText749.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText750_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText750.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText751_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText751.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText752_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText752.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText753_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText753.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText754_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText754.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText755_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText755.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText756_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText756.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText757_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText757.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText758_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText758.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText759_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText759.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText760_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText760.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText761_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText761.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText762_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText762.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText763_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText763.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText764_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText764.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText765_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText765.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText766_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText766.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText767_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText767.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText768_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText768.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText769_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText769.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText770_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText770.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText771_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText771.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText772_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText772.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText773_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText773.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText774_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText774.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText775_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText775.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText776_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText776.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText777_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText777.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText778_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText778.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText779_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText779.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText780_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText780.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText781_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText781.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText782_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText782.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText783_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText783.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText784_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText784.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText785_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText785.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText786_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText786.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText787_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText787.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText788_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText788.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText789_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText789.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText790_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText790.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText791_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText791.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText792_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText792.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText793_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText793.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText794_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText794.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText795_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText795.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText796_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText796.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText797_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText797.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText798_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText798.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText799_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText799.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText800_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText800.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText801_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText801.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText802_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText802.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText803_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText803.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText804_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText804.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText805_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText805.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText806_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText806.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText807_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText807.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText808_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText808.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText809_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText809.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText810_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText810.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText811_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText811.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText812_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText812.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText813_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText813.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText814_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText814.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText815_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText815.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText816_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText816.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText817_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText817.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText818_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText818.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText819_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText819.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText820_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText820.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText821_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText821.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText822_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText822.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText823_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText823.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText824_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText824.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText825_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText825.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText826_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText826.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText827_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText827.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText828_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText828.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText829_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText829.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText830_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText830.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText831_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText831.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText832_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText832.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText833_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText833.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText834_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText834.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText835_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText835.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText836_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText836.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText837_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText837.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText838_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText838.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText839_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText839.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText840_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText840.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText841_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText841.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText842_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText842.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText843_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText843.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText844_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText844.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText845_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText845.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText846_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText846.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText847_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText847.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText848_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText848.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText849_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText849.DefaultValue = 12
End Sub

Private Sub GetUnitInfoText850_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
GetUnitInfoText850.DefaultValue = 12
End Sub
--
Lyle Fairfield
May 1 '06 #7

P: n/a
Aloha, thanks all. OK, great I can easily use subforms or even 3
forms to designate three areas of the warehouse. Now to find the time
to do it. Thanks Again.

May 1 '06 #8

This discussion thread is closed

Replies have been disabled for this discussion.