Как сделать, чтобы программа автоматически подстраивалась под разрешение монитора

Form1.Caption = Screen.Height
' отобразится в твипах
 
Form1.Caption = Screen.Height / Screen.TwipsPerPixelY
' отобразится в пикселах

Option Explicit
Private Sub CmdCDS_Click()
MyDevMoe.dmSize = Len(MyDevMode)
    BackVal = EnumDisplaySettings(vbNullString, ENUM_CURRENT_SETTINGS, MyDevMode)
    MyDevMode = dmPelsWidth = 1024
    MyDevMode = dmPelsHeight = 768
    BackVal = ChangeDisplaySettings(MyDisplayMode, CDS_TEST)
  If BackVal <> DISP_CHANGE_SUCCESSFUL Then
   MsgBox "Не могу установить такое разрешение", vbCritical, "Ошибка"
 Else
  BackVal = ChangeDisplaySettingsi(MyCevMode, CDS_UPDATEREGISTRY)
Select Case BackVal
  Case DISP_CHANGE_SUCCESSFUL
    MsgBox "Новые установки применены", vbInformation, "Ура"
    Case Disp_Change_Restart
      If MsgBox("Можно перезагрузить?", vbQuestion Or _
        vbYesNo, "Перезагрузка!") = vbYes Then
        Shell "%systemDir%/runDll32.exe"
      End If
     Case Else
    MsgBox "Ничего не получилось", 16, "Oops"
  End Select
End Sub
Private Sub Form_Load()
  MsgBox "Пример изменения настроек монитора!", 48, "Пример"
End Sub

Dim w, h, w1, h1
 
форма
Private Sub Form_Load()
h = Me.Height: w = Me.Width
'так мышкой можно менять размер
'или так
'Me.WindowState = 2
'а лучше так
'With Me
'.Width = Screen.Width
'.Height = Screen.Height
'.Top = 0: .Left = 0
'End With
End Sub
 
Private Sub Form_Resize()
If Me.Height > 2000 And Me.Width > 3000 Then
Call rsz(Me, w, h)
h = Me.Height: w = Me.Width
Else
Me.Height = 2000: Me.Width = 3000
End If
End Sub

Public Sub rsz(frm As Form, w, h)
Dim w1 As Single, h1 As Single
w1 = frm.Width / w
h1 = frm.Height / h
Dim Cont As Control
    
On Error GoTo Err
    For Each Cont In frm.Controls
        With Cont
            .Width = .Width * w1
            .Height = .Height * h1
            .Top = .Top * h1
            .Left = .Left * w1
        End With
    Next
Err: Err.Clear
Resume Next
End Sub