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

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

Option Explicit
Dim A(1 To 100, 1 To 100) As Double
Dim i As Integer, j As Integer, n As Integer
Dim Max As Double, X(1 To 100) As Double
 
Private Sub Command1_Click()
Picture1.Cls
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()
            Command1_Click
        For i = 1 To n
              Max = Sqr(A(i, 1))
              For j = 1 To n
                  If Max < Sqr(A(i, j)) Then Max = Sqr(A(i, j))
              Next j
              X(i) = Max '?????????
              Picture1.Print Format(X(i), "#0.##")
        Next i
End Sub
 ' дальше вообще непонятная затея
Private Sub Form_Load()
    HScroll1.Max = Val(Picture1.Height)
    VScroll1.Max = Val(Picture1.Width)
    Picture1.AutoRedraw = True
End Sub
 
Private Sub HScroll1_Scroll()
    Picture1.Left = -HScroll1.Value
End Sub
 
Private Sub VScroll1_Scroll()
    Picture1.Top = -VScroll1.Value
End Sub

Dim N As Long
Dim A(1 To 100, 1 To 100) As Double
Dim X(1 To 100)
Dim i As Long, j As Long
Dim Str1 As String, Str2 As String
 
Private Sub cmd1_Click()
    Dim B As String
    B = Space$(8)
    N = Int(txtN.Text)
    Str1 = vbNullString
    For i = 1 To N
        For j = 1 To N
            A(i, j) = ((2 * i + 3 * j) ^ 2) / ((i + j + 5) ^ (1 / 3))
            LSet B = Format(A(i, j), "#0.00")
            Str1 = Str1 & B & " "
        Next
    Str1 = Str1 & vbNewLine
    Next
    Redraw
End Sub
Private Sub cmd2_Click()
    Dim Max As Double, T As Double, Tj As Long
    N = Int(txtN.Text)
    Str2 = vbNullString
    For i = 1 To N
        Max = Sqr(A(i, 1)): Tj = 1
        For j = 2 To N
            T = Sqr(A(i, j))
            If T > Max Then Max = T: Tj = j
        Next
        X(i) = Max / Tj
        Str2 = Str2 & "X(" & i & ") = " & X(i) & vbNewLine
    Next
    Redraw
End Sub
Private Sub Redraw()
    Dim WT As Long, HT As Long, R As String, F As Long, T As Long
    R = "A = {" & vbNewLine & Str1 & "}" & vbNewLine & Str2
    WT = picOut.TextWidth(R)
    HT = picOut.TextHeight(R)
    If WT > picOut.ScaleWidth Then hsbScroll.Max = WT - picOut.ScaleWidth: hsbScroll.Visible = True _
                                                                    Else hsbScroll.Visible = False
    If HT > picOut.ScaleHeight Then vsbScroll.Max = HT - picOut.ScaleHeight: vsbScroll.Visible = True _
                                                                    Else vsbScroll.Visible = False
    picOut.Cls
    picOut.CurrentY = -vsbScroll.Value
    F = 1: T = InStr(R, vbNewLine)
    Do
        picOut.CurrentX = -hsbScroll.Value
        picOut.Print Mid$(R, F, T - F)
        F = T + 2
        T = InStr(F, R, vbNewLine)
    Loop While T > 0
    picOut.Refresh
End Sub
Private Sub vsbScroll_Change()
    Redraw
End Sub
Private Sub vsbScroll_Scroll()
    Redraw
End Sub
Private Sub hsbScroll_Change()
    Redraw
End Sub
Private Sub hsbScroll_Scroll()
    Redraw
End Sub

Option Explicit
Dim A(1 To 100, 1 To 100) As Double
Dim i As Integer, j As Integer, n As Integer
Dim Max As Double, X(1 To 100) As Double
 
Private Sub Command1_Click()
Picture1.Cls
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()
            Command1_Click
For i = 1 To n
Max = Sqr(A(i, 1))
For j = 1 To n
If Max < Sqr(A(i, j)) Then Max = Sqr(A(i, j))
Next j
X(j) = Max / j
Picture1.Print Format(X(i), "#0.##")
Next i
End Sub

Private Sub Command2_Click()
            Command1_Click
Dim tJ as Double
For i = 1 To n
Max = Sqr(A(i, 1)):Tj=1
For j = 2 To n
If Max < Sqr(A(i, j)) Then Max = Sqr(A(i, j)):Tj=j
Next j
X(j) = Max / Tj
Picture1.Print Format(X(i), "#0.##")
Next i
End Sub