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