RosettaCodeData/Task/Loops-While/Visual-Basic-.NET/loops-while.vb

Module M1
    Public Sub Main
        Dim x = 1024
        Do While x > 0
            Console.WriteLine(x)
            x \= 2
        Loop
    End Sub
End Module