テキストボックス×２の個々の行データを対比させるように
縦型スクロールバー１個で制御したいのですが、そんなことはできますか？

リストボックスにはTOPINDEXプロパティや、
行（アイテム）を変更したときのイベントがあるのでできたのですが・・・。

<例>
|TEXT1   |TEXT2   |
|--------|--------|
|AAA     |AAA     |
|BBB     |BBB     |
|--------|--------|

TEXT1で[BBB]の次の行を表示させると
同様に、TEXT2でも次の行が表示される

|TEXT1   |TEXT2   |
|--------|--------|
|BBB     |BBB     |
|BBC     |CCC     |
|--------|--------|

OSによって操作が変わりますが、WinXP系でしょうか？Win98系でしょうか？
どこかの掲示板で投稿した覚えがあるので探して見ます。

WindowsXP 用でしたら、ここの掲示板の　No.6564 をご覧下さい。

申し訳ないですが、ＸＰではありません。

<<開発環境>>
OS:Win2000SP4　VB:VB6SP5

花ちゃんさんから教えていただいた、掲示板を参考に
いろいろとやってみたいと思います。
ご返事ありがとうございました。

> 申し訳ないですが、ＸＰではありません。
> OS:Win2000SP4　VB:VB6SP5

なら、WindowsXP用で問題ないかと思いますので、サンプルを試して見て下さい。

返答、遅れましてすみませんでした。
Windows2000での動作確認がとれました。

GotFocusでフォーカスのあるテキストボックスを取得し、
TEXTAでもTEXTBでも同期を取れるようにしました。

*************************

基本的な動作は問題ないのですが、
縦のスクロールバーをＯＮにし、
スクロールバーをドラッグし、スクロールさせた時に
GotFocusイベントが発生しない為、うまく同期できない時があります。

本題とは少しずれてしまいますが、
テキストのスクロールバーでのイベントの取得方法があるでしょうか？

どちらからでも同期を取りたいなら、Top位置を監視して、先にTop位置が移動した方に同期を
とればいいのでは。

> テキストのスクロールバーでのイベントの取得方法があるでしょうか？

あれば、それで取得しているかと、無いから上記の方法を取っているのかと。

すみません、Top位置の取得方法なのですが、
いろいろやってみたのですが、うまく取得できません。

No.6564 のサンプルを少し改造すれば、TOP位置を取得できるようになるのでしょうか？

ヒントだけでもかまいませんので、教えていただけないでしょうか？

> すみません、Top位置の取得方法なのですが、
> いろいろやってみたのですが、うまく取得できません。

Private Sub Timer1_Timer()
    Dim udtPoint  As tagPOINT, Ret As Long
    Ret = SendMessage(RichTextBox1.hwnd, EM_GETSCROLLPOS, 0&, udtPoint)
    Ret = SendMessage(RichTextBox2.hwnd, EM_SETSCROLLPOS, 0&, udtPoint)
End Sub

RichTextBox1 のTop位置を取得して、そののTop位置を RichTextBox2 に設定しています。

    Ret = SendMessage(RichTextBox1.hwnd, EM_GETSCROLLPOS, 0&, udtPoint1)
    Ret = SendMessage(RichTextBox2.hwnd, EM_GETSCROLLPOS, 0&, udtPoint2)
これで前回調べた時の位置と同じか調べて違っていたら、違っていない方にその位置を
設定すればいいのでは