Private Sub Form_Load()
Dim cText As String
Dim FNr As Integer
 
WindowState = 2
 
Text1.Text = ""
Text1.FontName = "Courier New"
Text1.FontSize = 10
 
FNr = FreeFile
 
Open "D:\nur_header.txt" For Input As #FNr
  cText = Input(LOF(FNr), #FNr)
Close #FNr
 
cText = Replace(cText, vbLf, vbCrLf)
 
Text1 = cText
 
End Sub
 
Private Sub Form_Resize()
  Text1.Move 10, 10, Me.ScaleWidth - 20, Me.ScaleHeight - 20
End Sub