Imports System
public class MainClass
Shared Sub Main()
Dim Counter As Short
For Counter = 1 To 3
If True Then ' Always enter this block
Dim X As Short
Console.WriteLine(X)
X = Counter
End If
Next Counter
End Sub
End Class