VB6原本的程序
VB2010
form1.lstResults.AddItem "add string"
form1.boxlist1.ListIndex = form1.boxlist1.ListCount - 1
VB2010
Form1.boxlist1.Items.Add("add string" )
Form1.boxlist1.SelectedIndex = Form1.boxlist1.Items.Count - 1