如果不嫌颜色选择范围小的话,可以打开字体对话框的颜色选择
Dim Label1 As WinForm.Label = e.Form.Controls("Label1")Dim font As New Windows.forms.FontDialog
font.ShowColor = TrueIf font.showdialog = DialogResult.OK Then Label1.Font = font.font
Label1.ForeColor = font.ColorEnd If