是这个！

Private Sub Form_Resize()
MSHFlexGrid1.Top = 0
MSHFlexGrid1.Left = 0
MSHFlexGrid1.Height = Form1.ScaleHeight
MSHFlexGrid1.Width = Form1.ScaleWidth

End Sub

具体的自己再改一下