imprimir pato con el do loop while

DIM X AS Integer
  X = 1
  DO
  ListBox1.Add("PATO")
  X = X + 1
  LOOP WHILE x <= 10