'Listing 19.4  19LIST04.TXT  -- Wykorzystanie waciwoci ScaleMode, CurrentX i CurrentY

Private Sub Form_Click()
  Form1.ScaleMode = 4 'pozycje znakowe
  
  Form1.CurrentX = 20 
  Form1.CurrentY = 6
  Form1.Print "Na rodku" 
  
  Form1.CurrentX = 0 
  Form1.CurrentY = 0
  Form1.Print "W rogu" 
End Sub
