Do Until Loop Statement:

The statements within the do...until loop block executes till the condition given in until become true. The working of do...until loop is elaborated with the event Form_ Mouse

Down.

Do Until condition

Block of one or more VB statements

Loop

Whenever you click the mouse on the form, the event handler executes and produces the output as shown in the figure.

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y

As Single)

Dim i As Integer

i = 5

Do Until i = 0

Form1.Print "i is " & i

i = i - 1

Loop

End Sub

Figure: Do until loop