Public Class paint Dim selectedtool As String Private Sub toolfreeformslect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolfreeformslect.Click selectedtool = "freeformselect" toolfreeformslect.Image = My.Resources.windows95paintfreeselectpush toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector toolerracer.Image = My.Resources.windows95painteracer toolfillcan.Image = My.Resources.windows95paintfill toolcolorpick.Image = My.Resources.windows95paintcolorpick toolmagnify.Image = My.Resources.windows95zoom toolpencil.Image = My.Resources.windows95paintpencil toolbrush.Image = My.Resources.windows95painbrush toolspraycan.Image = My.Resources.windows95spraycan tooltext.Image = My.Resources.windows95painttext toolline.Image = My.Resources.windows95paintline toolcurvyline.Image = My.Resources.windows95paintcurvyline toolrectangle.Image = My.Resources.windows95paintrectangle toolpolygon.Image = My.Resources.windows95paintpolygon toolovel.Image = My.Resources.windows95painoval toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle End Sub Private Sub toolrectanglarselect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolrectanglarselect.Click selectedtool = "rectanglarselect" toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon toolrectanglarselect.Image = My.Resources.windows95paintrectangleselectpress toolerracer.Image = My.Resources.windows95painteracer toolfillcan.Image = My.Resources.windows95paintfill toolcolorpick.Image = My.Resources.windows95paintcolorpick toolmagnify.Image = My.Resources.windows95zoom toolpencil.Image = My.Resources.windows95paintpencil toolbrush.Image = My.Resources.windows95painbrush toolspraycan.Image = My.Resources.windows95spraycan tooltext.Image = My.Resources.windows95painttext toolline.Image = My.Resources.windows95paintline toolcurvyline.Image = My.Resources.windows95paintcurvyline toolrectangle.Image = My.Resources.windows95paintrectangle toolpolygon.Image = My.Resources.windows95paintpolygon toolovel.Image = My.Resources.windows95painoval toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle End Sub Private Sub toolerracer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolerracer.Click selectedtool = "rubber" toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector toolerracer.Image = My.Resources.windows95paintrubberpress toolfillcan.Image = My.Resources.windows95paintfill toolcolorpick.Image = My.Resources.windows95paintcolorpick toolmagnify.Image = My.Resources.windows95zoom toolpencil.Image = My.Resources.windows95paintpencil toolbrush.Image = My.Resources.windows95painbrush toolspraycan.Image = My.Resources.windows95spraycan tooltext.Image = My.Resources.windows95painttext toolline.Image = My.Resources.windows95paintline toolcurvyline.Image = My.Resources.windows95paintcurvyline toolrectangle.Image = My.Resources.windows95paintrectangle toolpolygon.Image = My.Resources.windows95paintpolygon toolovel.Image = My.Resources.windows95painoval toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle End Sub Private Sub toolfillcan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolfillcan.Click selectedtool = "fillcan" toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector toolerracer.Image = My.Resources.windows95painteracer toolfillcan.Image = My.Resources.windows95paintfillpress toolcolorpick.Image = My.Resources.windows95paintcolorpick toolmagnify.Image = My.Resources.windows95zoom toolpencil.Image = My.Resources.windows95paintpencil toolbrush.Image = My.Resources.windows95painbrush toolspraycan.Image = My.Resources.windows95spraycan tooltext.Image = My.Resources.windows95painttext toolline.Image = My.Resources.windows95paintline toolcurvyline.Image = My.Resources.windows95paintcurvyline toolrectangle.Image = My.Resources.windows95paintrectangle toolpolygon.Image = My.Resources.windows95paintpolygon toolovel.Image = My.Resources.windows95painoval toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle End Sub Private Sub toolcolorpick_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolcolorpick.Click selectedtool = "colorpick" toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector toolerracer.Image = My.Resources.windows95painteracer toolfillcan.Image = My.Resources.windows95paintfill toolcolorpick.Image = My.Resources.windows95paintcolorselectpress toolmagnify.Image = My.Resources.windows95zoom toolpencil.Image = My.Resources.windows95paintpencil toolbrush.Image = My.Resources.windows95painbrush toolspraycan.Image = My.Resources.windows95spraycan tooltext.Image = My.Resources.windows95painttext toolline.Image = My.Resources.windows95paintline toolcurvyline.Image = My.Resources.windows95paintcurvyline toolrectangle.Image = My.Resources.windows95paintrectangle toolpolygon.Image = My.Resources.windows95paintpolygon toolovel.Image = My.Resources.windows95painoval toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle End Sub Private Sub toolmagnify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolmagnify.Click selectedtool = "magnify" toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector toolerracer.Image = My.Resources.windows95painteracer toolfillcan.Image = My.Resources.windows95paintfill toolcolorpick.Image = My.Resources.windows95paintcolorpick toolmagnify.Image = My.Resources.windows95paintmagnifypress toolpencil.Image = My.Resources.windows95paintpencil toolbrush.Image = My.Resources.windows95painbrush toolspraycan.Image = My.Resources.windows95spraycan tooltext.Image = My.Resources.windows95painttext toolline.Image = My.Resources.windows95paintline toolcurvyline.Image = My.Resources.windows95paintcurvyline toolrectangle.Image = My.Resources.windows95paintrectangle toolpolygon.Image = My.Resources.windows95paintpolygon toolovel.Image = My.Resources.windows95painoval toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle End Sub Private Sub toolpencil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolpencil.Click selectedtool = "pencil" toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector toolerracer.Image = My.Resources.windows95painteracer toolfillcan.Image = My.Resources.windows95paintfill toolcolorpick.Image = My.Resources.windows95paintcolorpick toolmagnify.Image = My.Resources.windows95zoom toolpencil.Image = My.Resources.windows95paintpencilpress toolbrush.Image = My.Resources.windows95painbrush toolspraycan.Image = My.Resources.windows95spraycan tooltext.Image = My.Resources.windows95painttext toolline.Image = My.Resources.windows95paintline toolcurvyline.Image = My.Resources.windows95paintcurvyline toolrectangle.Image = My.Resources.windows95paintrectangle toolpolygon.Image = My.Resources.windows95paintpolygon toolovel.Image = My.Resources.windows95painoval toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle End Sub Private Sub toolbrush_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolbrush.Click selectedtool = "brush" toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector toolerracer.Image = My.Resources.windows95painteracer toolfillcan.Image = My.Resources.windows95paintfill toolcolorpick.Image = My.Resources.windows95paintcolorpick toolmagnify.Image = My.Resources.windows95zoom toolpencil.Image = My.Resources.windows95paintpencil toolbrush.Image = My.Resources.windows95paintbrushpress toolspraycan.Image = My.Resources.windows95spraycan tooltext.Image = My.Resources.windows95painttext toolline.Image = My.Resources.windows95paintline toolcurvyline.Image = My.Resources.windows95paintcurvyline toolrectangle.Image = My.Resources.windows95paintrectangle toolpolygon.Image = My.Resources.windows95paintpolygon toolovel.Image = My.Resources.windows95painoval toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle End Sub Private Sub toolspraycan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolspraycan.Click selectedtool = "spraycan" toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector toolerracer.Image = My.Resources.windows95painteracer toolfillcan.Image = My.Resources.windows95paintfill toolcolorpick.Image = My.Resources.windows95paintcolorpick toolmagnify.Image = My.Resources.windows95zoom toolpencil.Image = My.Resources.windows95paintpencil toolbrush.Image = My.Resources.windows95painbrush toolspraycan.Image = My.Resources.windows95paintspraycanpress tooltext.Image = My.Resources.windows95painttext toolline.Image = My.Resources.windows95paintline toolcurvyline.Image = My.Resources.windows95paintcurvyline toolrectangle.Image = My.Resources.windows95paintrectangle toolpolygon.Image = My.Resources.windows95paintpolygon toolovel.Image = My.Resources.windows95painoval toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle End Sub Private Sub tooltext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tooltext.Click selectedtool = "text" toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector toolerracer.Image = My.Resources.windows95painteracer toolfillcan.Image = My.Resources.windows95paintfill toolcolorpick.Image = My.Resources.windows95paintcolorpick toolmagnify.Image = My.Resources.windows95zoom toolpencil.Image = My.Resources.windows95paintpencil toolbrush.Image = My.Resources.windows95painbrush toolspraycan.Image = My.Resources.windows95spraycan tooltext.Image = My.Resources.windows95painttextpress toolline.Image = My.Resources.windows95paintline toolcurvyline.Image = My.Resources.windows95paintcurvyline toolrectangle.Image = My.Resources.windows95paintrectangle toolpolygon.Image = My.Resources.windows95paintpolygon toolovel.Image = My.Resources.windows95painoval toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle End Sub Private Sub toolline_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolline.Click selectedtool = "line" toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector toolerracer.Image = My.Resources.windows95painteracer toolfillcan.Image = My.Resources.windows95paintfill toolcolorpick.Image = My.Resources.windows95paintcolorpick toolmagnify.Image = My.Resources.windows95zoom toolpencil.Image = My.Resources.windows95paintpencil toolbrush.Image = My.Resources.windows95painbrush toolspraycan.Image = My.Resources.windows95spraycan tooltext.Image = My.Resources.windows95painttext toolline.Image = My.Resources.windows95paintlinepress toolcurvyline.Image = My.Resources.windows95paintcurvyline toolrectangle.Image = My.Resources.windows95paintrectangle toolpolygon.Image = My.Resources.windows95paintpolygon toolovel.Image = My.Resources.windows95painoval toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle End Sub Private Sub toolcurvyline_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolcurvyline.Click selectedtool = "curvyline" toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector toolerracer.Image = My.Resources.windows95painteracer toolfillcan.Image = My.Resources.windows95paintfill toolcolorpick.Image = My.Resources.windows95paintcolorpick toolmagnify.Image = My.Resources.windows95zoom toolpencil.Image = My.Resources.windows95paintpencil toolbrush.Image = My.Resources.windows95painbrush toolspraycan.Image = My.Resources.windows95spraycan tooltext.Image = My.Resources.windows95painttext toolline.Image = My.Resources.windows95paintline toolcurvyline.Image = My.Resources.windows95paintcurvylinepress toolrectangle.Image = My.Resources.windows95paintrectangle toolpolygon.Image = My.Resources.windows95paintpolygon toolovel.Image = My.Resources.windows95painoval toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle End Sub Private Sub toolrectangle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolrectangle.Click selectedtool = "rectangle" toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector toolerracer.Image = My.Resources.windows95painteracer toolfillcan.Image = My.Resources.windows95paintfill toolcolorpick.Image = My.Resources.windows95paintcolorpick toolmagnify.Image = My.Resources.windows95zoom toolpencil.Image = My.Resources.windows95paintpencil toolbrush.Image = My.Resources.windows95painbrush toolspraycan.Image = My.Resources.windows95spraycan tooltext.Image = My.Resources.windows95painttext toolline.Image = My.Resources.windows95paintline toolcurvyline.Image = My.Resources.windows95paintcurvyline toolrectangle.Image = My.Resources.windows95rectanglepress toolpolygon.Image = My.Resources.windows95paintpolygon toolovel.Image = My.Resources.windows95painoval toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle End Sub Private Sub toolpolygon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolpolygon.Click selectedtool = "polygon" toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector toolerracer.Image = My.Resources.windows95painteracer toolfillcan.Image = My.Resources.windows95paintfill toolcolorpick.Image = My.Resources.windows95paintcolorpick toolmagnify.Image = My.Resources.windows95zoom toolpencil.Image = My.Resources.windows95paintpencil toolbrush.Image = My.Resources.windows95painbrush toolspraycan.Image = My.Resources.windows95spraycan tooltext.Image = My.Resources.windows95painttext toolline.Image = My.Resources.windows95paintline toolcurvyline.Image = My.Resources.windows95paintcurvyline toolrectangle.Image = My.Resources.windows95paintrectangle toolpolygon.Image = My.Resources.windows95paintpolygonepress toolovel.Image = My.Resources.windows95painoval toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle End Sub Private Sub toolovel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolovel.Click selectedtool = "ovel" toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector toolerracer.Image = My.Resources.windows95painteracer toolfillcan.Image = My.Resources.windows95paintfill toolcolorpick.Image = My.Resources.windows95paintcolorpick toolmagnify.Image = My.Resources.windows95zoom toolpencil.Image = My.Resources.windows95paintpencil toolbrush.Image = My.Resources.windows95painbrush toolspraycan.Image = My.Resources.windows95spraycan tooltext.Image = My.Resources.windows95painttext toolline.Image = My.Resources.windows95paintline toolcurvyline.Image = My.Resources.windows95paintcurvyline toolrectangle.Image = My.Resources.windows95paintrectangle toolpolygon.Image = My.Resources.windows95paintpolygon toolovel.Image = My.Resources.windows95paintovelpress toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle End Sub Private Sub toolroundedrectangle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolroundedrectangle.Click selectedtool = "roundedrectangle" toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector toolerracer.Image = My.Resources.windows95painteracer toolfillcan.Image = My.Resources.windows95paintfill toolcolorpick.Image = My.Resources.windows95paintcolorpick toolmagnify.Image = My.Resources.windows95zoom toolpencil.Image = My.Resources.windows95paintpencil toolbrush.Image = My.Resources.windows95painbrush toolspraycan.Image = My.Resources.windows95spraycan tooltext.Image = My.Resources.windows95painttext toolline.Image = My.Resources.windows95paintline toolcurvyline.Image = My.Resources.windows95paintcurvyline toolrectangle.Image = My.Resources.windows95paintrectangle toolpolygon.Image = My.Resources.windows95paintpolygon toolovel.Image = My.Resources.windows95painoval toolroundedrectangle.Image = My.Resources.windows95roundedrectanglepress End Sub Private Sub csblack_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csblack.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.Black End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.Black End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub cswhite_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cswhite.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.White End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.White End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csgray_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csgray.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.Gray End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.Gray End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub cssilver_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cssilver.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.Silver End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.Silver End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csdarkred_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csdarkred.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.DarkRed End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.DarkRed End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csred_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csred.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.Red End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.Red End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csolive_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csolive.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.Olive End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.Olive End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csyellow_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csyellow.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.Yellow End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.Yellow End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csseagreen_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csseagreen.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.SeaGreen End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.SeaGreen End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub cslime_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cslime.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.Lime End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.Lime End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csdarkcyan_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csdarkcyan.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.DarkCyan End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.DarkCyan End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub cscyan_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cscyan.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.Cyan End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.Cyan End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csdarkblue_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csdarkblue.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.DarkBlue End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.DarkBlue End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csblue_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csblue.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.Blue End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.Blue End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub cspurple_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cspurple.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.Purple End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.Purple End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csmagenta_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csmagenta.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.Magenta End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.Magenta End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csdarkgoldenrod_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csdarkgoldenrod.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.DarkGoldenrod End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.DarkGoldenrod End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub cskhaki_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cskhaki.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.Khaki End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.Khaki End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csdarkgreen_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csdarkgreen.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.DarkGreen End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.DarkGreen End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csspringgreen_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csspringgreen.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.SpringGreen End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.SpringGreen End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csdodgerblue_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csdodgerblue.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.DodgerBlue End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.DodgerBlue End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csdarkslategray_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csdarkslategray.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.DarkSlateGray End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.DarkSlateGray End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csslateblue_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csslateblue.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.DarkSlateBlue End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.DarkSlateBlue End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csblueviolet_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csblueviolet.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.BlueViolet End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.BlueViolet End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csdeeppink_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csdeeppink.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.DeepPink End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.DeepPink End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub cssaddlebrown_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cssaddlebrown.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.SaddleBrown End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.SaddleBrown End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csdarkorange_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csdarkorange.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.DarkOrange End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.DarkOrange End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub csaquamarine_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csaquamarine.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then bottomcolor.BackColor = Color.Aquamarine End If If e.Button = Windows.Forms.MouseButtons.Left Then topcolor.BackColor = Color.Aquamarine End If If e.Button = Windows.Forms.MouseButtons.Middle Then End If End Sub Private Sub paint_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load look.Start() 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