Вывести номер столбца массива, содержащего максимальное количество положительных элементов - VB

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

Создать приложение, выводящее номер первого столбца массива размером 5х10, содержащего максимальное количество положительных элементов. Если таких столбцов нет, то вывести 0. Массив заполняется случайными числами. Результат выводится при нажатии командной кнопки. вот что я навоял но не смг вывести массив матрицей что не дает проверить правильность выполнения условия, да и ошибка непонятная мне.

                    Листинг программы
                
 
                        
                          
                    
Dim e(10) As Integer
Dim a(1 To 5, 1 To 10) As Integer
 
Private Sub Command1_Click()
For i = 1 To 5
For j = 1 To 10
a(i, j) = Int(Rnd * 1000) - 500
Picture1.Print a(i, j)
Next
Print
Next
For j = 1 To 10
For i = 1 To 5
If a(j, i) > 0 Then s = s + 1
Next
e(j) = s
Next
Max = e(1)
For i = 2 To 10
If Max < e(i) Then if max >0 then  Print i And break
Next
End Sub

Решение задачи: «Вывести номер столбца массива, содержащего максимальное количество положительных элементов»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim e(10) As Integer
Dim a(1 To 5, 1 To 10) As Integer
 
Private Sub Command1_Click()
For i = 1 To 5
For j = 1 To 10
a(i, j) = Int(Rnd * 1000) - 500
Picture1.Print a(i, j); vbTab;
Next
Picture1.Print
Next
For j = 1 To 10
s = 0
For i = 1 To 5
If a(i, j) > 0 Then s = s + 1
Next
e(j) = s
Next
Max = e(1)
el = 1
For i = 2 To 10
If Max < e(i) Then Max = e(i): el = i:
Next
Picture1.Print
Picture1.Print el
End Sub
 
Private Sub Command2_Click()
End
End Sub