1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
|
Public Class Skindows_95
Private Sub Skindows_95_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
look.Start()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Windows95.exampleprogramtopbar.BackColor = exampletopbar.BackColor
Windows95.exampleprogramtopbar.BackgroundImage = exampletopbar.BackgroundImage
Me.programname.BackColor = Windows95.exampleprogramtext.BackColor
End Sub
Private Sub Panel15_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel15.Click
exampletopbar.BackgroundImage = Nothing
End Sub
Private Sub Panel16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel16.Click
exampletopbar.BackgroundImage = My.Resources.skindowsskybar2
End Sub
Private Sub Panel17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel17.Click
exampletopbar.BackgroundImage = My.Resources.skindowsfirebar2
End Sub
Private Sub Panel18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel18.Click
exampletopbar.BackgroundImage = My.Resources.skindowsgrassbar
End Sub
Private Sub Panel19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel19.Click
exampletopbar.BackgroundImage = My.Resources.skindowslightingbar
End Sub
Private Sub Panel20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel20.Click
exampletopbar.BackgroundImage = My.Resources.skindowswaterbar
End Sub
Private Sub Panel21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel21.Click
exampletopbar.BackgroundImage = My.Resources.skindowsconcrete
End Sub
Private Sub Panel22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel22.Click
exampletopbar.BackgroundImage = My.Resources.skindowsbinary
End Sub
Private Sub Panel23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel23.Click
exampletopbar.BackgroundImage = My.Resources.skindowdirt
End Sub
Private Sub Panel15_paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel15.Paint
exampletopbar.BackgroundImage = Nothing
End Sub
Private Sub Panel16_paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel16.Paint
exampletopbar.BackgroundImage = My.Resources.skindowsskybar2
End Sub
Private Sub Panel17_paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel17.Paint
exampletopbar.BackgroundImage = My.Resources.skindowsfirebar2
End Sub
Private Sub Panel18_paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel18.Paint
exampletopbar.BackgroundImage = My.Resources.skindowsgrassbar
End Sub
Private Sub Panel19_paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel19.Paint
exampletopbar.BackgroundImage = My.Resources.skindowslightingbar
End Sub
Private Sub Panel20_paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel20.Paint
exampletopbar.BackgroundImage = My.Resources.skindowswaterbar
End Sub
Private Sub Panel21_paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel21.Paint
exampletopbar.BackgroundImage = My.Resources.skindowsconcrete
End Sub
Private Sub Panel22_paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel22.Paint
exampletopbar.BackgroundImage = My.Resources.skindowsbinary
End Sub
Private Sub Panel23_paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel23.Paint
exampletopbar.BackgroundImage = My.Resources.skindowdirt
End Sub
Private Sub Panel144_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel144.Paint
exampletopbar.BackColor = Color.Black
End Sub
Private Sub Panel145_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel145.Paint
exampletopbar.BackColor = Color.White
End Sub
Private Sub Panel147_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel147.Paint
exampletopbar.BackColor = Color.DimGray
End Sub
Private Sub Panel146_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel146.Paint
exampletopbar.BackColor = Color.Gray
End Sub
Private Sub Panel152_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel152.Paint
exampletopbar.BackColor = Color.DarkGray
End Sub
Private Sub Panel149_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel149.Paint
exampletopbar.BackColor = Color.Silver
End Sub
Private Sub Panel150_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel150.Paint
exampletopbar.BackColor = Color.LightGray
End Sub
Private Sub Pane148_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel148.Paint
exampletopbar.BackColor = Color.Gainsboro
End Sub
Private Sub Panel60_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel60.Paint
exampletopbar.BackColor = Color.WhiteSmoke
End Sub
Private Sub Panel62_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel62.Paint
exampletopbar.BackColor = Color.Maroon
End Sub
Private Sub Panel61_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel61.Paint
exampletopbar.BackColor = Color.DarkRed
End Sub
Private Sub Panel66_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel66.Paint
exampletopbar.BackColor = Color.Red
End Sub
Private Sub Panel64_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel64.Paint
exampletopbar.BackColor = Color.Brown
End Sub
Private Sub Panel65_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel65.Paint
exampletopbar.BackColor = Color.Firebrick
End Sub
Private Sub Panel63_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel63.Paint
exampletopbar.BackColor = Color.IndianRed
End Sub
Private Sub Panel67_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel67.Paint
exampletopbar.BackColor = Color.Snow
End Sub
Private Sub Panel68_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel68.Paint
exampletopbar.BackColor = Color.LightCoral
End Sub
Private Sub Panel151_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel151.Paint
exampletopbar.BackColor = Color.RosyBrown
End Sub
Private Sub Panel75_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel75.Paint
exampletopbar.BackColor = Color.MistyRose
End Sub
Private Sub Panel141_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel141.Paint
exampletopbar.BackColor = Color.Salmon
End Sub
Private Sub Panel139_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel139.Paint
exampletopbar.BackColor = Color.Tomato
End Sub
Private Sub Panel137_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel137.Paint
exampletopbar.BackColor = Color.DarkSalmon
End Sub
Private Sub Panel142_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel142.Paint
exampletopbar.BackColor = Color.Coral
End Sub
Private Sub Panel140_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel140.Paint
exampletopbar.BackColor = Color.OrangeRed
End Sub
Private Sub Panel138_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel138.Paint
exampletopbar.BackColor = Color.LightSalmon
End Sub
Private Sub Panel135_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel135.Paint
exampletopbar.BackColor = Color.Sienna
End Sub
Private Sub Panel136_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel136.Paint
exampletopbar.BackColor = Color.SeaShell
End Sub
Private Sub Panel134_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel134.Paint
exampletopbar.BackColor = Color.Chocolate
End Sub
Private Sub Panel133_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel133.Paint
exampletopbar.BackColor = Color.SaddleBrown
End Sub
Private Sub Panel129_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel129.Paint
exampletopbar.BackColor = Color.SandyBrown
End Sub
Private Sub Panel131_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel131.Paint
exampletopbar.BackColor = Color.PeachPuff
End Sub
Private Sub Panel125_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel125.Paint
exampletopbar.BackColor = Color.Peru
End Sub
Private Sub Panel132_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel132.Paint
exampletopbar.BackColor = Color.Linen
End Sub
Private Sub Panel127_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel127.Paint
exampletopbar.BackColor = Color.Bisque
End Sub
Private Sub Panel130_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel130.Paint
exampletopbar.BackColor = Color.DarkOrange
End Sub
Private Sub Panel123_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel123.Paint
exampletopbar.BackColor = Color.BurlyWood
End Sub
Private Sub Panel128_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel128.Paint
exampletopbar.BackColor = Color.Tan
End Sub
Private Sub Panel124_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel124.Paint
exampletopbar.BackColor = Color.AntiqueWhite
End Sub
Private Sub Panel126_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel126.Paint
exampletopbar.BackColor = Color.NavajoWhite
End Sub
Private Sub Panel122_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel122.Paint
exampletopbar.BackColor = Color.BlanchedAlmond
End Sub
Private Sub Panel120_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel120.Paint
exampletopbar.BackColor = Color.PapayaWhip
End Sub
Private Sub Panel121_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel121.Paint
exampletopbar.BackColor = Color.Moccasin
End Sub
Private Sub Panel119_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel119.Paint
exampletopbar.BackColor = Color.Orange
End Sub
Private Sub Panel166_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel166.Paint
exampletopbar.BackColor = Color.Wheat
End Sub
Private Sub Panel164_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel164.Paint
exampletopbar.BackColor = Color.OldLace
End Sub
Private Sub Panel165_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel165.Paint
exampletopbar.BackColor = Color.FloralWhite
End Sub
Private Sub Panel163_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel163.Paint
exampletopbar.BackColor = Color.DarkGoldenrod
End Sub
Private Sub Panel169_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel169.Paint
exampletopbar.BackColor = Color.Goldenrod
End Sub
Private Sub Panel168_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel168.Paint
exampletopbar.BackColor = Color.Cornsilk
End Sub
Private Sub Panel167_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel167.Paint
exampletopbar.BackColor = Color.Gold
End Sub
Private Sub Panel143_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel143.Paint
exampletopbar.BackColor = Color.Khaki
End Sub
Private Sub Panel171_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel171.Paint
exampletopbar.BackColor = Color.LemonChiffon
End Sub
Private Sub Panel170_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel170.Paint
exampletopbar.BackColor = Color.PaleGoldenrod
End Sub
Private Sub Panel175_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel175.Paint
exampletopbar.BackColor = Color.DarkKhaki
End Sub
Private Sub Panel173_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel173.Paint
exampletopbar.BackColor = Color.Beige
End Sub
Private Sub Panel174_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel174.Paint
exampletopbar.BackColor = Color.LightGoldenrodYellow
End Sub
Private Sub Panel172_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel172.Paint
exampletopbar.BackColor = Color.Olive
End Sub
Private Sub Panel176_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel176.Paint
exampletopbar.BackColor = Color.Yellow
End Sub
Private Sub Panel178_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel178.Paint
exampletopbar.BackColor = Color.LightYellow
End Sub
Private Sub Panel177_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel177.Paint
exampletopbar.BackColor = Color.Ivory
End Sub
Private Sub Panel182_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel182.Paint
exampletopbar.BackColor = Color.OliveDrab
End Sub
Private Sub Panel180_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel180.Paint
exampletopbar.BackColor = Color.YellowGreen
End Sub
Private Sub Panel181_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel181.Paint
exampletopbar.BackColor = Color.DarkOliveGreen
End Sub
Private Sub Panel179_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel179.Paint
exampletopbar.BackColor = Color.GreenYellow
End Sub
Private Sub Panel186_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel186.Paint
exampletopbar.BackColor = Color.Chartreuse
End Sub
Private Sub Panel184_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel184.Paint
exampletopbar.BackColor = Color.LawnGreen
End Sub
Private Sub Panel185_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel185.Paint
exampletopbar.BackColor = Color.DarkSeaGreen
End Sub
Private Sub Panel183_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel183.Paint
exampletopbar.BackColor = Color.LightGreen
End Sub
Private Sub Panel190_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel190.Paint
exampletopbar.BackColor = Color.ForestGreen
End Sub
Private Sub Panel188_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel188.Paint
exampletopbar.BackColor = Color.LimeGreen
End Sub
Private Sub Panel189_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel189.Paint
exampletopbar.BackColor = Color.PaleGreen
End Sub
Private Sub Panel187_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel187.Paint
exampletopbar.BackColor = Color.DarkGreen
End Sub
Private Sub Panel194_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel194.Paint
exampletopbar.BackColor = Color.Green
End Sub
Private Sub Panel192_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel192.Paint
exampletopbar.BackColor = Color.Lime
End Sub
Private Sub Panel193_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel193.Paint
exampletopbar.BackColor = Color.Honeydew
End Sub
Private Sub Panel191_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel191.Paint
exampletopbar.BackColor = Color.SeaGreen
End Sub
Private Sub Panel198_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel198.Paint
exampletopbar.BackColor = Color.MediumSeaGreen
End Sub
Private Sub Panel196_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel196.Paint
exampletopbar.BackColor = Color.SpringGreen
End Sub
Private Sub Panel197_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel197.Paint
exampletopbar.BackColor = Color.MintCream
End Sub
Private Sub Panel195_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel195.Paint
exampletopbar.BackColor = Color.MediumSeaGreen
End Sub
Private Sub Panel202_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel202.Paint
exampletopbar.BackColor = Color.MediumAquamarine
End Sub
Private Sub Panel200_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel200.Paint
exampletopbar.BackColor = Color.Aquamarine
End Sub
Private Sub Panel201_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel201.Paint
exampletopbar.BackColor = Color.Turquoise
End Sub
Private Sub Panel199_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel199.Paint
exampletopbar.BackColor = Color.LightSeaGreen
End Sub
Private Sub Panel203_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel203.Paint
exampletopbar.BackColor = Color.MediumTurquoise
End Sub
Private Sub Panel205_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel205.Paint
exampletopbar.BackColor = Color.DarkSlateGray
End Sub
Private Sub Panel204_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel204.Paint
exampletopbar.BackColor = Color.PaleTurquoise
End Sub
Private Sub Panel209_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel209.Paint
exampletopbar.BackColor = Color.Teal
End Sub
Private Sub Panel207_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel207.Paint
exampletopbar.BackColor = Color.DarkCyan
End Sub
Private Sub Panel208_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel208.Paint
exampletopbar.BackColor = Color.Cyan
End Sub
Private Sub Panel206_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel206.Paint
exampletopbar.BackColor = Color.Aqua
End Sub
Private Sub Panel213_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel213.Paint
exampletopbar.BackColor = Color.LightCyan
End Sub
Private Sub Panel211_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel211.Paint
exampletopbar.BackColor = Color.Azure
End Sub
Private Sub Panel212_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel212.Paint
exampletopbar.BackColor = Color.DarkTurquoise
End Sub
Private Sub Panel210_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel210.Paint
exampletopbar.BackColor = Color.CadetBlue
End Sub
Private Sub Panel217_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel217.Paint
exampletopbar.BackColor = Color.PowderBlue
End Sub
Private Sub Panel215_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel215.Paint
exampletopbar.BackColor = Color.LightBlue
End Sub
Private Sub Panel216_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel216.Paint
exampletopbar.BackColor = Color.DeepSkyBlue
End Sub
Private Sub Panel214_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel214.Paint
exampletopbar.BackColor = Color.SkyBlue
End Sub
Private Sub Panel221_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel221.Paint
exampletopbar.BackColor = Color.LightSkyBlue
End Sub
Private Sub Panel219_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel219.Paint
exampletopbar.BackColor = Color.SteelBlue
End Sub
Private Sub Panel220_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel220.Paint
exampletopbar.BackColor = Color.AliceBlue
End Sub
Private Sub Panel218_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel218.Paint
exampletopbar.BackColor = Color.DodgerBlue
End Sub
Private Sub Panel225_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel225.Paint
exampletopbar.BackColor = Color.SlateGray
End Sub
Private Sub Panel223_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel223.Paint
exampletopbar.BackColor = Color.LightSlateGray
End Sub
Private Sub Panel224_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel224.Paint
exampletopbar.BackColor = Color.LightSteelBlue
End Sub
Private Sub Panel222_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel222.Paint
exampletopbar.BackColor = Color.CornflowerBlue
End Sub
Private Sub Panel226_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel226.Paint
exampletopbar.BackColor = Color.RoyalBlue
End Sub
Private Sub Panel228_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel228.Paint
exampletopbar.BackColor = Color.MidnightBlue
End Sub
Private Sub Panel227_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel227.Paint
exampletopbar.BackColor = Color.Lavender
End Sub
Private Sub Panel232_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel232.Paint
exampletopbar.BackColor = Color.Navy
End Sub
Private Sub Panel230_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel230.Paint
exampletopbar.BackColor = Color.DarkBlue
End Sub
Private Sub Panel231_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel231.Paint
exampletopbar.BackColor = Color.MediumBlue
End Sub
Private Sub Panel229_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel229.Paint
exampletopbar.BackColor = Color.Blue
End Sub
Private Sub Panel236_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel236.Paint
exampletopbar.BackColor = Color.GhostWhite
End Sub
Private Sub Panel234_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel234.Paint
exampletopbar.BackColor = Color.SlateBlue
End Sub
Private Sub Panel235_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel235.Paint
exampletopbar.BackColor = Color.DarkSlateBlue
End Sub
Private Sub Panel233_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel233.Paint
exampletopbar.BackColor = Color.MediumSlateBlue
End Sub
Private Sub Panel240_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel240.Paint
exampletopbar.BackColor = Color.MediumPurple
End Sub
Private Sub Panel238_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel238.Paint
exampletopbar.BackColor = Color.BlueViolet
End Sub
Private Sub Panel239_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel239.Paint
exampletopbar.BackColor = Color.Indigo
End Sub
Private Sub Panel237_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel237.Paint
exampletopbar.BackColor = Color.DarkOrchid
End Sub
Private Sub Panel244_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel244.Paint
exampletopbar.BackColor = Color.DarkViolet
End Sub
Private Sub Panel242_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel242.Paint
exampletopbar.BackColor = Color.MediumOrchid
End Sub
Private Sub Panel243_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel243.Paint
exampletopbar.BackColor = Color.Thistle
End Sub
Private Sub Panel241_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel241.Paint
exampletopbar.BackColor = Color.Plum
End Sub
Private Sub Panel245_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel245.Paint
exampletopbar.BackColor = Color.Violet
End Sub
Private Sub Panel247_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel247.Paint
exampletopbar.BackColor = Color.Purple
End Sub
Private Sub Panel246_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel246.Paint
exampletopbar.BackColor = Color.DarkMagenta
End Sub
Private Sub Panel251_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel251.Paint
exampletopbar.BackColor = Color.Fuchsia
End Sub
Private Sub Panel249_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel249.Paint
exampletopbar.BackColor = Color.Magenta
End Sub
Private Sub Panel250_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel250.Paint
exampletopbar.BackColor = Color.Orchid
End Sub
Private Sub Panel248_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel248.Paint
exampletopbar.BackColor = Color.MediumVioletRed
End Sub
Private Sub Panel252_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel252.Paint
exampletopbar.BackColor = Color.DeepPink
End Sub
Private Sub Panel254_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel254.Paint
exampletopbar.BackColor = Color.HotPink
End Sub
Private Sub Panel253_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel253.Paint
exampletopbar.BackColor = Color.LavenderBlush
End Sub
Private Sub Panel258_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel258.Paint
exampletopbar.BackColor = Color.PaleVioletRed
End Sub
Private Sub Panel256_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel256.Paint
exampletopbar.BackColor = Color.Crimson
End Sub
Private Sub Panel257_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel257.Paint
exampletopbar.BackColor = Color.Pink
End Sub
Private Sub Panel255_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel255.Paint
exampletopbar.BackColor = Color.LightPink
End Sub
Private Sub Panel144_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel144.Click
exampletopbar.BackColor = Color.Black
End Sub
Private Sub Panel145_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel145.Click
exampletopbar.BackColor = Color.White
End Sub
Private Sub Panel147_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel147.Click
exampletopbar.BackColor = Color.DimGray
End Sub
Private Sub Panel146_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel146.Click
exampletopbar.BackColor = Color.Gray
End Sub
Private Sub Panel152_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel152.Click
exampletopbar.BackColor = Color.DarkGray
End Sub
Private Sub Panel149_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel149.Click
exampletopbar.BackColor = Color.Silver
End Sub
Private Sub Panel150_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel150.Click
exampletopbar.BackColor = Color.LightGray
End Sub
Private Sub Pane148_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel148.Click
exampletopbar.BackColor = Color.Gainsboro
End Sub
Private Sub Panel60_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel60.Click
exampletopbar.BackColor = Color.WhiteSmoke
End Sub
Private Sub Panel62_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel62.Click
exampletopbar.BackColor = Color.Maroon
End Sub
Private Sub Panel61_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel61.Click
exampletopbar.BackColor = Color.DarkRed
End Sub
Private Sub Panel66_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel66.Click
exampletopbar.BackColor = Color.Red
End Sub
Private Sub Panel64_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel64.Click
exampletopbar.BackColor = Color.Brown
End Sub
Private Sub Panel65_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel65.Click
exampletopbar.BackColor = Color.Firebrick
End Sub
Private Sub Panel63_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel63.Click
exampletopbar.BackColor = Color.IndianRed
End Sub
Private Sub Panel67_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel67.Click
exampletopbar.BackColor = Color.Snow
End Sub
Private Sub Panel68_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel68.Click
exampletopbar.BackColor = Color.LightCoral
End Sub
Private Sub Panel151_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel151.Click
exampletopbar.BackColor = Color.RosyBrown
End Sub
Private Sub Panel75_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel75.Click
exampletopbar.BackColor = Color.MistyRose
End Sub
Private Sub Panel141_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel141.Click
exampletopbar.BackColor = Color.Salmon
End Sub
Private Sub Panel139_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel139.Click
exampletopbar.BackColor = Color.Tomato
End Sub
Private Sub Panel137_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel137.Click
exampletopbar.BackColor = Color.DarkSalmon
End Sub
Private Sub Panel142_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel142.Click
exampletopbar.BackColor = Color.Coral
End Sub
Private Sub Panel140_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel140.Click
exampletopbar.BackColor = Color.OrangeRed
End Sub
Private Sub Panel138_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel138.Click
exampletopbar.BackColor = Color.LightSalmon
End Sub
Private Sub Panel135_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel135.Click
exampletopbar.BackColor = Color.Sienna
End Sub
Private Sub Panel136_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel136.Click
exampletopbar.BackColor = Color.SeaShell
End Sub
Private Sub Panel134_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel134.Click
exampletopbar.BackColor = Color.Chocolate
End Sub
Private Sub Panel133_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel133.Click
exampletopbar.BackColor = Color.SaddleBrown
End Sub
Private Sub Panel129_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel129.Click
exampletopbar.BackColor = Color.SandyBrown
End Sub
Private Sub Panel131_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel131.Click
exampletopbar.BackColor = Color.PeachPuff
End Sub
Private Sub Panel125_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel125.Click
exampletopbar.BackColor = Color.Peru
End Sub
Private Sub Panel132_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel132.Click
exampletopbar.BackColor = Color.Linen
End Sub
Private Sub Panel127_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel127.Click
exampletopbar.BackColor = Color.Bisque
End Sub
Private Sub Panel130_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel130.Click
exampletopbar.BackColor = Color.DarkOrange
End Sub
Private Sub Panel123_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel123.Click
exampletopbar.BackColor = Color.BurlyWood
End Sub
Private Sub Panel128_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel128.Click
exampletopbar.BackColor = Color.Tan
End Sub
Private Sub Panel124_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel124.Click
exampletopbar.BackColor = Color.AntiqueWhite
End Sub
Private Sub Panel126_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel126.Click
exampletopbar.BackColor = Color.NavajoWhite
End Sub
Private Sub Panel122_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel122.Click
exampletopbar.BackColor = Color.BlanchedAlmond
End Sub
Private Sub Panel120_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel120.Click
exampletopbar.BackColor = Color.PapayaWhip
End Sub
Private Sub Panel121_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel121.Click
exampletopbar.BackColor = Color.Moccasin
End Sub
Private Sub Panel119_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel119.Click
exampletopbar.BackColor = Color.Orange
End Sub
Private Sub Panel166_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel166.Click
exampletopbar.BackColor = Color.Wheat
End Sub
Private Sub Panel164_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel164.Click
exampletopbar.BackColor = Color.OldLace
End Sub
Private Sub Panel165_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel165.Click
exampletopbar.BackColor = Color.FloralWhite
End Sub
Private Sub Panel163_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel163.Click
exampletopbar.BackColor = Color.DarkGoldenrod
End Sub
Private Sub Panel169_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel169.Click
exampletopbar.BackColor = Color.Goldenrod
End Sub
Private Sub Panel168_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel168.Click
exampletopbar.BackColor = Color.Cornsilk
End Sub
Private Sub Panel167_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel167.Click
exampletopbar.BackColor = Color.Gold
End Sub
Private Sub Panel143_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel143.Click
exampletopbar.BackColor = Color.Khaki
End Sub
Private Sub Panel171_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel171.Click
exampletopbar.BackColor = Color.LemonChiffon
End Sub
Private Sub Panel170_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel170.Click
exampletopbar.BackColor = Color.PaleGoldenrod
End Sub
Private Sub Panel175_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel175.Click
exampletopbar.BackColor = Color.DarkKhaki
End Sub
Private Sub Panel173_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel173.Click
exampletopbar.BackColor = Color.Beige
End Sub
Private Sub Panel174_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel174.Click
exampletopbar.BackColor = Color.LightGoldenrodYellow
End Sub
Private Sub Panel172_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel172.Click
exampletopbar.BackColor = Color.Olive
End Sub
Private Sub Panel176_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel176.Click
exampletopbar.BackColor = Color.Yellow
End Sub
Private Sub Panel178_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel178.Click
exampletopbar.BackColor = Color.LightYellow
End Sub
Private Sub Panel177_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel177.Click
exampletopbar.BackColor = Color.Ivory
End Sub
Private Sub Panel182_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel182.Click
exampletopbar.BackColor = Color.OliveDrab
End Sub
Private Sub Panel180_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel180.Click
exampletopbar.BackColor = Color.YellowGreen
End Sub
Private Sub Panel181_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel181.Click
exampletopbar.BackColor = Color.DarkOliveGreen
End Sub
Private Sub Panel179_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel179.Click
exampletopbar.BackColor = Color.GreenYellow
End Sub
Private Sub Panel186_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel186.Click
exampletopbar.BackColor = Color.Chartreuse
End Sub
Private Sub Panel184_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel184.Click
exampletopbar.BackColor = Color.LawnGreen
End Sub
Private Sub Panel185_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel185.Click
exampletopbar.BackColor = Color.DarkSeaGreen
End Sub
Private Sub Panel183_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel183.Click
exampletopbar.BackColor = Color.LightGreen
End Sub
Private Sub Panel190_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel190.Click
exampletopbar.BackColor = Color.ForestGreen
End Sub
Private Sub Panel188_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel188.Click
exampletopbar.BackColor = Color.LimeGreen
End Sub
Private Sub Panel189_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel189.Click
exampletopbar.BackColor = Color.PaleGreen
End Sub
Private Sub Panel187_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel187.Click
exampletopbar.BackColor = Color.DarkGreen
End Sub
Private Sub Panel194_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel194.Click
exampletopbar.BackColor = Color.Green
End Sub
Private Sub Panel192_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel192.Click
exampletopbar.BackColor = Color.Lime
End Sub
Private Sub Panel193_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel193.Click
exampletopbar.BackColor = Color.Honeydew
End Sub
Private Sub Panel191_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel191.Click
exampletopbar.BackColor = Color.SeaGreen
End Sub
Private Sub Panel198_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel198.Click
exampletopbar.BackColor = Color.MediumSeaGreen
End Sub
Private Sub Panel196_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel196.Click
exampletopbar.BackColor = Color.SpringGreen
End Sub
Private Sub Panel197_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel197.Click
exampletopbar.BackColor = Color.MintCream
End Sub
Private Sub Panel195_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel195.Click
exampletopbar.BackColor = Color.MediumSeaGreen
End Sub
Private Sub Panel202_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel202.Click
exampletopbar.BackColor = Color.MediumAquamarine
End Sub
Private Sub Panel200_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel200.Click
exampletopbar.BackColor = Color.Aquamarine
End Sub
Private Sub Panel201_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel201.Click
exampletopbar.BackColor = Color.Turquoise
End Sub
Private Sub Panel199_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel199.Click
exampletopbar.BackColor = Color.LightSeaGreen
End Sub
Private Sub Panel203_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel203.Click
exampletopbar.BackColor = Color.MediumTurquoise
End Sub
Private Sub Panel205_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel205.Click
exampletopbar.BackColor = Color.DarkSlateGray
End Sub
Private Sub Panel204_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel204.Click
exampletopbar.BackColor = Color.PaleTurquoise
End Sub
Private Sub Panel209_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel209.Click
exampletopbar.BackColor = Color.Teal
End Sub
Private Sub Panel207_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel207.Click
exampletopbar.BackColor = Color.DarkCyan
End Sub
Private Sub Panel208_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel208.Click
exampletopbar.BackColor = Color.Cyan
End Sub
Private Sub Panel206_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel206.Click
exampletopbar.BackColor = Color.Aqua
End Sub
Private Sub Panel213_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel213.Click
exampletopbar.BackColor = Color.LightCyan
End Sub
Private Sub Panel211_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel211.Click
exampletopbar.BackColor = Color.Azure
End Sub
Private Sub Panel212_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel212.Click
exampletopbar.BackColor = Color.DarkTurquoise
End Sub
Private Sub Panel210_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel210.Click
exampletopbar.BackColor = Color.CadetBlue
End Sub
Private Sub Panel217_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel217.Click
exampletopbar.BackColor = Color.PowderBlue
End Sub
Private Sub Panel215_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel215.Click
exampletopbar.BackColor = Color.LightBlue
End Sub
Private Sub Panel216_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel216.Click
exampletopbar.BackColor = Color.DeepSkyBlue
End Sub
Private Sub Panel214_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel214.Click
exampletopbar.BackColor = Color.SkyBlue
End Sub
Private Sub Panel221_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel221.Click
exampletopbar.BackColor = Color.LightSkyBlue
End Sub
Private Sub Panel219_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel219.Click
exampletopbar.BackColor = Color.SteelBlue
End Sub
Private Sub Panel220_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel220.Click
exampletopbar.BackColor = Color.AliceBlue
End Sub
Private Sub Panel218_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel218.Click
exampletopbar.BackColor = Color.DodgerBlue
End Sub
Private Sub Panel225_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel225.Click
exampletopbar.BackColor = Color.SlateGray
End Sub
Private Sub Panel223_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel223.Click
exampletopbar.BackColor = Color.LightSlateGray
End Sub
Private Sub Panel224_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel224.Click
exampletopbar.BackColor = Color.LightSteelBlue
End Sub
Private Sub Panel222_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel222.Click
exampletopbar.BackColor = Color.CornflowerBlue
End Sub
Private Sub Panel226_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel226.Click
exampletopbar.BackColor = Color.RoyalBlue
End Sub
Private Sub Panel228_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel228.Click
exampletopbar.BackColor = Color.MidnightBlue
End Sub
Private Sub Panel227_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel227.Click
exampletopbar.BackColor = Color.Lavender
End Sub
Private Sub Panel232_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel232.Click
exampletopbar.BackColor = Color.Navy
End Sub
Private Sub Panel230_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel230.Click
exampletopbar.BackColor = Color.DarkBlue
End Sub
Private Sub Panel231_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel231.Click
exampletopbar.BackColor = Color.MediumBlue
End Sub
Private Sub Panel229_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel229.Click
exampletopbar.BackColor = Color.Blue
End Sub
Private Sub Panel236_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel236.Click
exampletopbar.BackColor = Color.GhostWhite
End Sub
Private Sub Panel234_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel234.Click
exampletopbar.BackColor = Color.SlateBlue
End Sub
Private Sub Panel235_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel235.Click
exampletopbar.BackColor = Color.DarkSlateBlue
End Sub
Private Sub Panel233_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel233.Click
exampletopbar.BackColor = Color.MediumSlateBlue
End Sub
Private Sub Panel240_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel240.Click
exampletopbar.BackColor = Color.MediumPurple
End Sub
Private Sub Panel238_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel238.Click
exampletopbar.BackColor = Color.BlueViolet
End Sub
Private Sub Panel239_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel239.Click
exampletopbar.BackColor = Color.Indigo
End Sub
Private Sub Panel237_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel237.Click
exampletopbar.BackColor = Color.DarkOrchid
End Sub
Private Sub Panel244_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel244.Click
exampletopbar.BackColor = Color.DarkViolet
End Sub
Private Sub Panel242_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel242.Click
exampletopbar.BackColor = Color.MediumOrchid
End Sub
Private Sub Panel243_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel243.Click
exampletopbar.BackColor = Color.Thistle
End Sub
Private Sub Panel241_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel241.Click
exampletopbar.BackColor = Color.Plum
End Sub
Private Sub Panel245_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel245.Click
exampletopbar.BackColor = Color.Violet
End Sub
Private Sub Panel247_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel247.Click
exampletopbar.BackColor = Color.Purple
End Sub
Private Sub Panel246_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel246.Click
exampletopbar.BackColor = Color.DarkMagenta
End Sub
Private Sub Panel251_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel251.Click
exampletopbar.BackColor = Color.Fuchsia
End Sub
Private Sub Panel249_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel249.Click
exampletopbar.BackColor = Color.Magenta
End Sub
Private Sub Panel250_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel250.Click
exampletopbar.BackColor = Color.Orchid
End Sub
Private Sub Panel248_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel248.Click
exampletopbar.BackColor = Color.MediumVioletRed
End Sub
Private Sub Panel252_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel252.Click
exampletopbar.BackColor = Color.DeepPink
End Sub
Private Sub Panel254_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel254.Click
exampletopbar.BackColor = Color.HotPink
End Sub
Private Sub Panel253_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel253.Click
exampletopbar.BackColor = Color.LavenderBlush
End Sub
Private Sub Panel258_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel258.Click
exampletopbar.BackColor = Color.PaleVioletRed
End Sub
Private Sub Panel256_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel256.Click
exampletopbar.BackColor = Color.Crimson
End Sub
Private Sub Panel257_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel257.Click
exampletopbar.BackColor = Color.Pink
End Sub
Private Sub Panel255_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel255.Click
exampletopbar.BackColor = Color.LightPink
End Sub
Dim moveable As Boolean = True
Dim mexlocation, meylocation As Integer
Dim mewidth, meheight As Integer
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
Const HTCAPTION As Integer = 2
Dim msg As Message = _
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
Else
End If
End Sub
Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click
Me.Close()
End Sub
Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick
Me.Width = Cursor.Position.X - Me.Location.X
End Sub
Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick
Me.Height = Cursor.Position.Y - Me.Location.Y
End Sub
Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick
Me.Width = Cursor.Position.X - Me.Location.X
Me.Height = Cursor.Position.Y - Me.Location.Y
End Sub
Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles right.MouseDown
pullside.Start()
End Sub
Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles right.MouseUp
pullside.Stop()
End Sub
Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottom.MouseDown
pullbottom.Start()
End Sub
Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottom.MouseUp
pullbottom.Stop()
End Sub
Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottomrightcorner.MouseDown
pullbs.Start()
End Sub
Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottomrightcorner.MouseUp
pullbs.Stop()
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width
meheight = Me.Height
toprightcorner.Hide()
topleftcorner.Hide()
bottomrightcorner.Hide()
bottomleftcorner.Hide()
left.Hide()
top.Hide()
bottom.Hide()
right.Hide()
Dim w, h As Integer
w = Windows95.desktopicons.Width
h = Windows95.desktopicons.Height
Me.Location = New Point(0, 0)
Me.Size = New Size(w, h)
moveable = False
maximizebutton.Image = My.Resources.unmaximizebutton
maximize = True
Else
toprightcorner.Show()
topleftcorner.Show()
bottomrightcorner.Show()
bottomleftcorner.Show()
left.Show()
top.Show()
bottom.Show()
right.Show()
Me.Location = New Point(mexlocation, meylocation)
Me.Size = New Size(mewidth, meheight)
moveable = True
maximizebutton.Image = My.Resources.Maximize
maximize = False
End If
End Sub
Private Sub look_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles look.Tick
Me.programtopbar.BackColor = Windows95.exampleprogramtopbar.BackColor
Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage
Me.programname.BackColor = Windows95.exampleprogramtext.BackColor
End Sub
Private Sub minimizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles minimizebutton.Click
Me.Hide()
End Sub
End Class
|