Сумма элементов между первым и последним отрицательными элементами массива - Visual Basic .NET

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

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

Option Explicit On
Imports System.Math
Public Class Form1
    Dim x() As Double
    Public Sub vivod(ByVal Z As Double, ByVal T As TextBox)
        T.Text = CStr(Z)
    End Sub
    Public Sub printl(ByRef x() As Integer, ByRef LB As ListBox)
        Dim i As Integer
        Dim z As String = " "
        For i = 0 To UBound(x)
            z = z + Format(x(i), "0") + Space(4)
        Next i
        LB.Items.Add(z)
    End Sub
 
Public Sub vvod(ByVal y() As Integer...
Dim...
If x(i)>0...
      ?????????
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x(19) As Integer
        Dim y(19) As Integer
        For i = 0 To 19
            x(i) = Rnd(1) * 13 - 3 
        Next i
        printl(x, ListBox1)
         .....
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

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

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

                            Public Sub printl(ByRef x() As Integer, ByVal a As Integer, ByRef LB As ListBox)
        Dim i As Integer
        Dim z As String = " " ??????????
        If a <> 0 Then
            z = "массив y не существует"
        Else
            For i = 0 To UBound(x)
                z = z + Format(x(i), "0") + Space(4)
            Next i
        End If
        LB.Items.Add(z)
    End Sub
                        