关于mshflexgrid固定行的问题

Question

大家好！我写了一个单据程序，因单据的列数太多，我想前面三列固定，以免好查看规格来对应后面的数量。程序用TEXT控件邦定MSHFLEXGRID来使用的。程序如下：Private Sub MSHFlexGrid1_Click()
MSHFlexGrid1.FixedCols = 1
    If MSHFlexGrid1.Text = "" Then
    Text2.Visible = True
    Combo1.Visible = False
    Text2.Left = MSHFlexGrid1.CellLeft + MSHFlexGrid1.Left
    Text2.Top = MSHFlexGrid1.CellTop + MSHFlexGrid1.Top
    Text2.Width = MSHFlexGrid1.CellWidth
    Text2.Height = MSHFlexGrid1.CellHeight
    Text2.SetFocus
    Text2.Text = ""
  Else
    Text2.Visible = True
    Combo1.Visible = False
    Text2.Left = MSHFlexGrid1.CellLeft + MSHFlexGrid1.Left
    Text2.Top = MSHFlexGrid1.CellTop + MSHFlexGrid1.Top
    Text2.Width = MSHFlexGrid1.CellWidth
    Text2.Height = MSHFlexGrid1.CellHeight
    Text2.Text = MSHFlexGrid1.Text
  End If
end sub
Private Sub MSHFlexGrid1_Scroll()
  MSHFlexGrid1.FixedCols = 4
End Sub现在是实现了当点击滚动条时前四行是固定了，可是滚动到后面时，点击MSHFLEXGRID里后面的格子时，TEXT他会自动弹到第一列的位置，不是我想要后面的位置，如我点第十列时，TEXT是出现在第一列，不是我想要的第十列，请高手帮忙看一下，谢了

Answer 1

with MSHFlexGrid1
    Text2.Move .Left + .CellLeft, _
                  .Top + .CellTop, _
                  .ColWidth(.Col), _
                  .RowHeight(.Row)
end with用 Move 比较快，而且不会闪烁。