The Do Loop is similar to the While loop except that it does the test at the end of the loop. A do loop executes one or more times. The format of a Do Until loop is:
Do
<statements>
Loop Until <Boolean expression>

Example:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Num As Integer = 10
Do
lstNumbers.Items.Add(Num)
Num = Num - 1
Loop Until Num = 0
lstNumbers.Items.Add("Blast OFF!")
End Sub