Vector Dinámico (Ventas)

Formulario Completo
Public Class Form1
    Dim venta(12) As Double
    Dim i As Integer


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        i = TextBox2.Text
        If i >= 1 And i <= 12 Then
            venta(i) = TextBox1.Text
        Else
            MsgBox("Ingrese valor entre 1 y 12")

        End If
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox1.Focus()


    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        i = 1
        DataGridView1.Rows.Clear()
        Do While i <= 12
            Select Case i
                Case 1
                    DataGridView1.Rows.Add("Enero", venta(1))
                Case 2
                    DataGridView1.Rows.Add("Febrero", venta(2))
                Case 3
                    DataGridView1.Rows.Add("Marzo", venta(3))
                Case 4
                    DataGridView1.Rows.Add("Abril", venta(4))
                Case 5
                    DataGridView1.Rows.Add("Mayo", venta(5))
                Case 6
                    DataGridView1.Rows.Add("Junio", venta(6))
                Case 7
                    DataGridView1.Rows.Add("Julio", venta(7))
                Case 8
                    DataGridView1.Rows.Add("Agosto", venta(8))
                Case 9
                    DataGridView1.Rows.Add("Septiembre", venta(9))
                Case 10
                    DataGridView1.Rows.Add("Octubre", venta(10))
                Case 11
                    DataGridView1.Rows.Add("Noviembre", venta(11))
                Case 12
                    DataGridView1.Rows.Add("Duciembre", venta(12))
            End Select
            i = i + 1
        Loop

    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        i = 1
        Do While i <= 12
            venta(i) = 0
            i = i + 1

        Loop
    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Me.Close()

    End Sub
End Class

Imagen donde el programa solo acepta numeros del 1 al 12 correspondientes a los meses del año.

Imagen donde el programa muestra la lista de las ventas en los meses correspondientes.

Imagen donde el programa limpia las ventas de los meses