いつもお世話になっています。

サンプル　「リッチ及びテキストボックス内の総行数・現在行・現在桁の取得
（０７６）」なのですが、リッチテキストにしてみたところ、目的の行を２回
クリックしないと現在行が取得できません。
環境は、ＸＰ／ＶＢ６です。

単にsCursorRowプロシージャを２回コールしただけではだめで、間を空けて
コールしないとだめなようです。
タイマーを入れて５０ｍＳはなすと取得できるようですが、あまりスマート
ではないので、なにかスマートな解決方法はないでしょうか。

どうも何らかの初期化が必要な気がするのですが。
よろしくお願いします。

質問される場合は、注意事項をよく読んでから投稿して下さい。
(環境等が書かれていないようですが。)

> サンプル　「リッチ及びテキストボックス内の総行数・現在行・現在桁の取得
> （０７６）」なのですが、リッチテキストにしてみたところ、目的の行を２回
> クリックしないと現在行が取得できません。

下部の方の [リッチテキストボックス用] のサンプルを試しましたか？

念の為、今コピペして動作を確認しましたが、問題ありませんでした。
WindowsXP VB6.0(SP6) Microsoft Rich Textbox Control 6.0(SP6) で確認

尚、テキストボックス用とリッチテキストボックス用のコードを見比べてみれば
解る事ですが、テキストボックス用は、マウスのクリックには対応しておりません。
別途、リッチテキストボックス用のようにプロシージャ化してマウスのクリックイベントで
呼ぶようにして下さい。
(テキストボックス用のコードの下部の方に注意事項が書いてありませんでしたか？)

> 質問される場合は、注意事項をよく読んでから投稿して下さい。
> (環境等が書かれていないようですが。)
> 下部の方の [リッチテキストボックス用] のサンプルを試しましたか？
>
> 念の為、今コピペして動作を確認しましたが、問題ありませんでした。
> WindowsXP VB6.0(SP6) Microsoft Rich Textbox Control 6.0(SP6) で確認
>
> 尚、テキストボックス用とリッチテキストボックス用のコードを見比べてみれば
> 解る事ですが、テキストボックス用は、マウスのクリックには対応しておりません。
> 別途、リッチテキストボックス用のようにプロシージャ化してマウスのクリックイベントで
> 呼ぶようにして下さい。
> (テキストボックス用のコードの下部の方に注意事項が書いてありませんでしたか？)

すいません。記述が足りなかったようです。
リッチテキストボックス用を使用しました。
原因はMouseDownイベントで実行してためで、Clickイベントで行っていませんでした。
Clickイベントなら正常に取得できるようです。
お騒がせしました。