As i see from your rough picture that you want the text box to be about a third of the width of the form so here is how to do it.

Sub Form_Resize()

text1.width=form1.width/3
text1.height=form1.height/2
text1.left=(form1.width-text1.width)/2
text1.top=(form1.height-text1.height)/2

End Sub

every time the form is resized the texbox is resized to remain PROPORTIONAL

Doc Zaf
{;->