VB Hangs Up

[Newtester]

I am trying to test my printing and my VB is saying 'NOT RESPONDING'

I have to kill it then restart, what am I doing wrong here?

Option Explicit
Private Pline(60) As String
 
Private Sub Form_Load()
   Prepare_string
   Print_string
   
   Unload Me
   End
End Sub
 
Private Sub Prepare_string()
   Dim i As Integer, j As Integer
   
   For i = 1 To 60
       For j = 1 To 80
           Pline(i) = Pline(i) & "X"
       Next
   Next
End Sub
 
Private Sub Print_string()
   Dim i As Integer
   
   Open "lpt1:" For Output As #1
   
   For i = 1 To 60
       Print #1, Pline(i)
   Next
   
   Close #1
End Sub