Dim a As Integer = 0 
Do While a < 5 
lstDisplay.Items.Add(Welcome To Disney Land) 
a += 1 
Loop