' Во первых, вырабатывай привычку ставить эту команду
' или постав птицу в меню Tools -> Option - Require Variable Declaration
Option Explicit

' Это у тебя переменная-массив уровня модуля, а ты её нигде не используешь
' потому, что у тебя объявлена одноименная локальная переменная уровня функции в одном месте
' и параметр в другом.
' Для того чтобы обратится именно к этому масиву, нужно указать Me и через точку имя масива
' Напимер так: Me.A(1,1)
Dim A( 2 ,  2 ) As Variant

Private Sub Form_Load()
Dim A( 2 ,  2 ) As Integer, S1 As Integer, S2 As Integer, S3 As Integer
Dim i As Long, j As Long
'Show
' А кто будет объявлять переменные счетчиков циклов?
For i =  0  To  2 
    For j =  0  To  2 
        A(i, j) = Int( 3  * Rnd +  1 )
'        Старайся избегать неявных преобразований и используй явные
        Picture1.Print CStr(A(i, j));
    Next j
    Picture1.Print
Next i
' Одна из ошибок в банальной опечатке. Переменная si нигде больше не используется
'si = SUMMA1(A, 2, 2)
S1 = SUMMA1(A) ', 2, 2)
'S2 = SUMMA(A, 2, 2)
'S3 = SUMMA(A, 2, 2)
'Старайся избегать использовать свойства по умолчанию, указывай всегда явно
'От тебя не убудет, но потом намного проще понять о чем идет речь
' И не забываем о явных преобразованиях
Text1.Text = CStr(S1)
Text2.Text = CStr(S2)
Text3.Text = CStr(S3)
End Sub

' указывай типы передаваемых значений и тип возвращаемого значения
' Для масива, размерности не обязательно передавать, есть функции определяющие это
' UBound(Имя массива, номер размерности) вернет верхную границу
' LBound(Имя массива, номер размерности) вернет нижную границу
Function SUMMA(A() As Integer) As Integer
'Не забываем объявлять переменные счетчиков циклов
Dim j As Long, i As Long
SUMMA1 =  0 
For j = LBound(A) To UBound(A)
    For i = LBound(A,  2 ) To UBound(A,  2 )
        SUMMA1 = SUMMA1 + A(i, j)
    Next i
Next j
End Function

'И ещё немного, старайся избегать типа Integer, потому, что он может содержать значение от -32768 до 32767
'и на операциях умножения очень легко "вылезть" за максимальное значение и получить ошибку переполнения.
'И старайся не использовать тип Variant, с ним конечно проще начинать,
'но он очень отрицательно сказывается на быстродействии и расходе памяти