Imports System
Public Module Module1
Public Sub Main()
Dim i As Integer
Do While i < 20
i = i + 2
Console.WriteLine(i)
Loop
i = -1
End Sub
End Module