DIM hListBox AS ListBox DIM hListBoxItem AS .ListBoxItem hListBoxItem = hListBox [ Index AS Integer ]