是这个!Private Sub Form_Resize()MSHFlexGrid1.Top = 0MSHFlexGrid1.Left = 0MSHFlexGrid1.Height = Form1.ScaleHeightMSHFlexGrid1.Width = Form1.ScaleWidth
End Sub具体的自己再改一下