Вывод координат максимума и минимума двумерного массива - VB

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

Вот у меня получилась такая штука

Private Sub Command1_Click()
Dim n As Long, m As Long, a As Long, b As Long, i As Long, j As Long, max As Long, min As Long
n = Text1.Text
m = Text2.Text
a = Text3.Text
b = Text4.Text

Label1.Caption = ""
ReDim mas(n - 1, m - 1) As Long
For i = 0 To n - 1
    For j = 0 To m - 1
        mas(i, j) = Fix(Rnd * (b - a + 1)) + a
    Next j
Next i
For i = 0 To n - 1
    For j = 0 To m - 1
        Label1.Caption = Label1.Caption & mas(i, j) & "  "
    Next j
    Label1.Caption = Label1.Caption & vbCrLf
Next i

max = mas(0, 0)
min = mas(0, 0)
For i = 0 To n - 1
    For j = 0 To m - 1
        If mas(i, j) > max Then
            max = mas(i, j)
            ii = i
            jj = j
        ElseIf mas(i, j) < min Then
            min = mas(i, j)
            ii = i
            jj = j
        End If
    Next j
Next i
Label2.Caption = "max=" & max
Label3.Caption = "min=" & min
End Sub

максимум и минимум я нахожу а их координаты вывести не могу

Решение задачи: «Вывод координат максимума и минимума двумерного массива»

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

                            max = mas(0, 0)
min = mas(0, 0)
imax=0
jmax=0
imin=0
jmin=0
For i = 0 To n - 1
    For j = 0 To m - 1
        If mas(i, j) > max Then
            max = mas(i, j)
            imax = i
            jmax = j
        ElseIf mas(i, j) < min Then
            min = mas(i, j)
            imin = i
            jmin = j
        End If
    Next j
Next i
                        