salve ragazzi, avrei la necessità di adeguare la larghezza del RichTextBox in base alla larghezza del windows form - 100

il mio codice funziona ma mi domando perchè effettua quello che voglio solo quando ci scrivo del testo nel RichTextBox

codice:
Public Class Form1 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

Me.Location = (New Point(0, 0)) 
Me.Width = My.Computer.Screen.WorkingArea.Width
Me.Height = My.Computer.Screen.WorkingArea.Height 

End Sub 

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged 

RichTextBox1.Width = My.Computer.Screen.WorkingArea.Width - 100 

End Sub 

End Class