file.vb
PublicClass Form1
PrivateSub RedToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RedToolStripMenuItem.Click
Me.BackColor = Color.Red
EndSub
PrivateSub GreenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles GreenToolStripMenuItem.Click
Me.BackColor = Color.Green
EndSub
PrivateSub BlueToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BlueToolStripMenuItem.Click
Me.BackColor = Color.Blue
EndSub
PrivateSub MaximizeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MaximizeToolStripMenuItem.Click
Me.WindowState = FormWindowState.Maximized
EndSub
PrivateSub MinimizeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MinimizeToolStripMenuItem.Click
Me.WindowState = FormWindowState.Minimized
EndSub
PrivateSub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles CloseToolStripMenuItem.Click
Me.WindowState = FormWindowState.Normal
EndSub
PrivateSub ExToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ExToolStripMenuItem.Click
End
EndSub
EndClass