0.    自动调整窗体

 
    Public xz, yz As Double
    Public Sub zishiying(ByVal parent As Control)
        xz = 75 / Form5.Button1.Width
        yz = 23 / Form5.Button1.Height
        Dim sFont As Font
        For Each c As Control In parent.Controls
            Dim zihao As Integer = c.Font.Size * xz / 1.2 \ 1
            sFont = New Font(c.Font.FontFamily, zihao, c.Font.Style)
            c.Font = sFont
            c.Width = c.Width * xz
            c.Height = c.Height * yz
            c.Left = c.Left * xz
            c.Top = c.Top * yz
            zishiying(c)
        Next
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        zishiying(Me)
    End Sub