private sub Form_Load( )

---

General information

Full name	frmDocument.Form_Load
Access	private
Overload of

Source code

Private  Sub Form_Load()     Form_Resize End  Sub

Functions and events referenced

Full name	Owners
frmDocument.Form_Resize	frmDocument

private sub Form_Resize( )

---

General information

Full name	frmDocument.Form_Resize
Access	private
Overload of
Purpose	Moves the controls according to the form size.
Comment	If you add a new control in this form you must add the code the position of this control.
Prototype	private sub Form_Resize( )
History	NOVALYS - 2001/10/20 - Creation

Source code

Private  Sub Form_Resize() '********************************************************* ' Purpose : Moves the controls according to the form size. ' Comment : If you add a new control in this form you must add the code the position of this control. ' Subject : GUI ' History : NOVALYS - 2001/10/20 - Creation '*********************************************************      On Error  Resume  Next     rtfText.Move  100,  100, Me.ScaleWidth -  200, Me.ScaleHeight -  200     rtfText.RightMargin = rtfText.Width -  400 End  Sub

Functions/Events referencing

Full name	Owners
frmDocument.Form_Load	frmDocument

Referenced classes

Full name

frmDocument

rtfText

Referenced properties

Full name	Scope
RichTextBox.RightMargin	attribute