如果不嫌颜色选择范围小的话,可以打开字体对话框的颜色选择
Dim Label1 As WinForm.Label = e.Form.Controls("Label1")
Dim font As New Windows.forms.FontDialog
font.ShowColor = True
If font.showdialog = DialogResult.OK Then
Label1.Font = font.font
Label1.ForeColor = font.Color
End If
[此贴子已经被作者于2015/9/4 10:34:00编辑过]