Прокрутка PictureBox для задания "матричные операции" - VB

Private Sub Command1_Click()
Dim A(1 To 100, 1 To 100) As Double
Dim i, j As Double
n = Val(Text1.Text)
For i = 1 To n
For j = 1 To n
A(i, j) = ((2 * i + 3 * j) ^ 2) / ((i + j + 5) ^ (1 / 3))
Picture1.Print Format(A(i, j), "#0.##"),
Next j
Picture1.Print '
Next i
End Sub
 
Private Sub Command2_Click()
Dim A(1 To 100, 1 To 100) As Double
Dim i, j As Double
n = Val(Text1.Text)
For i = 1 To n
For j = 1 To n
A(i, j) = ((2 * i + 3 * j) ^ 2) / ((i + j + 5) ^ (1 / 3))
If Max < Sqr(A(i, j)) Then
Max = Sqr(A(i, j))
X(j) = Sqr(A(i, j)) / j
End If
Next j
End Sub
 
Private Sub HScroll1_Change()
Picture1.Top = -HScroll1.Value
End Sub
 
Private Sub Picture1_Click()
VScroll1.Value = Val(Picture1)
HScroll1.Value = Val(Picture1)
End Sub
 
Private Sub VScroll1_Change()
Picture1.Top = -VScroll1.Value
End Sub