RefactoringEssentials/Demonstration.VB/MainModule.vb at master · codecopy/RefactoringEssentials · GitHub

Sitelet https://github.com/codecopy/RefactoringEssentials/blob/master/Demonstration.VB/MainModule.vb

13 lines (9 loc) · 238 Bytes

﻿Module MainModule
    Sub Main()
        Dim x As Integer = 0
        ' Refactoring to convert "Do ... Loop until" to "Do Until ... Loop" and vice versa
        Loop Until x = 5
    End Sub