代码：
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

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

能不能把图也截上来？

仅仅这几个代码，不清楚你的界面是不是有4个 DataGrid1 数组控件(0-3)，因此不好回答。

不知道有没有DataGrid1.Columns.Count属性，有的话可以直接如下：
for i=0 to DataGrid1.Columns.Count-1
  DataGrid1.Columns(i).Width = 500
next

这样就不会溢出了。