Ejercicio de Ventas Agregándole el Articulo

Código:
Public Class Form1
    Dim venta(12) As Double
    Dim i As Integer
    Dim Articulo(12) As String



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

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIngresar.Click
        i = TxtMes.Text
        If i >= 1 And i <= 12 Then
            venta(i) = TxtVenta.Text
            Articulo(i) = TextBoxArticulo.Text
        Else
            MsgBox("Ingrese valor entre 1 y 12")

        End If
        TxtVenta.Text = ""
        TxtMes.Text = ""
        TextBoxArticulo.Text = ""
        TxtMes.Focus()



    End Sub

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

    End Sub

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

        Loop
        For j = 0 To 12
            Articulo(j) = ""
        Next


    End Sub

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

    End Sub

    Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter

    End Sub
End Class

Imagen Mostrando la Ejecución: