Как сделать Scroll для формы, размеры которой могут изменяться? - VB

Формулировка задачи:

на форме размещен PictureBox (210*295мм). Как сделать Scroll для формы, размеры которой могут изменяться. Может заодно подскажете как определить текущие установки разрешения монитора и как от этого изеняется Form.Width/Height. Пробовал разные разрешения, но значения изменяются незначительно.

Решение задачи: «Как сделать Scroll для формы, размеры которой могут изменяться?»

textual
                            Листинг программы 
                        

                            Type RECT
   x1 As Long
   y1 As Long
   x2 As Long
   y2 As Long
End Type
Public Declare Function GetDesktopWindow Lib 'User32' () As Long
Public Declare Function GetWindowRect Lib 'User32' (ByVal hWnd As Long, rectangle As RECT) As Long
 
Public Function GetScreenResolution(ByRef ResWidth As Long, _
                              ByRef ResHeight As Long) As String
   Dim R As RECT
   Dim hWnd As Long
   Dim RetVal As Long
 
   hWnd = GetDesktopWindow()
   RetVal = GetWindowRect(hWnd, R)
 
   ResWidth = (R.x2 - R.x1)
   ResHeight = (R.y2 - R.y1)
   GetScreenResolution = (R.x2 - R.x1) & 'x' & (R.y2 - R.y1)
 
End Function
                        