Умножить все элементы первой строки на минимальный элемент первого столбца матрицы - VB

Option Explicit
DefInt A-N
Dim A(), i, j, k, m, n, min As Integer
Private Sub Command1_Click()
Cls
Randomize
n = InputBox("Введите число строк", , 10)
m = InputBox("Введите число столбцов", , 10)
ReDim A(1 To n, 1 To m)
 
Print "Исходная матрица :"
For i = 1 To n
     For j = 1 To m
           A(i, j) = Int(21 * Rnd - 10) ' Заполнение массива случ числами от -10 до 10
           Print A(i, j); vbTab;               '  Печать на форму
     Next j
     Print
Next i
 
min = A(1, 1)
For i = 1 To n
     If min > A(i, 1) Then min = A(i, 1)
Next i
 
Print
Print "Минимальный элемент первого столбца равен  "; min
Print
 
For j = 1 To m
      A(1, j) = A(1, j) * min
Next j
 
Print "Результат :"
Print
 
For i = 1 To n
     For j = 1 To m
          Print A(i, j); vbTab;               '  Печать на форму
     Next j
     Print
Next i
 
End Sub