BUG: Multiline Text Box Incorrectly Displays Large Text (120523)

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add a Text Box (Text1) and three Command Buttons (Command1, Command2, and Command3) to Form1.
3. Set the Multiline property of Text1 to True and set the ScrollBars property to 2 - Vertical.
4. Add the following code to the load event of Form1:

      Sub Form_Load ()
         Text1.Left = 100
         Text1.Top = 100
         Text1.Width = 4000
         Text1.Height = 1600
         Command1.Left = 4500
         Command1.Top = 100
         Command2.Left = 4500
         Command2.Top = Command1.Top + Command1.Height + 25
         Command3.Left = 4500
         Command3.Top = Command2.Top + Command2.Height + 25
      End Sub
   						

5. Add the following code to the click event of Command1:

      Sub Command1_Click ()
         Dim A As String
         Dim B As String
   
         'A single '1' will appear in the Text
         'box and the Font will not be bold although
         'the property is set to True
   
         Text1.Text = ""
         Text1.FontName = "MS Sans Serif"
         Text1.FontBold = True
   
         A$ = String(4096, "1")
         B$ = String(4096, "2")
   
         A$ = A$ & " " & B$
         Text1.Text = A$
      End Sub
   						

6. Add the following code to the click event of Command2:

      Sub Command2_Click ()
         Dim A As String
         Dim B As String
   
         'No text will appear in the Text1
   
         Text1.Text = ""
         Text1.FontName = "MS Sans Serif"
         Text1.FontBold = True
   
         A$ = String(4096, "1")
         B$ = String(4096, "2")
   
         A$ = A$ & B$
         Text1.Text = A$
      End Sub
   						

7. Add the following code to the click event of Command3:

      Sub Command3_Click ()
         Dim A As String
         Dim B As String
   
         'A blank line will appear followed by the 'Y's
   
         Text1.Text = ""
         Text1.FontName = "MS Sans Serif"
         Text1.FontBold = True
   
         A$ = String(4096, "X")
         B$ = String(4096, "Y")
   
         A$ = A$ & B$
         Text1.Text = A$
      End Sub
   						

8. Save the project and run. Click each of the command buttons to see the following results:
   
   
   • Command1: A single 1 will appear in the text box and the font will not be bold.
   • Command2: No text will appear in the text box.
   • Command3: A single blank row or row of Xs followed by Ys will be visible in the text box.