Dim Label1 As WinForm.Label = e.Form.Controls("Label1") Dim font As New Windows.forms.FontDialog If font.showdialog = DialogResult.OK Then Label1.Font = font.font End If
Dim color As New Windows.forms.ColorDialog If color.showdialog = DialogResult.OK Then Label1.ForeColor = color.Color End If