Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As _
              System.EventArgs) Handles btnStart.Click
  Dim Tosses, Heads, ThisToss, Target As Integer
  Heads = 0     ' liczba orłów
  Tosses = 0    ' liczba rzutów

  If txtNumber.Text <> "" Then ' Sprawdzamy, czy została wprowadzona
                              ' liczba
    Target = CInt(txtNumber.Text)
  Else
    MessageBox.Show("Powinieneś wprowadzić liczbę.")
    Exit Sub
  End If
  Do While Heads <> Target
    ThisToss = TossACoin() ' Funkcja zwraca 1 w przypadku
                           ' wyrzucenia orła
    If ThisToss = 1 Then
      Heads += 1       ' Jeśli był orzeł, zwiększamy licznik
    Else
      Heads = 0        ' Reszka... zaczynamy od początku
    End If
    Tosses += 1       ' Licznik rzutów
  Loop
  txtTossCounter.Text = CStr(Tosses)
End Sub
