this works:

vb.net Code:
  1. ListBox1.Items.Add("new item")
  2. Dim maxItems As Integer = ListBox1.Height \ ListBox1.GetItemHeight(0)
  3. ListBox1.TopIndex = ListBox1.Items.Count - maxItems