Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As _
              System.EventArgs) Handles btnStart.Click
  Dim i As Integer, Sum As Integer, Terminate As Integer
  Dim NewLine As String

  NewLine = Chr(13) & Chr(10) ' Znak powrotu karetki, znak nowej linii
  Terminate = CInt(txtPasses.Text)  ' Ilość powtórzeń
  Sum = 0                     ' Czyścimy sumę narastającą
  i = 1                       ' To będzie nasz licznik pętli
  txtResult.Text = ""

LoopStart:                    ' etykieta początku pętli
  Sum += i                    ' Obliczamy sumę narastającą
  txtResult.Text += CStr(Sum) & " (i = " & CStr(i) & ")" & NewLine
  If i < Terminate Then       ' Czy już zakończyć pętlę?
    i += 1                    ' Jeśli nie... zwiększamy licznik pętli
    GoTo LoopStart            ' Wykonujemy kolejne powtórzenie
  End If

End Sub
