Помогите разобраться с MSHFlexGrid - VB

Формулировка задачи:

Господа,
Обнаружила новый для себя контрол, который мне очень понравился. Но вот незадача, немогу доконца разобраться с ним. Информации про MSHFlexGrid нашла очень мало. Если у кого есть ссылка киньте пожалуйста, или помогите настроить его. Есть несколько вопросов:
1) На пользовательской форме есть грид, в который я подгружаю табличку с MS Sql сервера. Таблица примерно такого формата
PeriodID StartDate EndDate
12/2008 11/1/2008 11/30/2008
13/2008 12/1/2008 12/31/2008
1/2009 1/1/2009 1/31/2009
2/2009 2/1/2009 2/28/2009
3/2009 3/1/2009 3/31/2009
1/2010 4/1/2009 4/30/2009
2/2010 5/1/2009 5/31/2009
3/2010 6/1/2009 6/30/2009
Так же есть TextBox, в который вводится значение сходное со значением в первом столбце грида, и есть кнопка, по нажатию которой должен производиться поиск значения из TextBox в гриде и активироваться нужная строка.

FindByPeriod(FGrid  MSHFlexGrid, P  )
 i  
 i = FGrid.Rows -   FGrid.FixedRows  -
  (P >= FGrid.TextArray( * i)) 
    FGrid.RowSel = i

Но моя процедура приводит к выделению с первой по найденную строку, а активной остается первая строка. Что я делаю неправильно?
2) как отключить возможность выделения сразу нескольких строк? Чтобы это изначально было сделать невозможно? В гриде настроила выделения по строкам
Заранее спасибо

Решение задачи: «Помогите разобраться с MSHFlexGrid»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> FindByPeriod(FGrid <font color="blue">As</font> MSHFlexGrid, P <font color="blue">As</font> <font color="blue">String</font>)
<font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">With</font> FGrid
  <font color="blue">For</font> i = .Rows - <font color="darkblue"><b>1</b></font> <font color="blue">To</font> .FixedRows <font color="blue">Step</font> -<font color="darkblue"><b>1</b></font>
    <font color="blue">If</font> (P >= .TextArray(.Fixedcols  * i)) <font color="blue">Then</font>
      .Row = i
      .TopRow = i
      .RowSel = i
      <font color="blue">Exit</font> <font color="blue">For</font>
    <font color="blue">End</font> <font color="blue">If</font>
  <font color="blue">Next</font>
<font color="blue">End</font> <font color="blue">With</font>
<font color="blue">End</font> <font color="blue">Sub</font>

                        