VB.netのチャートで、データバインド時の挙動に関して

チャートコントロールでデータバインド時に出る不具合？

お世話になっております。初投稿です。
当方、VB2010・WinXP（SP3）の環境で開発をしております。
今回は、チャートコントロールで線グラフを作ろうとしている際に出た問題に関して
相談させてください。

発生している問題

X軸のMaximumを５、Minimumを０、目盛を0.5おきに設定したチャートに対し、データテーブルをバインドした結果、なぜか1刻みで表示するはずの目盛が、0.01刻みの表示に強制的に書き換えられてしまいます。また、0スタートではなく-1スタートになってしまいます。

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

上記赤丸の範囲の数値が勝手におかしくなります。
どなたかお力添えいただきたく存じます。

該当のソースコード

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Single
        Dim DataTable As New DataSet1.dsTestDataDataTable
        Dim row As DataRow
        Dim DT1 As New DataTable
        Dim DR1 As DataRow

        '画面表示系の変更・ボタン入力無効化
        Label1.Text = "計測中"
        Label1.BackColor = Color.OrangeRed
        Button1.Enabled = False
        Button2.Enabled = False
        TextBox1.Enabled = False
        '画面表示の変更を強制的に反映させる
        Label1.Refresh()
        TextBox1.Refresh()
        'データテーブルの列を作成
        DT1.Columns.Add("圧")
        DT1.Columns.Add("長")

        'グラフ作成
        For i = 0 To 5 Step 0.01
            'Chart2.Series(0).Points.AddXY(i, (i * i) / TextBox1.Text)
            
            'データテーブル作成
            DR1 = DT1.NewRow
            DR1("圧") = i
            DR1("長") = (i * i) / TextBox1.Text
            DT1.Rows.Add(DR1)

            'チャートにデータテーブルをバインド
            Chart2.DataSource = DT1
            Chart2.Series(0).XValueMember = DT1.Columns(0).ColumnName.ToString
            Chart2.Series(0).YValueMembers = DT1.Columns(1).ColumnName.ToString

            Chart2.ChartAreas(0).AxisX.IntervalAutoMode = False
            Chart2.ChartAreas(0).AxisX.Interval = 1
            Chart2.ChartAreas(0).AxisX.Maximum = 5
            Chart2.ChartAreas(0).AxisX.Minimum = 0

            '強制的に画面更新
            Chart2.Refresh()

            '動作確認のためデータグリッドにも表示
            DataGridView1.DataSource = DT1
            DataGridView1.Refresh()

        Next

        'ラベル・ボタンの状態変更
        Label1.Text = "計測終了"
        Label1.BackColor = Color.Chartreuse
        Button2.Enabled = True

        datatable.Clear()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
	'リセットボタン
        Chart2.Series(0).Points.Clear()
        Chart2.Series(0).Points.AddXY(0, Double.NaN)
        Label1.Text = "計測可能"
        Label1.BackColor = Color.Aquamarine
        Button1.Enabled = True
        TextBox1.Enabled = True
    End Sub

    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
	'初期処理
        Label1.Text = "計測可能"
        TextBox1.Text = 6
        Chart2.Series(0).Points.Clear()
        Chart2.Series(0).Points.AddXY(0, Double.NaN)

    End Sub
End Class