خطا در ايجاد منو

[es_7005]

دوستان سلام
من اين كد رو براي ايجاد منو نوشتم اما خطا مي دهد
Dim T_I As New ToolStripMenuItem

Dim I As Short = 0

For I = 0 To (DataGridView1.ColumnCount - 1)

T_I.Checked = True
T_I.Name = DataGridView1.Columns(I).DataPropertyName
T_I.Text = DataGridView1.Columns(I).HeaderText
ContextMenuStrip.Items.Add(T_I)

Next I
DataGridView1.ContextMenuStrip = ContextMenuStrip

خطاتوي اين خطه
ContextMenuStrip.Items.Add(T_I)
كه متن خطا اينه
Object reference not set to an instance of an object.