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

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

Посмотрите пожалуйста, что здесь не так. Переделал кучу вариантов, менял значения ScaleMode, переводил в твипы, в точки, в пиксели ничего не выходит. Эти скролбары, все таки растягиваются вместе с формой, но никак не хотят ложится в нужное традиционное положение (справа и снизу) , а передвигая их передвигается сам элемент а не картинка внутри него. Кстати, там в архиве лежит мой файл, в коде я задал

WB.Navigate "C:\xx.svgz"

, почему он у меня с папки где лежит проект не запускается, а только с диска С:?

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

Решение задачи: «Привязка элементов к форме. Чтобы они растягивались вместе с ней»

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

                            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
                        