Do until flag = “ found” or I >= HeroList.Items .count -1
hold = Herolist. Items(i). Tostring
If hold .ToLower = HeroName.Toupper Then
HeroList. SelectedIndex = i
IdList.SelectedIndex= I
flag = “found”
MessageBox.Show (hold &”is :”& IDList.Items(i). ToString )
End If
i =i+1
Loop