สอบถามการปรับตัวคอนโทรลต่างๆให้ขยายตาม Form อัตโนมัติ

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        _Resize()
    End Sub

    Private Sub Form1_ResizeEnd(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeEnd
        _Resize()
    End Sub

    Sub _Resize()
        Button1.Size = New Size(Me.Size.Width - 40, Me.Height / 2 - 30)
        Button3.Size = New Size(Me.Size.Width - 40, Me.Height / 2 - 30)
        Button1.Location = New Point(17, 15)
        Button3.Location = New Point(17, Me.Size.Height / 2 - 15)
    End Sub
End Class