Ajuste de controles a pantalla

Puedes utilizar la siguiente clase en VB.NET para redimensionar tus formularios

Public Class clsResizeForm
    Dim f_HeightRatio As Single = New Single
    Dim f_WidthRatio As Single = New Single
    Public Sub ResizeForm(ObjForm As Form, DesignerWidth As Integer, DesignerHeight As Integer)
        Dim i_StandardHeight As Integer = DesignerHeight
        Dim i_StandardWidth As Integer = DesignerWidth
        Dim i_PresentHeight As Integer = Screen.PrimaryScreen.Bounds.Height
        Dim i_PresentWidth As Integer = Screen.PrimaryScreen.Bounds.Width
        f_HeightRatio = (CSng(i_PresentHeight) / CSng(i_StandardHeight))
        f_WidthRatio = (CSng(i_PresentWidth) / CSng(i_StandardWidth))
        ObjForm.AutoScaleMode = AutoScaleMode.None
        ObjForm.Scale(New SizeF(f_WidthRatio, f_HeightRatio))
        For Each c As Control In ObjForm.Controls
            If c.HasChildren Then
                ResizeControlStore(c)
            Else
                c.Font = New Font(c.Font.FontFamily, c.Font.Size * f_HeightRatio, c.Font.Style, c.Font.Unit, (CByte(0)))
            End If
        Next
        ObjForm.Font = New Font(ObjForm.Font.FontFamily, ObjForm.Font.Size * f_HeightRatio, ObjForm.Font.Style, ObjForm.Font.Unit, (CByte(0)))
    End Sub
    Private Sub ResizeControlStore(objCtl As Control)
        If objCtl.HasChildren Then
            For Each cChildren As Control In objCtl.Controls
                If cChildren.HasChildren Then
                    ResizeControlStore(cChildren)
                Else
                    cChildren.Font = New Font(cChildren.Font.FontFamily, cChildren.Font.Size * f_HeightRatio, cChildren.Font.Style, cChildren.Font.Unit, (CByte(0)))
                End If
            Next
            objCtl.Font = New Font(objCtl.Font.FontFamily, objCtl.Font.Size * f_HeightRatio, objCtl.Font.Style, objCtl.Font.Unit, (CByte(0)))
        Else
            objCtl.Font = New Font(objCtl.Font.FontFamily, objCtl.Font.Size * f_HeightRatio, objCtl.Font.Style, objCtl.Font.Unit, (CByte(0)))
        End If
    End Sub
End Class

En el evento Load de cada formulario tendrías algo mas o menos como el siguiente código donde tienes que poner la resolución original de los formularios. La clase se encargara de detectar la resolución de la pantalla en el que se esta ejecutando y calcular y ajustar las nuevas dimensiones en base a la resolución original.

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim classResize As New clsResizeForm
        classResize.ResizeForm(Me, 1280, 800)
    End Sub
End Class

la verdad no entendí el código que pusiste, supongo que redimensiona el formulario pero solo eso, y pues para eso es mejor la propiedad anchor porque hace lo que estoy buscando pero gracias por tu tiempo en contestar.

Mira también encontré este código pero la verdad no se si funciona o no porque me sigue quedando de la misma forma y no lo puedo ajustar bien:

Public Class Form1
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    Dim AnchoPantallaInicial As Integer = 1920
    Dim AltoPantallaInicial As Integer = 1080
    Dim ResolucionDestino As Size
    ResolucionDestino = System.Windows.Forms.SystemInformation.PrimaryMonitorSize
    Dim AnchoPantallaDestino As Integer = ResolucionDestino.Width
    Dim AltoPantallaDestino As Integer = ResolucionDestino.Height
    Dim AnchoFormularioInicial As Double = 600
    Dim AltoformularioInicial As Double = 600
    Dim AnchoFormularioDestino = CDbl((AnchoFormularioInicial / AnchoPantallaInicial) * AnchoPantallaDestino)
    Dim AltoFormularioDestino = CDbl((AltoformularioInicial / AltoPantallaInicial) * AltoPantallaDestino)
    Me.Width = AnchoFormularioDestino
    Me.Height = AltoFormularioDestino
  End Sub
End Class