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

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