Dim privateFonts As new System.Drawing.Text.PrivateFontCollection() privateFonts.AddFontFile("F:\VS\字体\DejaVuSansMono.ttf") Dim font As System.Drawing.Font font = new System.Drawing.Font(privateFonts.Families(0), 12) e.Form.Controls("TextBox1").Font = font