比如
Dim c As WinForm.Control = e.Form.Controls("TextBox1")
c.Font = New Font(c.font.Name, c.font.Size, (not FontStyle.Bold) And c.font.Style)