Dim cont As Integer Do Until cont > 10 ListBox1.Items.Add(cont) cont = cont + 1 LoopNúmeros de 1 a 10 usando Loop Until
Dim cont As Integer Do ListBox2.Items.Add(cont) cont = cont + 1 Loop Until cont > 10
Dim cont As Integer Do Until cont > 10 ListBox1.Items.Add(cont) cont = cont + 1 LoopNúmeros de 1 a 10 usando Loop Until
Dim cont As Integer Do ListBox2.Items.Add(cont) cont = cont + 1 Loop Until cont > 10