Need Help For Fibonacci Series Program

So, the program is supposed to generate the numbers in the fibonacci series. (Last two numbers make the next unknown number). You enter in the first two numbers, and it is supposed to create the next 14 numbers in the series.
Here is the code:

Public Class Form1
Dim aintNumbers(15) As Integer
Dim intNumber1 As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
aintNumbers(0) = Convert.ToInt32(TextBox1.Text)
aintNumbers(1) = Convert.ToInt32(TextBox2.Text)
aintNumbers(2) = aintNumbers(0) + aintNumbers(1)
aintNumbers(3) = aintNumbers(1) + aintNumbers(2)
aintNumbers(4) = aintNumbers(2) + aintNumbers(3)
aintNumbers(5) = aintNumbers(3) + aintNumbers(4)
aintNumbers(6) = aintNumbers(4) + aintNumbers(5)
aintNumbers(7) = aintNumbers(5) + aintNumbers(6)
aintNumbers(8) = aintNumbers(6) + aintNumbers(7)
aintNumbers(9) = aintNumbers(7) + aintNumbers(8)
aintNumbers(10) = aintNumbers(8) + aintNumbers(9)
aintNumbers(11) = aintNumbers(9) + aintNumbers(10)
aintNumbers(12) = aintNumbers(10) + aintNumbers(11)
aintNumbers(13) = aintNumbers(11) + aintNumbers(12)
aintNumbers(14) = aintNumbers(12) + aintNumbers(13)
aintNumbers(15) = aintNumbers(13) + aintNumbers(14)


For intNumber1 = 0 To 14
aintNumbers(intNumber1) = intNumber1
Next
Label1.Text = aintNumbers(intNumber1)
End Sub
End Class