"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