【解決方法】これを解決するにはどうすればよいですか:「インデックスが配列の範囲外でした。」

‘インデックスが配列の範囲外だった。’

私が試したこと：

Private Sub TextBox11_MouseHover(sender As Object, e As EventArgs) Handles TextBox11.MouseHover

        Dim inputNumber As Integer
        inputNumber = Val(TextBox11.Text)
        Dim years As Integer
        years = inputNumber \ 365

        Dim remainingDays As Integer
        remainingDays = inputNumber Mod 365

        Dim months As Integer
        months = remainingDays \ 30

        Dim days As Integer
        days = remainingDays Mod 30

        'تحديد عدد الأيام في الشهور المختلفة
        Dim daysInMonth(11) As Integer
        daysInMonth(0) = 31
        daysInMonth(1) = 28
        daysInMonth(2) = 31
        daysInMonth(3) = 30
        daysInMonth(4) = 31
        daysInMonth(5) = 30
        daysInMonth(6) = 31
        daysInMonth(7) = 31
        daysInMonth(8) = 30
        daysInMonth(9) = 31
        daysInMonth(10) = 30
        daysInMonth(11) = 31

        If months >= 2 Then
            daysInMonth(1) = 29
        End If

        
        While days >= daysInMonth(months - 1) '--problem here---('Index was outside the bounds of the array.') 
            days -= daysInMonth(months - 1)
            months += 1
            If months = 13 Then
                years += 1
                months = 1
            End If

        End While
  Label29.Text = years & " years, " & months & " months, " & days & " days"

End Sub