VB.net: Auto Scroll a Listbox

Do you want to make a Listbox in VB.net auto scroll to the last value?
I use this to log and show the progress of what my application is currently doing.

Amazingly ugly UI I made.

The first line just add date and the current time to the Listbox.
The second line is the one that actually scroll the Listbox.
The third line is refreshing the UI which might be needed if your application need to do a lot of work…

ListBox.Items.Add(DateTime.Now)
ListBox.TopIndex = ListBox.Items.Count - 1
Refresh()

A good idea is to use a timer to keep the Listbox scrolling so you don’t have to add the same code over and over each time you add a new item to the Listbox.