Histacom/windows 95/Skindows 95.vb

1343 lines
61 KiB
VB.net
Raw Normal View History

2015-03-01 05:50:24 -05:00
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
2015-03-07 14:48:26 -05:00
If moveable Then
2015-03-01 05:50:24 -05:00
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
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
2015-03-07 14:48:26 -05:00
If not maximize Then
2015-03-01 05:50:24 -05:00
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 taskbar_Paint(sender As Object, e As PaintEventArgs) Handles taskbar.Paint
End Sub
Private Sub PictureBox7_Click(sender As Object, e As EventArgs)
End Sub
2015-03-01 05:50:24 -05:00
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