Одномерный массив: найти количество положительных и количество отрицательных чисел - VB

Option Explicit
 
Private Sub Command1_Click()
    Dim A() As Integer, size As Integer, i As Integer
    Dim positive As Integer, negative As Integer
    Randomize
    Picture1.Cls
    Picture2.Cls
    Picture3.Cls
    Picture4.Cls
    size = Int(Rnd * 39) + 1
    ReDim A(size)
    
    For i = 1 To size
         A(i) = Int(71 * Rnd - 10)
         If A(i) < 0 Then Picture1.ForeColor = vbRed _
         Else Picture1.ForeColor = vbBlue
         Picture1.Print A(i);
    Next i
positive = 0: negative = 0
        For i = 1 To size
         If A(i) > 0 Then positive = positive + 1
         If A(i) < 0 Then negative = negative + 1
       
    Next i
    Picture2.Print positive;
    Picture3.Print negative;
    Picture4.Print size;
End Sub
 
Private Sub Command2_Click()
End
End Sub