不好办
知道了
Private Sub Form_Resize()DataGrid1.Height = form1.ScaleHeightDataGrid1.Width = form1.ScaleWidthEnd Sub