'Listing 28.2 28LIST02.TXT -- Kontynuacja wypisywania w tej samej linii

Private Sub Command1_Click()
  CNumber = FreeFile
  Open "Print.Txt" For OutPut As #Cnumber
  Form1.Print "Plik Print.Txt otwarty"

  For X = 1 To 5 
    Print #Cnumber, X;  ' ten rednik stanowi sedno niniejszego przykadu
    Form1.Print "Zapis " & X & " do pliku Print.Txt"
  Next X

  Close #Number

  Form1.Print "Plik Print.Txt zamknity"
End Sub
