リストボックスで項目を追加する度に常に一番下までスクロールするようにしたい への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 魔界の仮面弁士  (社会人) 投稿日時 2011/3/8 15:10:24
蛇足ですが、ついでにの場合も。

Private Sub Timer1_Timer()
    Dim current As String
    current = Format(Now, "HH\:mm\:ss") & Format(Timer - Fix(Timer), ".0000")
    List1.AddItem current
    List1.TopIndex = List1.NewIndex
End Sub


こちらも TopIndex プロパティですが、最新項目のインデックスの取得方法が異なります。
投稿者 るきお  (社会人) 投稿日時 2011/3/8 13:12:35
おぉ。TopIndexがありましたか。
フォローしてもらってよかったです。ありがとうございます。
投稿者 魔界の仮面弁士  (社会人) 投稿日時 2011/3/7 23:41:10
Private Sub Timer1_Tick(ByVal sender As ObjectByVal e As EventArgs) Handles Timer1.Tick
    ListBox1.TopIndex = ListBox1.Items.Add(Now.ToString("HH:mm:ss.ffff"))
End Sub
投稿者 るきお  (社会人) 投稿日時 2011/3/7 21:52:08
こんにちは。

追加した項目を選択してよいのであれば簡単にできます。
ListBox1.SelectedIndex = ListBox1.Items.Add("あいうえお")


選択してはいけないのであればWindows APIを呼び出すことになります。
その場合難易度は急上昇します。
投稿者 扇風機をつけたままで寝ると凍死する  (社会人) 投稿日時 2011/3/7 21:37:52
分かりにくい題名ですみません。

リストボックスを使っていて、表示領域いっぱいまで項目を詰めるとスクロールバーがでてきて下にスクロールできるようになりますよね。
通常はいっぱいまで詰めるとそのままでスクロールバーが伸びてくだけです。
しかし、これでは最新の項目に何を追加したかわかりにくいです。

項目を追加する度に一番下までスクロールするようにしたいのですがやり方を教えて下さい。