Public Class Form1

Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
Me.Close()
End Sub

Private Sub BackgroundColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackgroundColorToolStripMenuItem.Click
ColorDialog1.ShowDialog()
Button1.BackColor = ColorDialog1.Color

End Sub

Private Sub FoerColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FoerColorToolStripMenuItem.Click
ColorDialog1.ShowDialog()
Button1.ForeColor = ColorDialog1.Color
End Sub
End Class