'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

​

​

​