DataGrid列宽随着内容自动变化

在使用vs2005时进行wince开发时，用Datagrid控件显示表格数据，当表格内容过多时，Datagrid控件单元格宽度并不足以用来完全显示表格中的数据内容，，只有自己每次去拉动分界线，来进行调整。当出现表格字段比较多时，这样做就显得很麻烦。

PDA本身屏幕就很小，即使只显示3－5列，拖动依旧很烦人，因此就有了实现自动调整列宽功能的想法。

首先到网上搜了一下，只发现一个PC机用的，vb.net源码的（出处不明），如下：

先定义一个Sub过程AutoSizeCol，用来调整Datagrid中的列宽。
如下：
Public Sub AutoSizeCol(ByVal col As Integer)
Dim width As Single
width = 0
Dim numRows As Integer
numRows = CType(dataGrid1.DataSource, DataTable).Rows.Count
Dim g As Graphics
g = Graphics.FromHwnd(dataGrid1.Handle)
Dim sf As StringFormat
sf = New StringFormat(StringFormat.GenericTypographic)
Dim size As SizeF
Dim i As Integer
i = 0

Do While (i < numRows)
size = g.MeasureString(dataGrid1(i, col).ToString, dataGrid1.Font, 500, sf)
If (size.Width > width) Then