'while
Imports System
Public Module Module1
Public Sub Main()
dim i as integer =-10
while(i<10)
console.WriteLine(i)
i=i+1
end while
End Sub
End Module