Не по Гетцу

раньше задавал один размнр стандартный для 1024 х 768
другой для 800Х600
но только для выжных контроло типа ПФ
потом стал на On_Resize ставить обработку и перемещение контролов
а сейчас использую свойства anchor и dock - и ничего больше не надо :)

да зачем вам это масштабирование по Гетцу сдалось
искаженные шрифты и т.д.
надо - то 2 размера, пропиши их в ресайз

Вот:

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long

Public Const SM_CXSCREEN = 0 'получение ширины
Public Const SM_CYSCREEN = 1 'получение высоты

Public Function GetSizer() As Boolean 'возвращает TRUE если экран 600 Х 800

Dim blRez As Boolean
Dim lW As Long
Dim lH As Long

On Error GoTo HandleErr
'ширина всего экрана
lW = GetSystemMetrics(SM_CXSCREEN)

'высота всего экрана
lH = GetSystemMetrics(SM_CYSCREEN)

blRez = (lW <= 800 And lH <= 600)

ExitHere:
GetSizer = blRez
Exit Function
HandleErr:
blRez = True
Resume ExitHere
End Function

Jem - да пардон опечатка
два размера - это X и Y, и нужны они для того, чтобы получить True или False при сравнении.
Контролы двигаешь в з-сти от True или False
Dock и Anchor - это решение проблемы Resize в VB.Net
А насчет осла - не признавайся :)