Imports System
Public Module Module1
Public Sub Main()
Dim x as integer =1
While x<=4
console.WriteLine("welcome")
x=x+1
end while
End Sub
End Module