Private Sub frmPrincipale_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Je te conseille plutôt par exemple : ' Dim grandeur As New Size(100,100) Dim grandeur As Size Me.Size = grandeur RichTextBox1.Size = grandeur End Sub