rx.Style.Font = New Font(CStr(e.Form.Controls("单字体").Value), CSng(e.Form.Controls("textbox2").Value), FontStyle.Regular)