Привязка элементов к форме. Чтобы они растягивались вместе с ней

Private Sub Form_Resize() ' Привязка элементов WB и ScrollBar к форме
WB.Left = 0
WB.Top = 1000
WB.Width = Form1.Width
WB.Height = Form1.Height
HScroll1.Left = 0
VScroll1.Top = 0
HScroll1.Top = WB.Height
VScroll1.Left = WB.Width
HScroll1.Width = Form1.Width - 140
VScroll1.Height = Form1.Height - 1500
End Sub
 
Private Sub Form_Load()
WB.Navigate "C:\xx.svgz"
End Sub
 
Private Sub Command1_Click()
On Error Resume Next
WB.GoBack
End Sub
 
Private Sub Command2_Click()
On Error Resume Next
WB.GoForward
End Sub
 
Private Sub Command3_Click()
Form2.Show
End Sub
 
Private Sub VScroll1_Change()
WB.Top = -VScroll1.Value
End Sub
 
Private Sub HScroll1_Change()
WB.Left = -HScroll1.Value
End Sub

Form2.Show vbModal, Me

Form2.Show vbModeless, Me

Private Sub Form_Resize()
  Dim iFrmW As Integer
  Dim iFrmH As Integer
  '
  iFrmW = 7000
  iFrmH = 5000
  '
  If WindowState <> 1 Then
    If Width < iFrmW Then
      Width = iFrmW
    End If
    If Height < iFrmH Then
      Height = iFrmH
    End If
  End If
End Sub