mirror of
https://github.com/Histacom/Histacom.git
synced 2025-01-22 09:02:00 -05:00
1336 lines
No EOL
61 KiB
VB.net
Executable file
1336 lines
No EOL
61 KiB
VB.net
Executable file
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 |