如何得到Datagrid中每一列的列名啊。？

[qqyzq]

我在想datagrid中实现双击某一行时就自动弹出一个对话框，对话中的内容是这行中每一列的内容，对话框的标题是每一列的名称。现在我已经可以得到每一行每一列的内从了，如何得到列名呢。
Dim Y As Integer
Dim Nu As String
Y = DataGrid1.CurrentCell.RowNumber'行号
'得到所点击处的值
Dim i As Integer'列号
For i = 1 To 6
Dispstr = DataGrid1.Item(Y, i)'内容
MsgBox(Dispstr)'在这里要加上当前列的列名该怎么办。谢谢各位了
Next

[AntingZ]

列名== CType(datagrid1.DataSource, DataTable).Columns(i).ColumnName

[strXiaoCaiNiao]

up

[SwordGrass]

这些在c#里为什么出错呀，郁闷