Dim am() As Integer 'массив объявлен, но не инициализирован

Private Sub Command1_Click()
    N = Val(Text1)
    M = Val(Text2)
    F = Val(Text3)
    k = 0
    ReDim am(N, M)  'инициализация массива
    Randomize Timer 'инициализация генератора случайных чисел таймером - для большей случайности

    'заполнение массива случайными числами
    For i = 0 To N - 1
        For j = 0 To M - 1
            am(i, j) = Rnd(Timer) * F * 2 'Rnd возвращает десятичное значение от нуля до единицы.
            'так как диапазон значений F засекречен, умножаем его на два, чтобы в массиве были и большие и меньшие значения. 
            'таймер - для еще большей случайности
        Next
    Next

    For i = 0 To N - 1
        For j = 0 To M - 1
            If am(i, j) > F Then k = k + 1
        Next
    Next
    Picture1.Print am(i, j);
    Picture2.Print k
End Sub

' Initialize the random-number generator.
Randomize()
' Generate random value between 1 and 6.
Dim value As Integer = CInt(Int((6 * Rnd()) + 1))