Sub of function not defined - VB

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

Help Срочно нужна ваша помощь! В программе нету начало текста, помогите доделать прогу(вот скрины неполной проги, она ошибку выдает вот сама задача 1. Дан двумерный массив размером n*m, заполненный случайными числами. Определить номера строк массива, содержащих только положительные элементы и найти среди них наибольший.

Решение задачи: «Sub of function not defined»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Max = a(1, 1)
For i = 1 To 3
For j = 1 To 4
a(i, j) = Round(Rnd * 20)
Picture1.Print a(i, j);
Next
Picture1.Print
Next
For j = 1 To 4
If a(1, j) > 0 Then s = s + 1
If a(2, j) > 0 Then s1 = s1 + 1
If a(3, j) > 0 Then s2 = s2 + 1
Next
b(1) = s
b(2) = s1
b(3) = s2
For i = 1 To 3
If b(i) = 4 Then nomer = i
Next
Picture2.Print nomer
For j = 1 To 4
If a(nomer, j) > Max Then Max = a(nomer, j)
Next
Text1.Text = Max
End Sub