creación de matriz en basic con números pares, impares

en la imagen de arriba se muestra como debe ir el formulario

PASO 2 en evento load "doble clic sobre el formulario poner el siguiente código"


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
"este es el código que tienen que poner"

        Dim pares(0) As Integer, impares(0) As Integer
        Dim i As Integer
        Dim ipar As Integer, iimpar As Integer
        Dim sumapares As Integer, restaimpares As Integer
        For i = 1 To 15
            If i Mod (2) = 0 Then
                ipar = ipar + 1
                ReDim Preserve pares(ipar)
                pares(ipar) = i
            Else
                iimpar = iimpar + 1
                ReDim Preserve impares(iimpar)
                impares(iimpar) = i
            End If
        Next i
        For i = 1 To UBound(pares)
            ListBox1.Items.Add(pares(i))
            sumapares = sumapares + pares(i)
        Next i
        For i = 1 To UBound(impares)
            ListBox2.Items.Add(impares(i))
            restaimpares = restaimpares - impares(i)
        Next i
        Label1.Text = "Total de Pares: " & UBound(pares) & " - Total Impares: " & UBound(impares)
        Dim mensaje As String
        mensaje = "La suma de los pares es igual a : " & vbTab & sumapares & vbCrLf & "La resta de los impares es igual a: " & vbTab & restaimpares
    End Sub
End Class