imprimir 10 veces la palabra pato utilizando do while

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