'Listing 19.2 -- 19LIST02.TXT --- Drukowanie pustych linii - pionowa tabulacja wydruku

Private Sub Form_Click()
  Dim CurLine As Integer
  Dim A_String As String
  A_String = "Visual Basic 4"
  CurLine = 1
  Form1.Print A_String & "jest w linii numer  " & CurLine
  For CurLine = 2 To 6
    Form1.Print
  Next CurLine
  Form1.Print A_String & "jest w linii numer  " & CurLine
End Sub
