VB.net 子窗体中的控件上的字体变小

Dim frm As New form1
Dim sFont As Font
For Each crl As Control In frm.Controls

sFont = New Font(crl.Font.FontFamily, crl.Font.Size - 1, crl.Font.Style)

crl.Font = sFont
Next

这样所有的字体会比原来的字体减小1位,你想再小一点,就把crl.Font.Size - 1 里的1 改成大一点的数字