フレキシブグリッド上のセル欄をクリックをするとその行（レコード）を
テキストボックスに表示する方法ってどうすればいいでしょうか？

ここの過去ログ等見られましたか?
その上で質問されていますか?

.row .col .textmatrix 等調べてみてください。

> ここの過去ログ等見られましたか?
> その上で質問されていますか?
>
> .row .col .textmatrix 等調べてみてください。

見ました。どんぴしゃで書いてある記事がなかったので書きました。

一応正解かどうかわからないやりかたで、作ってみました。

Private Sub フレキシブル_click()

Dim sampleRow As Long

    With フレキシブル
        sampleRow = .Row '列位置取得
  
        .Text = .TextMatrix(sampleRowRow, 0)
        .Text = .TextMatrix(sampleRowRow, 1)
        .Text = .TextMatrix(sampleRowRow, 2)
        .Text = .TextMatrix(sampleRowRow, 3)
        .Text = .TextMatrix(sampleRowRow, 4)

    End With
End Sub

> Private Sub フレキシブル_click()
>
> Dim sampleRow As Long
>
>     With フレキシブル
>         sampleRow = .Row '列位置取得
>    
>         .Text = .TextMatrix(sampleRowRow, 0)
>         .Text = .TextMatrix(sampleRowRow, 1)
>         .Text = .TextMatrix(sampleRowRow, 2)
>         .Text = .TextMatrix(sampleRowRow, 3)
>         .Text = .TextMatrix(sampleRowRow, 4)
>
>     End With
> End Sub

このやり方でできましたか？
>フレキシブグリッド上のセル欄をクリックをするとその行（レコード）を
>テキストボックスに表示する方法ってどうすればいいでしょうか？
という質問でしたが、テキストボックスはMsFlexGridの列の数分あるということですか？
akiさんのプログラムの内容だとグリッドからグリッドへデータを入れているような
感じですが・・・
左辺はテキストボックスの名前では？
sampleRowRowってなんの変数ですか？

> > Private Sub フレキシブル_click()
> >
> > Dim Row As Long
> >
> >     With フレキシブル
> >         Row = .Row '列位置取得
> >    
> >         text1.Text = .TextMatrix(Row, 0)
> >         text2.Text = .TextMatrix(Row, 1)
> >         text3.Text = .TextMatrix(Row, 2)
> >         text4.Text = .TextMatrix(Row, 3)
> >         text5.Text = .TextMatrix(Row, 4)
> >
> >     End With
> > End Sub
>
> このやり方でできましたか？
> >フレキシブグリッド上のセル欄をクリックをするとその行（レコード）を
> >テキストボックスに表示する方法ってどうすればいいでしょうか？
> という質問でしたが、テキストボックスはMsFlexGridの列の数分あるということですか？
> akiさんのプログラムの内容だとグリッドからグリッドへデータを入れているような
> 感じですが・・・
> 左辺はテキストボックスの名前では？
> sampleRowRowってなんの変数ですか？

ああめんぼくないです　こうですね。

テキストボックスをコントロール配列にするとすっきりするかも。
Private Sub フレキシブル_click()
　　Dim Row As Long
　　Dim Col As Long

     With フレキシブル
　　　　Row = .Row '列位置取得
        For Col = 0 to .Cols　-　1 ' 最初の列から最後の列まで
            Text(Col).Text = .TextMatrix(Row, Col)
        Next Col
     End With
  End Sub
参考までに。