VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3285 ClientLeft = 60 ClientTop = 345 ClientWidth = 5115 LinkTopic = "Form1" ScaleHeight = 3285 ScaleWidth = 5115 StartUpPosition = 3 'Windows Default Begin VB.CommandButton Command1 Caption = "Show Grid Overlay" Height = 375 Left = 3360 TabIndex = 0 Top = 120 Width = 1695 End Begin VB.Line HexLine Index = 285 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 3240 Y2 = 3240 End Begin VB.Line HexLine Index = 284 Visible = 0 'False X1 = 1680 X2 = 1560 Y1 = 3240 Y2 = 3000 End Begin VB.Line HexLine Index = 283 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 3240 Y2 = 3000 End Begin VB.Line HexLine Index = 282 Visible = 0 'False X1 = 2160 X2 = 2040 Y1 = 3000 Y2 = 2760 End Begin VB.Line HexLine Index = 281 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 3000 Y2 = 2760 End Begin VB.Line HexLine Index = 280 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 2760 Y2 = 2760 End Begin VB.Line HexLine Index = 279 Visible = 0 'False X1 = 1200 X2 = 1560 Y1 = 3000 Y2 = 3000 End Begin VB.Line HexLine Index = 278 Visible = 0 'False X1 = 1200 X2 = 1080 Y1 = 3000 Y2 = 2760 End Begin VB.Line HexLine Index = 277 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 3000 Y2 = 2760 End Begin VB.Line HexLine Index = 276 Visible = 0 'False X1 = 1680 X2 = 1560 Y1 = 2760 Y2 = 2520 End Begin VB.Line HexLine Index = 275 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 2760 Y2 = 2520 End Begin VB.Line HexLine Index = 274 Visible = 0 'False X1 = 1200 X2 = 1560 Y1 = 2520 Y2 = 2520 End Begin VB.Line HexLine Index = 273 Visible = 0 'False X1 = 1200 X2 = 1560 Y1 = 600 Y2 = 600 End Begin VB.Line HexLine Index = 272 Visible = 0 'False X1 = 1200 X2 = 1080 Y1 = 600 Y2 = 360 End Begin VB.Line HexLine Index = 271 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 600 Y2 = 360 End Begin VB.Line HexLine Index = 270 Visible = 0 'False X1 = 1680 X2 = 1560 Y1 = 360 Y2 = 120 End Begin VB.Line HexLine Index = 269 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 360 Y2 = 120 End Begin VB.Line HexLine Index = 268 Visible = 0 'False X1 = 1200 X2 = 1560 Y1 = 120 Y2 = 120 End Begin VB.Line HexLine Index = 267 Visible = 0 'False X1 = 2640 X2 = 3000 Y1 = 840 Y2 = 840 End Begin VB.Line HexLine Index = 266 Visible = 0 'False X1 = 2640 X2 = 2520 Y1 = 840 Y2 = 600 End Begin VB.Line HexLine Index = 265 Visible = 0 'False X1 = 3000 X2 = 3120 Y1 = 840 Y2 = 600 End Begin VB.Line HexLine Index = 264 Visible = 0 'False X1 = 3120 X2 = 3000 Y1 = 600 Y2 = 360 End Begin VB.Line HexLine Index = 263 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 600 Y2 = 360 End Begin VB.Line HexLine Index = 262 Visible = 0 'False X1 = 2640 X2 = 3000 Y1 = 360 Y2 = 360 End Begin VB.Line HexLine Index = 261 Visible = 0 'False X1 = 2640 X2 = 3000 Y1 = 1320 Y2 = 1320 End Begin VB.Line HexLine Index = 260 Visible = 0 'False X1 = 2640 X2 = 2520 Y1 = 1320 Y2 = 1080 End Begin VB.Line HexLine Index = 259 Visible = 0 'False X1 = 3000 X2 = 3120 Y1 = 1320 Y2 = 1080 End Begin VB.Line HexLine Index = 258 Visible = 0 'False X1 = 3120 X2 = 3000 Y1 = 1080 Y2 = 840 End Begin VB.Line HexLine Index = 257 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 1080 Y2 = 840 End Begin VB.Line HexLine Index = 256 Visible = 0 'False X1 = 2640 X2 = 3000 Y1 = 840 Y2 = 840 End Begin VB.Line HexLine Index = 255 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 3000 Y2 = 3240 End Begin VB.Line HexLine Index = 254 Visible = 0 'False X1 = 2640 X2 = 3000 Y1 = 3240 Y2 = 3240 End Begin VB.Line HexLine Index = 253 Visible = 0 'False X1 = 3000 X2 = 3120 Y1 = 3240 Y2 = 3000 End Begin VB.Line HexLine Index = 252 Visible = 0 'False X1 = 3120 X2 = 3000 Y1 = 3000 Y2 = 2760 End Begin VB.Line HexLine Index = 251 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 3000 Y2 = 2760 End Begin VB.Line HexLine Index = 250 Visible = 0 'False X1 = 2640 X2 = 3000 Y1 = 2760 Y2 = 2760 End Begin VB.Line HexLine Index = 249 Visible = 0 'False X1 = 3000 X2 = 3120 Y1 = 3240 Y2 = 3000 End Begin VB.Line HexLine Index = 248 Visible = 0 'False X1 = 2640 X2 = 3000 Y1 = 3240 Y2 = 3240 End Begin VB.Line HexLine Index = 247 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 2760 Y2 = 3000 End Begin VB.Line HexLine Index = 246 Visible = 0 'False X1 = 2160 X2 = 2520 Y1 = 3000 Y2 = 3000 End Begin VB.Line HexLine Index = 245 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 3000 Y2 = 2760 End Begin VB.Line HexLine Index = 244 Visible = 0 'False X1 = 2640 X2 = 2520 Y1 = 2760 Y2 = 2520 End Begin VB.Line HexLine Index = 243 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 2760 Y2 = 2520 End Begin VB.Line HexLine Index = 242 Visible = 0 'False X1 = 2160 X2 = 2520 Y1 = 2520 Y2 = 2520 End Begin VB.Line HexLine Index = 241 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 3000 Y2 = 2760 End Begin VB.Line HexLine Index = 240 Visible = 0 'False X1 = 2160 X2 = 2520 Y1 = 3000 Y2 = 3000 End Begin VB.Line HexLine Index = 239 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 2520 Y2 = 2760 End Begin VB.Line HexLine Index = 238 Visible = 0 'False X1 = 2640 X2 = 3000 Y1 = 2760 Y2 = 2760 End Begin VB.Line HexLine Index = 237 Visible = 0 'False X1 = 3000 X2 = 3120 Y1 = 2760 Y2 = 2520 End Begin VB.Line HexLine Index = 236 Visible = 0 'False X1 = 3120 X2 = 3000 Y1 = 2520 Y2 = 2280 End Begin VB.Line HexLine Index = 235 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 2520 Y2 = 2280 End Begin VB.Line HexLine Index = 234 Visible = 0 'False X1 = 2640 X2 = 3000 Y1 = 2280 Y2 = 2280 End Begin VB.Line HexLine Index = 233 Visible = 0 'False X1 = 3000 X2 = 3120 Y1 = 2760 Y2 = 2520 End Begin VB.Line HexLine Index = 232 Visible = 0 'False X1 = 2640 X2 = 3000 Y1 = 2760 Y2 = 2760 End Begin VB.Line HexLine Index = 231 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 2280 Y2 = 2520 End Begin VB.Line HexLine Index = 230 Visible = 0 'False X1 = 2160 X2 = 2520 Y1 = 2520 Y2 = 2520 End Begin VB.Line HexLine Index = 229 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 2520 Y2 = 2280 End Begin VB.Line HexLine Index = 228 Visible = 0 'False X1 = 2640 X2 = 2520 Y1 = 2280 Y2 = 2040 End Begin VB.Line HexLine Index = 227 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 2280 Y2 = 2040 End Begin VB.Line HexLine Index = 226 Visible = 0 'False X1 = 2160 X2 = 2520 Y1 = 2040 Y2 = 2040 End Begin VB.Line HexLine Index = 225 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 2520 Y2 = 2280 End Begin VB.Line HexLine Index = 224 Visible = 0 'False X1 = 2160 X2 = 2520 Y1 = 2520 Y2 = 2520 End Begin VB.Line HexLine Index = 223 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 2040 Y2 = 2280 End Begin VB.Line HexLine Index = 222 Visible = 0 'False X1 = 2640 X2 = 3000 Y1 = 2280 Y2 = 2280 End Begin VB.Line HexLine Index = 221 Visible = 0 'False X1 = 3000 X2 = 3120 Y1 = 2280 Y2 = 2040 End Begin VB.Line HexLine Index = 220 Visible = 0 'False X1 = 3120 X2 = 3000 Y1 = 2040 Y2 = 1800 End Begin VB.Line HexLine Index = 219 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 2040 Y2 = 1800 End Begin VB.Line HexLine Index = 218 Visible = 0 'False X1 = 2640 X2 = 3000 Y1 = 1800 Y2 = 1800 End Begin VB.Line HexLine Index = 217 Visible = 0 'False X1 = 3000 X2 = 3120 Y1 = 2280 Y2 = 2040 End Begin VB.Line HexLine Index = 216 Visible = 0 'False X1 = 2640 X2 = 3000 Y1 = 2280 Y2 = 2280 End Begin VB.Line HexLine Index = 215 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 1800 Y2 = 2040 End Begin VB.Line HexLine Index = 214 Visible = 0 'False X1 = 2160 X2 = 2520 Y1 = 2040 Y2 = 2040 End Begin VB.Line HexLine Index = 213 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 2040 Y2 = 1800 End Begin VB.Line HexLine Index = 212 Visible = 0 'False X1 = 2640 X2 = 2520 Y1 = 1800 Y2 = 1560 End Begin VB.Line HexLine Index = 211 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 1800 Y2 = 1560 End Begin VB.Line HexLine Index = 210 Visible = 0 'False X1 = 2160 X2 = 2520 Y1 = 1560 Y2 = 1560 End Begin VB.Line HexLine Index = 209 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 2040 Y2 = 1800 End Begin VB.Line HexLine Index = 208 Visible = 0 'False X1 = 2160 X2 = 2520 Y1 = 2040 Y2 = 2040 End Begin VB.Line HexLine Index = 207 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 1560 Y2 = 1800 End Begin VB.Line HexLine Index = 206 Visible = 0 'False X1 = 2640 X2 = 3000 Y1 = 1800 Y2 = 1800 End Begin VB.Line HexLine Index = 205 Visible = 0 'False X1 = 3000 X2 = 3120 Y1 = 1800 Y2 = 1560 End Begin VB.Line HexLine Index = 204 Visible = 0 'False X1 = 3120 X2 = 3000 Y1 = 1560 Y2 = 1320 End Begin VB.Line HexLine Index = 203 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 1560 Y2 = 1320 End Begin VB.Line HexLine Index = 202 Visible = 0 'False X1 = 2640 X2 = 3000 Y1 = 1320 Y2 = 1320 End Begin VB.Line HexLine Index = 201 Visible = 0 'False X1 = 3000 X2 = 3120 Y1 = 1800 Y2 = 1560 End Begin VB.Line HexLine Index = 200 Visible = 0 'False X1 = 2640 X2 = 3000 Y1 = 1800 Y2 = 1800 End Begin VB.Line HexLine Index = 199 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 1320 Y2 = 1560 End Begin VB.Line HexLine Index = 198 Visible = 0 'False X1 = 2160 X2 = 2520 Y1 = 1560 Y2 = 1560 End Begin VB.Line HexLine Index = 197 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 1560 Y2 = 1320 End Begin VB.Line HexLine Index = 196 Visible = 0 'False X1 = 2640 X2 = 2520 Y1 = 1320 Y2 = 1080 End Begin VB.Line HexLine Index = 195 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 1320 Y2 = 1080 End Begin VB.Line HexLine Index = 194 Visible = 0 'False X1 = 2160 X2 = 2520 Y1 = 1080 Y2 = 1080 End Begin VB.Line HexLine Index = 193 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 1560 Y2 = 1320 End Begin VB.Line HexLine Index = 192 Visible = 0 'False X1 = 2160 X2 = 2520 Y1 = 1560 Y2 = 1560 End Begin VB.Line HexLine Index = 191 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 840 Y2 = 1080 End Begin VB.Line HexLine Index = 190 Visible = 0 'False X1 = 2160 X2 = 2520 Y1 = 1080 Y2 = 1080 End Begin VB.Line HexLine Index = 189 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 1080 Y2 = 840 End Begin VB.Line HexLine Index = 188 Visible = 0 'False X1 = 2640 X2 = 2520 Y1 = 840 Y2 = 600 End Begin VB.Line HexLine Index = 187 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 840 Y2 = 600 End Begin VB.Line HexLine Index = 186 Visible = 0 'False X1 = 2160 X2 = 2520 Y1 = 600 Y2 = 600 End Begin VB.Line HexLine Index = 185 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 1080 Y2 = 840 End Begin VB.Line HexLine Index = 184 Visible = 0 'False X1 = 2160 X2 = 2520 Y1 = 1080 Y2 = 1080 End Begin VB.Line HexLine Index = 183 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 600 Y2 = 840 End Begin VB.Line HexLine Index = 182 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 840 Y2 = 840 End Begin VB.Line HexLine Index = 181 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 840 Y2 = 600 End Begin VB.Line HexLine Index = 180 Visible = 0 'False X1 = 2160 X2 = 2040 Y1 = 600 Y2 = 360 End Begin VB.Line HexLine Index = 179 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 600 Y2 = 360 End Begin VB.Line HexLine Index = 178 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 360 Y2 = 360 End Begin VB.Line HexLine Index = 177 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 840 Y2 = 600 End Begin VB.Line HexLine Index = 176 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 840 Y2 = 840 End Begin VB.Line HexLine Index = 175 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 360 Y2 = 600 End Begin VB.Line HexLine Index = 174 Visible = 0 'False X1 = 2160 X2 = 2520 Y1 = 600 Y2 = 600 End Begin VB.Line HexLine Index = 173 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 600 Y2 = 360 End Begin VB.Line HexLine Index = 172 Visible = 0 'False X1 = 2640 X2 = 2520 Y1 = 360 Y2 = 120 End Begin VB.Line HexLine Index = 171 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 360 Y2 = 120 End Begin VB.Line HexLine Index = 170 Visible = 0 'False X1 = 2160 X2 = 2520 Y1 = 120 Y2 = 120 End Begin VB.Line HexLine Index = 169 Visible = 0 'False X1 = 2520 X2 = 2640 Y1 = 600 Y2 = 360 End Begin VB.Line HexLine Index = 168 Visible = 0 'False X1 = 2160 X2 = 2520 Y1 = 600 Y2 = 600 End Begin VB.Line HexLine Index = 167 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 120 Y2 = 360 End Begin VB.Line HexLine Index = 166 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 360 Y2 = 360 End Begin VB.Line HexLine Index = 165 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 360 Y2 = 120 End Begin VB.Line HexLine Index = 162 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = -120 Y2 = -120 End Begin VB.Line HexLine Index = 161 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 360 Y2 = 120 End Begin VB.Line HexLine Index = 160 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 360 Y2 = 360 End Begin VB.Line HexLine Index = 159 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 3000 Y2 = 3240 End Begin VB.Line HexLine Index = 158 Visible = 0 'False X1 = 720 X2 = 1080 Y1 = 3240 Y2 = 3240 End Begin VB.Line HexLine Index = 157 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 3240 Y2 = 3000 End Begin VB.Line HexLine Index = 156 Visible = 0 'False X1 = 1200 X2 = 1080 Y1 = 3000 Y2 = 2760 End Begin VB.Line HexLine Index = 155 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 3000 Y2 = 2760 End Begin VB.Line HexLine Index = 154 Visible = 0 'False X1 = 720 X2 = 1080 Y1 = 2760 Y2 = 2760 End Begin VB.Line HexLine Index = 153 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 3240 Y2 = 3000 End Begin VB.Line HexLine Index = 152 Visible = 0 'False X1 = 720 X2 = 1080 Y1 = 3240 Y2 = 3240 End Begin VB.Line HexLine Index = 151 Visible = 0 'False X1 = 120 X2 = 240 Y1 = 2760 Y2 = 3000 End Begin VB.Line HexLine Index = 150 Visible = 0 'False X1 = 240 X2 = 600 Y1 = 3000 Y2 = 3000 End Begin VB.Line HexLine Index = 149 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 3000 Y2 = 2760 End Begin VB.Line HexLine Index = 148 Visible = 0 'False X1 = 720 X2 = 600 Y1 = 2760 Y2 = 2520 End Begin VB.Line HexLine Index = 147 Visible = 0 'False X1 = 120 X2 = 240 Y1 = 2760 Y2 = 2520 End Begin VB.Line HexLine Index = 146 Visible = 0 'False X1 = 240 X2 = 600 Y1 = 2520 Y2 = 2520 End Begin VB.Line HexLine Index = 145 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 3000 Y2 = 2760 End Begin VB.Line HexLine Index = 144 Visible = 0 'False X1 = 240 X2 = 600 Y1 = 3000 Y2 = 3000 End Begin VB.Line HexLine Index = 143 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 2520 Y2 = 2760 End Begin VB.Line HexLine Index = 142 Visible = 0 'False X1 = 720 X2 = 1080 Y1 = 2760 Y2 = 2760 End Begin VB.Line HexLine Index = 141 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 2760 Y2 = 2520 End Begin VB.Line HexLine Index = 140 Visible = 0 'False X1 = 1200 X2 = 1080 Y1 = 2520 Y2 = 2280 End Begin VB.Line HexLine Index = 139 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 2520 Y2 = 2280 End Begin VB.Line HexLine Index = 138 Visible = 0 'False X1 = 720 X2 = 1080 Y1 = 2280 Y2 = 2280 End Begin VB.Line HexLine Index = 137 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 2760 Y2 = 2520 End Begin VB.Line HexLine Index = 136 Visible = 0 'False X1 = 720 X2 = 1080 Y1 = 2760 Y2 = 2760 End Begin VB.Line HexLine Index = 135 Visible = 0 'False X1 = 120 X2 = 240 Y1 = 2280 Y2 = 2520 End Begin VB.Line HexLine Index = 134 Visible = 0 'False X1 = 240 X2 = 600 Y1 = 2520 Y2 = 2520 End Begin VB.Line HexLine Index = 133 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 2520 Y2 = 2280 End Begin VB.Line HexLine Index = 132 Visible = 0 'False X1 = 720 X2 = 600 Y1 = 2280 Y2 = 2040 End Begin VB.Line HexLine Index = 131 Visible = 0 'False X1 = 120 X2 = 240 Y1 = 2280 Y2 = 2040 End Begin VB.Line HexLine Index = 130 Visible = 0 'False X1 = 240 X2 = 600 Y1 = 2040 Y2 = 2040 End Begin VB.Line HexLine Index = 129 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 2520 Y2 = 2280 End Begin VB.Line HexLine Index = 128 Visible = 0 'False X1 = 240 X2 = 600 Y1 = 2520 Y2 = 2520 End Begin VB.Line HexLine Index = 127 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 2520 Y2 = 2760 End Begin VB.Line HexLine Index = 126 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 2760 Y2 = 2760 End Begin VB.Line HexLine Index = 125 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 2760 Y2 = 2520 End Begin VB.Line HexLine Index = 124 Visible = 0 'False X1 = 2160 X2 = 2040 Y1 = 2520 Y2 = 2280 End Begin VB.Line HexLine Index = 123 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 2520 Y2 = 2280 End Begin VB.Line HexLine Index = 122 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 2280 Y2 = 2280 End Begin VB.Line HexLine Index = 121 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 2760 Y2 = 2520 End Begin VB.Line HexLine Index = 120 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 2760 Y2 = 2760 End Begin VB.Line HexLine Index = 119 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 2280 Y2 = 2520 End Begin VB.Line HexLine Index = 118 Visible = 0 'False X1 = 1200 X2 = 1560 Y1 = 2520 Y2 = 2520 End Begin VB.Line HexLine Index = 117 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 2520 Y2 = 2280 End Begin VB.Line HexLine Index = 116 Visible = 0 'False X1 = 1680 X2 = 1560 Y1 = 2280 Y2 = 2040 End Begin VB.Line HexLine Index = 115 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 2280 Y2 = 2040 End Begin VB.Line HexLine Index = 114 Visible = 0 'False X1 = 1200 X2 = 1560 Y1 = 2040 Y2 = 2040 End Begin VB.Line HexLine Index = 113 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 2520 Y2 = 2280 End Begin VB.Line HexLine Index = 112 Visible = 0 'False X1 = 1200 X2 = 1560 Y1 = 2520 Y2 = 2520 End Begin VB.Line HexLine Index = 111 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 2040 Y2 = 2280 End Begin VB.Line HexLine Index = 110 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 2280 Y2 = 2280 End Begin VB.Line HexLine Index = 109 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 2280 Y2 = 2040 End Begin VB.Line HexLine Index = 108 Visible = 0 'False X1 = 2160 X2 = 2040 Y1 = 2040 Y2 = 1800 End Begin VB.Line HexLine Index = 107 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 2040 Y2 = 1800 End Begin VB.Line HexLine Index = 106 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 1800 Y2 = 1800 End Begin VB.Line HexLine Index = 105 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 2280 Y2 = 2040 End Begin VB.Line HexLine Index = 104 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 2280 Y2 = 2280 End Begin VB.Line HexLine Index = 103 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 1800 Y2 = 2040 End Begin VB.Line HexLine Index = 102 Visible = 0 'False X1 = 1200 X2 = 1560 Y1 = 2040 Y2 = 2040 End Begin VB.Line HexLine Index = 101 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 2040 Y2 = 1800 End Begin VB.Line HexLine Index = 100 Visible = 0 'False X1 = 1680 X2 = 1560 Y1 = 1800 Y2 = 1560 End Begin VB.Line HexLine Index = 99 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 1800 Y2 = 1560 End Begin VB.Line HexLine Index = 98 Visible = 0 'False X1 = 1200 X2 = 1560 Y1 = 1560 Y2 = 1560 End Begin VB.Line HexLine Index = 97 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 2040 Y2 = 1800 End Begin VB.Line HexLine Index = 96 Visible = 0 'False X1 = 1200 X2 = 1560 Y1 = 2040 Y2 = 2040 End Begin VB.Line HexLine Index = 95 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 1560 Y2 = 1800 End Begin VB.Line HexLine Index = 94 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 1800 Y2 = 1800 End Begin VB.Line HexLine Index = 93 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 1800 Y2 = 1560 End Begin VB.Line HexLine Index = 92 Visible = 0 'False X1 = 2160 X2 = 2040 Y1 = 1560 Y2 = 1320 End Begin VB.Line HexLine Index = 91 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 1560 Y2 = 1320 End Begin VB.Line HexLine Index = 90 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 1320 Y2 = 1320 End Begin VB.Line HexLine Index = 89 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 1800 Y2 = 1560 End Begin VB.Line HexLine Index = 88 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 1800 Y2 = 1800 End Begin VB.Line HexLine Index = 87 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 1320 Y2 = 1560 End Begin VB.Line HexLine Index = 86 Visible = 0 'False X1 = 1200 X2 = 1560 Y1 = 1560 Y2 = 1560 End Begin VB.Line HexLine Index = 85 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 1560 Y2 = 1320 End Begin VB.Line HexLine Index = 84 Visible = 0 'False X1 = 1680 X2 = 1560 Y1 = 1320 Y2 = 1080 End Begin VB.Line HexLine Index = 83 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 1320 Y2 = 1080 End Begin VB.Line HexLine Index = 82 Visible = 0 'False X1 = 1200 X2 = 1560 Y1 = 1080 Y2 = 1080 End Begin VB.Line HexLine Index = 81 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 1560 Y2 = 1320 End Begin VB.Line HexLine Index = 80 Visible = 0 'False X1 = 1200 X2 = 1560 Y1 = 1560 Y2 = 1560 End Begin VB.Line HexLine Index = 79 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 1080 Y2 = 1320 End Begin VB.Line HexLine Index = 78 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 1320 Y2 = 1320 End Begin VB.Line HexLine Index = 77 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 1320 Y2 = 1080 End Begin VB.Line HexLine Index = 76 Visible = 0 'False X1 = 2160 X2 = 2040 Y1 = 1080 Y2 = 840 End Begin VB.Line HexLine Index = 75 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 1080 Y2 = 840 End Begin VB.Line HexLine Index = 74 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 840 Y2 = 840 End Begin VB.Line HexLine Index = 73 Visible = 0 'False X1 = 2040 X2 = 2160 Y1 = 1320 Y2 = 1080 End Begin VB.Line HexLine Index = 72 Visible = 0 'False X1 = 1680 X2 = 2040 Y1 = 1320 Y2 = 1320 End Begin VB.Line HexLine Index = 71 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 840 Y2 = 1080 End Begin VB.Line HexLine Index = 70 Visible = 0 'False X1 = 1200 X2 = 1560 Y1 = 1080 Y2 = 1080 End Begin VB.Line HexLine Index = 69 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 1080 Y2 = 840 End Begin VB.Line HexLine Index = 68 Visible = 0 'False X1 = 1680 X2 = 1560 Y1 = 840 Y2 = 600 End Begin VB.Line HexLine Index = 67 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 840 Y2 = 600 End Begin VB.Line HexLine Index = 66 Visible = 0 'False X1 = 1200 X2 = 1560 Y1 = 600 Y2 = 600 End Begin VB.Line HexLine Index = 65 Visible = 0 'False X1 = 1560 X2 = 1680 Y1 = 1080 Y2 = 840 End Begin VB.Line HexLine Index = 64 Visible = 0 'False X1 = 1200 X2 = 1560 Y1 = 1080 Y2 = 1080 End Begin VB.Line HexLine Index = 63 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 2040 Y2 = 2280 End Begin VB.Line HexLine Index = 62 Visible = 0 'False X1 = 720 X2 = 1080 Y1 = 2280 Y2 = 2280 End Begin VB.Line HexLine Index = 61 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 2280 Y2 = 2040 End Begin VB.Line HexLine Index = 60 Visible = 0 'False X1 = 1200 X2 = 1080 Y1 = 2040 Y2 = 1800 End Begin VB.Line HexLine Index = 59 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 2040 Y2 = 1800 End Begin VB.Line HexLine Index = 58 Visible = 0 'False X1 = 720 X2 = 1080 Y1 = 1800 Y2 = 1800 End Begin VB.Line HexLine Index = 57 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 2280 Y2 = 2040 End Begin VB.Line HexLine Index = 56 Visible = 0 'False X1 = 720 X2 = 1080 Y1 = 2280 Y2 = 2280 End Begin VB.Line HexLine Index = 55 Visible = 0 'False X1 = 120 X2 = 240 Y1 = 1800 Y2 = 2040 End Begin VB.Line HexLine Index = 54 Visible = 0 'False X1 = 240 X2 = 600 Y1 = 2040 Y2 = 2040 End Begin VB.Line HexLine Index = 53 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 2040 Y2 = 1800 End Begin VB.Line HexLine Index = 52 Visible = 0 'False X1 = 720 X2 = 600 Y1 = 1800 Y2 = 1560 End Begin VB.Line HexLine Index = 51 Visible = 0 'False X1 = 120 X2 = 240 Y1 = 1800 Y2 = 1560 End Begin VB.Line HexLine Index = 50 Visible = 0 'False X1 = 240 X2 = 600 Y1 = 1560 Y2 = 1560 End Begin VB.Line HexLine Index = 49 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 2040 Y2 = 1800 End Begin VB.Line HexLine Index = 48 Visible = 0 'False X1 = 240 X2 = 600 Y1 = 2040 Y2 = 2040 End Begin VB.Line HexLine Index = 47 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 1560 Y2 = 1800 End Begin VB.Line HexLine Index = 46 Visible = 0 'False X1 = 720 X2 = 1080 Y1 = 1800 Y2 = 1800 End Begin VB.Line HexLine Index = 45 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 1800 Y2 = 1560 End Begin VB.Line HexLine Index = 44 Visible = 0 'False X1 = 1200 X2 = 1080 Y1 = 1560 Y2 = 1320 End Begin VB.Line HexLine Index = 43 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 1560 Y2 = 1320 End Begin VB.Line HexLine Index = 42 Visible = 0 'False X1 = 720 X2 = 1080 Y1 = 1320 Y2 = 1320 End Begin VB.Line HexLine Index = 41 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 1800 Y2 = 1560 End Begin VB.Line HexLine Index = 40 Visible = 0 'False X1 = 720 X2 = 1080 Y1 = 1800 Y2 = 1800 End Begin VB.Line HexLine Index = 39 Visible = 0 'False X1 = 120 X2 = 240 Y1 = 1320 Y2 = 1560 End Begin VB.Line HexLine Index = 38 Visible = 0 'False X1 = 240 X2 = 600 Y1 = 1560 Y2 = 1560 End Begin VB.Line HexLine Index = 37 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 1560 Y2 = 1320 End Begin VB.Line HexLine Index = 36 Visible = 0 'False X1 = 720 X2 = 600 Y1 = 1320 Y2 = 1080 End Begin VB.Line HexLine Index = 35 Visible = 0 'False X1 = 120 X2 = 240 Y1 = 1320 Y2 = 1080 End Begin VB.Line HexLine Index = 34 Visible = 0 'False X1 = 240 X2 = 600 Y1 = 1080 Y2 = 1080 End Begin VB.Line HexLine Index = 33 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 1560 Y2 = 1320 End Begin VB.Line HexLine Index = 32 Visible = 0 'False X1 = 240 X2 = 600 Y1 = 1560 Y2 = 1560 End Begin VB.Line HexLine Index = 31 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 1080 Y2 = 1320 End Begin VB.Line HexLine Index = 30 Visible = 0 'False X1 = 720 X2 = 1080 Y1 = 1320 Y2 = 1320 End Begin VB.Line HexLine Index = 29 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 1320 Y2 = 1080 End Begin VB.Line HexLine Index = 28 Visible = 0 'False X1 = 1200 X2 = 1080 Y1 = 1080 Y2 = 840 End Begin VB.Line HexLine Index = 27 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 1080 Y2 = 840 End Begin VB.Line HexLine Index = 26 Visible = 0 'False X1 = 720 X2 = 1080 Y1 = 840 Y2 = 840 End Begin VB.Line HexLine Index = 25 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 1320 Y2 = 1080 End Begin VB.Line HexLine Index = 24 Visible = 0 'False X1 = 720 X2 = 1080 Y1 = 1320 Y2 = 1320 End Begin VB.Line HexLine Index = 23 Visible = 0 'False X1 = 120 X2 = 240 Y1 = 840 Y2 = 1080 End Begin VB.Line HexLine Index = 22 Visible = 0 'False X1 = 240 X2 = 600 Y1 = 1080 Y2 = 1080 End Begin VB.Line HexLine Index = 21 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 1080 Y2 = 840 End Begin VB.Line HexLine Index = 20 Visible = 0 'False X1 = 720 X2 = 600 Y1 = 840 Y2 = 600 End Begin VB.Line HexLine Index = 19 Visible = 0 'False X1 = 120 X2 = 240 Y1 = 840 Y2 = 600 End Begin VB.Line HexLine Index = 18 Visible = 0 'False X1 = 240 X2 = 600 Y1 = 600 Y2 = 600 End Begin VB.Line HexLine Index = 16 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 1080 Y2 = 840 End Begin VB.Line HexLine Index = 15 Visible = 0 'False X1 = 240 X2 = 600 Y1 = 1080 Y2 = 1080 End Begin VB.Line HexLine Index = 14 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 600 Y2 = 840 End Begin VB.Line HexLine Index = 13 Visible = 0 'False X1 = 720 X2 = 1080 Y1 = 840 Y2 = 840 End Begin VB.Line HexLine Index = 12 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 840 Y2 = 600 End Begin VB.Line HexLine Index = 11 Visible = 0 'False X1 = 1200 X2 = 1080 Y1 = 600 Y2 = 360 End Begin VB.Line HexLine Index = 9 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 600 Y2 = 360 End Begin VB.Line HexLine Index = 8 Visible = 0 'False X1 = 720 X2 = 1080 Y1 = 360 Y2 = 360 End Begin VB.Line HexLine Index = 4 Visible = 0 'False X1 = 1080 X2 = 1200 Y1 = 840 Y2 = 600 End Begin VB.Line HexLine Index = 3 Visible = 0 'False X1 = 720 X2 = 1080 Y1 = 840 Y2 = 840 End Begin VB.Line HexLine Index = 17 Visible = 0 'False X1 = 240 X2 = 600 Y1 = 600 Y2 = 600 End Begin VB.Line HexLine Index = 10 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 600 Y2 = 360 End Begin VB.Line HexLine Index = 7 Visible = 0 'False X1 = 240 X2 = 600 Y1 = 120 Y2 = 120 End Begin VB.Line HexLine Index = 6 Visible = 0 'False X1 = 120 X2 = 240 Y1 = 360 Y2 = 120 End Begin VB.Line HexLine Index = 5 Visible = 0 'False X1 = 720 X2 = 600 Y1 = 360 Y2 = 120 End Begin VB.Line HexLine Index = 2 Visible = 0 'False X1 = 600 X2 = 720 Y1 = 600 Y2 = 360 End Begin VB.Line HexLine Index = 1 Visible = 0 'False X1 = 240 X2 = 600 Y1 = 600 Y2 = 600 End Begin VB.Line HexLine Index = 0 Visible = 0 'False X1 = 120 X2 = 240 Y1 = 360 Y2 = 600 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() Dim VarBool As Boolean Select Case Command1.Caption Case "Show Grid Overlay": VarBool = True Command1.Caption = "Hide Grid Overlay" Case "Hide Grid Overlay": VarBool = False Command1.Caption = "Show Grid Overlay" End Select Dim i As Long For i = 0 To HexLine.UBound If (i <> 163) And (i <> 164) Then HexLine(i).Visible = VarBool Next i End Sub