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