Private Sub Form_Load() For i = 0 To 100 MSHFlexGrid1.AddItem "test" & i Next
MSHFlexGrid1.ScrollTrack = True '当用户沿着滚动条移动滚动框时,MSHFlexGrid滚动它的内容。 MSHFlexGrid1.TopRow = 20 '滚动到第20行
End Sub