Private Sub Form_Load() '在程序代码中动态设置列数与行数 MSHFlexGrid1.Clear MSHFlexGrid1.Visible = True With MSHFlexGrid1 '不要在控件的属性设置列数与行数 .Cols = 20 '这里设置列数 .Rows = 30 '这里设置行数 End With End Sub