Public Class Form1
Private Sub ForeColorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ForeColorToolStripMenuItem.Click
Dim dlg As ColorDialog = New ColorDialog
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Button1.ForeColor = dlg.Color
End If
End Sub
Private Sub BackgrandToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BackgrandToolStripMenuItem.Click
Dim dlg As ColorDialog = New ColorDialog
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Button1.BackColor = dlg.Color
End If
End Sub
End Class