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

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

помогите написать программу: В одномерном массиве, состоящем из 20 вещественных элементов (значения элементов массива задать случайными числами из интервала [-3, 9]), вычислить сумму элементов массива, расположенных между первым и вторым отрицательными элементами. Сформировать из этих элементов новый массиву у меня какая-то беда с генерацией массива. Заранее спасибо

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

textual
                            Листинг программы 
                        

                            Option Explicit On
Imports System.Math
Public Class Form1
    Dim x() As Single
    'Процедура вывода массива  
    Public Sub PrintL(ByRef x() As Single, ByRef LB As ListBox)
        Dim i As Integer
        Dim y As String = " "
        For i = 0 To UBound(x)
            y = y + Format(x(i), "0.00") + Space(4)
        Next i
        LB.Items.Add(y)
    End Sub
    'Процедура ввода массива (генератор случайных чисел)
    Sub vvod(ByRef x() As Single)
        Dim i As Integer
        For i = 0 To UBound(x)
            x(i) = Int((12 * Rnd() + (-3)))
        Next i
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim n As Integer
        ListBox1.Items.Clear() 'очищаем listbox1
        ListBox2.Items.Clear() 'очищаем lixtbox2
        ReDim x(n)
        vvod(x) 'ввод массива
        PrintL(x, ListBox1) 'выводисходного массива
 
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub
End Class
                        