代码：
Private Sub Form_Load()
DataGrid1.Columns(0).Width = 500
DataGrid1.Columns(1).Width = 500
DataGrid1.Columns(2).Width = 500
DataGrid1.Columns(3).Width = 500
End Sub

顶！！！！！！！！！！！！！！！！！！！！！！！！