RosettaCodeData/Task/Flow-control-structures/Visual-Basic-.NET/flow-control-structures-1.visual

  Sub bar2()
      Dim x = 0
      GoTo label
      x = 5
label:
      Console.WriteLine(x)
  End Sub